Generar código en datawindow power builder

Hola experto el problema es este: tengo mi DW de listados, un button NUEVO el cual me envía a mi DW registro para registrar un nueva categoría, mi función que genera el código es esta.

integer ls_codigo
dw_2.scrolltorow( dw_2.insertrow(0))
select max(catproveedor_codigo) + 1
into : ls_codigo
from Proveedor_categoria;
dw_2.object.catproveedor_codigo[dw_2.getrow()]= ls_codigo

//

Bueno pero quisiera que al momento de guardar el nuevo registro recién llame a la función generar código por que puede ser el caso que 2 usuarios estén registrando al mismo tiempo el código del registro es este

int n
n=messagebox("Aviso","Desea guardar los datos....",Information!,YesNoCancel!)
if n=1 then
f_generarcodigo( )
if dw_2.update( )=1 then
commit;
messagebox("Aviso","Datos almacenados....")
dw_1.retrieve()
else
rollback;
messagebox("Aviso","Error guardando datos en el detalle",stopsign!)
end if
end if

///Pero me sale un error al momento de grabar ya que no se permite a la clave primaria como null, quizás la función para generar código deba ir en otra parte

te agradecería que me ayudes para continuar con mi proyecto