Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

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.

Localização:

Atualizações \ DPM JD \ Deman Diária PRISM (OFINJD31)

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

Programa Fonte:

OFINJD31.PRW

Função:

FS_GetSxeNum()

Parâmetros:

N/A

Retorno:

N/A

Exemplo:

Include totvs.ch


user function OJD31NUM()

return .t.