FINA620 - Solicitações de Transferência de Débito - Rotina Automática

Exemplo do funcionamento, da rotina automática de solicitação de transferência de débito.

User Function FINA620AUTO( )

LOCAL nRecSe1      := 18                                       //Recno do titulo Principal

LOCAL cfilDest        := "02"                                     //Filial de Destino

LOCAL cHist            := "Teste Transferência"         //Histórico da transferência

LOCAL lAprov          := .T.                                       //Executa aprovação da transferência automaticamente

LOCAL lMsgErro     := .T.                                        //Apresenta mensagem de erro "Mostraerro( )".

PRIVATE lMsErroAuto := .F. 

Fa620Auto(nRecSe1,cfilDest,cHist, lAprov, lMsgErro)

If lMsErroAuto

    MostraErro( )

Else

    Alert("Título transferido com sucesso!")

Endif

Return