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 "PROTHEUSProtheus.CHch"

User Function AF125GRT()

Local cMsg cLog := ""

Local lRet Solicitação : " + = ""

If MsgNoYes( "Deseja grava um log ", Atenção )
cCodSol := SNM->NM_CODIGO
cLog:= Date() + " Centro Custo Destino: "+ SNM->NM_CCUSTO +" Local Destino: "+ SNM->NM_LOCAL" " + 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 lRetMSGALERT( cMsg, "Solicitação de Transferência" )
Return

Português(Brasil)

Microsiga Protheus 12

Todos homologados pelo Protheus

Todos homologados pelo Protheus

lRet (lógico)

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

ATFA251.PRW