Histórico da Página

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

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

#INCLUDE "Protheus.ch"

User Function AF125GRT()

Local cLog := ""Local lRet cNota := ""

If MsgNoYes( "Deseja grava um log gravar nota ", "Atenção" )
cCodSol := SNM->NM_CODIGO
cLog cNota:= Date() + " " + Time() '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_CAMPOLOG)>NM_NOTA := cNota
SNM->( MsUnlock() )
SNM->( dbSkip() )
EndDo
lRet := MSGALERT MSGINFO( "Gravado Log Nota "+ cLog cNota + " com sucesso !", "LogGravacao de Nota" )
EndIf

Return lRet

Português(Brasil)

Microsiga Protheus 12

Todos homologados pelo Protheus

Todos homologados pelo Protheus

lRet (lógico)

lRet := Execblock("AF125GRT",.F.,.F.)

ATFA251ATFA125.PRW