Descrição

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

Observações

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

Exemplos

#INCLUDE "Protheus.ch"


User Function AF125GRT()

Local cLog := ""

Local lRet := ""

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

Return lRet



Idioma

Português(Brasil)

Versões

Microsiga Protheus 12

Sistemas Operacionais Suportados

Todos homologados pelo Protheus

Compatível com as Bases de Dados

Todos homologados pelo Protheus

Retorno

lRet (lógico)

Eventos de chamada do Ponto de Entrada

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

Programa Fonte

ATFA251.PRW