AF125GRT - Executado após a gravação da solicitação transferência

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

#INCLUDE "Protheus.ch"

User Function AF125GRT()

Local cNota := ""

If MsgNoYes( "Deseja gravar nota ", "Atenção" )
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
MSGINFO( "Gravado Nota "+ cNota + " com sucesso !", "Gravacao de Nota" )
EndIf

Return

Português(Brasil)

Microsiga Protheus 12

Todos homologados pelo Protheus

Todos homologados pelo Protheus

Execblock("AF125GRT",.F.,.F.)

ATFA125.PRW