Linha Microsiga Protheus

Árvore de páginas

FA60SIT2

Descrição:

Ponto de entrada criado para completar a gravação da SE5 gerada do estorno da cobrança descontada( E5_TIPODOC =  "E2" ). 
No momento da sua chamada está posicionado na SE5 de estorno.

Localização:

Atualizações > Contas a Receber

Eventos:

Transferências

Programa Fonte:

FINA060

Função:

FA060Trans - Transferir

Retorno:

 Nulo 

 

Exemplo:

#Include 'Protheus.ch'

User Function FA60SIT2() 

//não recebe parâmetros

//Já está posicionado no registro da SE5 de estorno da cobrança descontada e no título (SE1).

If SE5->E5_TIPODOC  ==   "E2"

   //realiza complemento da gravação na SE5

   Reclock("SE5",  .F.)

   SE5->E5_HISTOR  :=  "Est.Tit. Des. "+  SE1->E1_HIST

   SE5->(MsUnlock())

EndIf

Return