Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (norbertom), última alteração em 31 jan, 2022

01. DADOS GERAIS

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Financeiro

02. DESCRIÇÃO

O ponto de entrada A390AVU é chamado pelo programa FINA390 - ao término da transação de gravação do cheque mantendo as tabelas SEF e SE5 posicionadas nos respectivos registros.

A funcionalidade tem como objetivo oferecer acesso para ações complementares.

Notas Importantes!

  • Nenhum valor de retorno é esperado.
  • Opção disponível apenas na geração de Cheques Avulsos.


03. EXEMPLO DE UTILIZAÇÃO


#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

04. DEMAIS INFORMAÇÕES

05. ASSUNTOS RELACIONADOS