Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

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

FINA040 - Contas a Receber

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 FA040INCé permitir validações de usuário na inclusão do Contas a Receber (FINA040), 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} FA040INC()

    A finalidade do ponto de entrada FA040INCé permitir validações de usuário
    na inclusão do Contas a Receber (FINA040), 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 FA040INC()
Local lRet := .T.

     // Validações de usuário
If M->E1_CLIENTE ='000001' .And. M->E1_LOJA='01' .And. M->E1_VALOR > 5000
        // Mensagem de Help para esclarecer o motivo de interromper a inclusão
        Help( ,, 'ALERTA',, "Valor não liberado para este cliente", 1, 0 )
        lRet := .F.


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

Return lRet