Descrição

O ponto de entrada AF125GTL é executado após a gravação da solicitação transferência em lote e está posicionado na tabela SNM.

Programa Fonte:

ATFA125 - Solicitação de Transferência.

//Ponto de entrada exemplo

#Include "Protheus.ch"

User Function AF125GTL()

Local cNota  := ""
Local cCodSol := ""

    cCodSol := SNM->NM_CODIGO
    cNota   := '1234'

    DbSelectArea("SNM")
    SNM->(DbSetOrder(1))
    SNM->(DbSeek(xFilial("SNM")+cCodSol))

    While SNM->(!EOF()) .And. xFilial( "SNM" ) == SNM->NM_FILIAL .And. cCodSol == SNM->NM_CODIGO
        RecLock("SNM",.F.)
        SNM->NM_NOTA := cNota
        SNM->(MsUnlock())
        SNM->(DbSkip())
    EndDo

Return

//Chamada do ponto de entrada:

If ExistBlock( "AF125GTL" )
    ExecBlock( "AF125GTL", .F., .F. )
EndIf