OJD31NUM Ponto de Entrada para criar um registro no VB8 no processamento diário do DPM na Rotina Deman Diária PRISM (OFINJD31)

Descrição:

Este ponto de entrada sera executado ao criar um registro no VB8 no processamento diário do DPM, ele e usado para determinar a estratégia de geracão de numeração para a tabela.

Eventos:

if ExistBlock("OJD31NUM")

cNum := FM_SQL(" SELECT MAX("+cCampo+") FROM " + RetSQLName(cTabela) + " WHERE "+cTabela+"_FILIAL = '"+xFilial(cTabela)+"' ")

return soma1(cNum, TamSx3(cCampo)[1])

else

while nTry <= 100000

cNum := GetSxeNum("VB8", "VB8_CODIGO")

cQuery := " SELECT COALESCE(count(*), 0) FROM " + RetSQLName(cTabela)

cQuery += " WHERE "+cTabela+"_FILIAL = '"+xFilial(cTabela)+"' AND " + cCampo + " = '" + cNum + "' "

if FM_SQL(cQuery) > 0

ConfirmSx8()

else

return cNum

end

nTry += 1

end

endif

Função:

FS_GetSxeNum()