Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:
Função:	FA183RES

02. DESCRIÇÃO

Ponto de entrada FA183RES é chamado antes da gravação das tabelas durante o processo de apropriação de aplicações que possuem cota.

Através do PE é possível definir se o processo de apropriação será efetuado ou não, bem como realizar gravações complementares com base na tabela SEH - Controle de Aplicação/Empréstimo.

Tabelas posicionadas:

No momento da chamada do ponto de entrada será posicionada a tabela SEH (Controle Aplicação/Empréstimo)

- SEH - Posicionado na aplicação que está sendo apropriada.

Retorno do ponto de entrada:

O ponto de entrada deve retornar uma variável do tipo Logico:

- Retorno verdadeiro: A rotina segue o fluxo normal de execução e efetua a gravação das tabelas.
- Retorno falso: A rotina aborta o processo não efetuando as gravações referentes a apropriação.

Não é possível utilizar interface gráfica ADVPL.
A função Help pode ser utilizada para retornar mensagens de possíveis validações.

03. PARAMETRO

Não se aplica

04. EXEMPLO DE UTILIZAÇÃO

#INCLUDE "totvs.ch"
 
/*/{Protheus.doc} User Function FA183RES
    Permite efetuar gravações e/ou validações complementares antes da gravação 
    das tabelas no processo de apropriação de aplicações com cota.

    Tabelas posicionadas: SEH - Controle Aplicação/Empréstimo.

    @type  Function
    @author Totvs
    @since 15/04/2025
    @version 1.0
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=934621628
/*/
User Function FA183RES() as Logical
    Local lProccess := .T. as Logical

    // Exemplo de validação:
    lProccess := SEH->EH_DATA < dDataBase

    If !lProccess
        Help(" ",1, "", "Processo de apropriação não executado.")
    EndIf

    // Exemplo de gravação complementar:
    RecLock("SEH",.F.)
        SEH->EH_MEUCPO := "XYZ"
    SEH->(MsUnLock())

Return lProccess