F182PCLR - Permite manipular campos da tabela SEH antes da gravação da apropriação

01. DADOS GERAIS

02. DESCRIÇÃO

Ponto de entrada chamado imediatamente antes de limpar os dados de apropriação da tabela Cadastro de aplicação e empréstimo (SEH), ao realizar uma apropriação (de uma aplicação que não seja por cotas). O ponto de entrada é chamado dentro de uma transação.

No momento da chamada do ponto de entrada, as tabelas abaixo estão posicionadas:

• • SEH - Posicionado na aplicação/empréstimo em que está sendo feita a apropriação.
  • SA6 - Posicionado no banco vinculado à aplicação (EH_BANCO, EH_AGENCIA, EH_CONTA)
  • SED - Posicionado na natureza vinculada (EH_NATUREZ)

O ponto de entrada não recebe nenhum parâmetro e nenhum retorno é esperado.

O ponto de entrada foi criado visando a alteração de campos customizados da tabela Cadastro de aplicação e empréstimo (SEH). Portanto, o desenvolvedor deve ter em mente que campos do padrão (como EH_VALJUR ou EH_VALIOF) serão sobrepostos pela rotina de apropriação.

O controle do bloqueio do registro para alteração (recLock/msUnlock) é de responsabilidade do ponto de entrada.

03. PARÂMETROS

Não se aplica

04. EXEMPLO DE UTILIZAÇÃO

#INCLUDE "totvs.ch"
 
/*/{Protheus.doc} User Function F182PCLR 
    @type User Function
    @author Totvs
    @since 05/02/2024
    @version 12.1.2310
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=823299145
/*/ 
user function F182PCLR()
    local lNewRecord := .F. as logical

    recLock("SEH", lNewRecord)    
    
    SEH->EH_XFIELD := "My custom value"
    
    SEH->( MsUnlock() )
return