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 cNota := ""

If MsgNoYes( "Deseja gravar nota ", "Atenção" )
cCodSol := Solicitação: " + SNM->NM_CODIGO
cNota:= '1234'
dbSelectArea( "SNM" )
SNM->( dbSetOrder(1) )
SNM->( dbSeek(xFilial( "SNM" ) + " Centro Custo Destino: "+ cCodSol ) )

While SNM->(!EOF()) .And. xFilial( "SNM" ) == SNM->NM_FILIAL .And. cCodSol == SNM->NM_CCUSTO +" Local Destino: "+ CODIGO
RecLock( "SNM", .F. )
SNM->NM_LOCALNOTA := cNota
SNM->( MsUnlock() )
SNM->( dbSkip() )
EndDo
MSGINFO( "Gravado Nota "+ cNota + " com sucesso !", "Gravacao de Nota" )
EndIf

MSGALERT( 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.)

ATFA251ATFA125.PRW