Histórico da Página

...

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 entro 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á senfo 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

...

#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

...