Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
Função:

FINA050 - Contas a Pagar

Requisito/Story/Issue (informe o requisito relacionado) :DSERFINP-28450
Observações:

Em casos onde o Ponto de Entrada é chamado via ExecAuto e retornando .F. (falso), a variável lMsErroAuto deve ser alterada no Ponto de Entrada para .T. (verdadeiro).

Pois caso contrário causará impacto em integrações e chamadas de ExecAuto onde o processo foi interrompido pelo retorno .F. (falso) do Ponto de Entrada e constando lMsErroAuto também como .F. (falso, ou seja, sem erros).


02. DESCRIÇÃO

A finalidade do ponto de entrada FA050INC é permitir validações de usuário na inclusão do Contas a Pagar (FINA050), localizado no TudoOK da rotina.

03. PARÂMETROS

Não há

04. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

.T. valida a inclusão e continua o processo, caso contrário .F. e interrompe o processo.

05. EXEMPLO DE UTILIZAÇÃO

FA050INC
#include 'totvs.ch'

/*/{Protheus.doc} FA050INC()

    A finalidade do ponto de entrada FA050INC é permitir validações de usuário
    na inclusão do Contas a Pagar (FINA050), localizado no TudoOK da rotina.

    @return lRet - lógico, .T. valida a inclusão e continua o processo,
        caso contrário .F. e interrompe o processo.
/*/
User Function FA050INC()
    Local lRet := .F.

    // Validações de usuário

    If !(lRet)
        // Mensagem de Help para esclarescer o motivo de interromper a inclusão
        Help( ,, 'Help',, "Inclusão Interrompida.", 1, 0 )

        // Alterando lMsErroAuto para .T. (verdadeiro), devido aos casos de integrações ou ExecAuto
        lMsErroAuto := .T.
    EndIf

Return lRet