Histórico da Página

#INCLUDE "PROTHEUS.CH"

USER FUNCTION A390AVU()
LOCAL cMensagem := NIL

    // A chamada a este ponto de entrada ocorrerá 
    // imediatamente após o processo de gravação do Cheque Avulso.
    
    // As tabelas SE5 e SEF estarão posicionadas nos respectivos registros 
    // para que se possa realizar ações complementares.

    IF !Complements('SE5',@cMensagem) .OR. !Complements('SEF',@cMensagem)
        MSGINFO(cMensagem,'PE: A390AVU')
    ENDIF

RETURN NIL

STATIC FUNCTION Complements(cAlias,cMensagem)
LOCAL lRet := .T.    

DEFAULT cMensagem := ""

    IF cAlias == 'SE5'
        // DO something ...
    ENDIF

    IF cAlias == 'SEF'
        // DO something ...
    ENDIF

RETURN lRet