M040SE1 - Ponto de entrada M040SE1 Gravação Auxiliar de registros na SE1.

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus
Segmento:	Serviços
Módulo:	SIGAFIN
Função:	FINA040
Requisito/Story/Issue (informe o requisito relacionado) :	DFINGRV-26282

02. SITUAÇÃO/REQUISITO

O ponto de entrada M040SE1 permite a gravação auxiliar dos títulos incluídos na SE1 Contas a Receber.

Este ponto de entrada grava campos auxiliares inclusão dos títulos principais.

Este ponto não grava os campos de títulos criados por desdobramento. (E1_DESDOBR = 1 - Sim)
.

03. CHAMADAS

O ponto de entrada somente é executado na operação INCLUIR novos registros.

04. PARÂMETROS

Este ponto de entrada não recebe parâmetros formais. Ele é executado no momento da inclusão do título a receber. Sendo possível realizar a gravação de campos extras de uso do cliente.

A utilização desse ponto de entrada permite manipular a gravação padrão do sistema. O uso incorreto deste ponto de entrada pode gerar inconsistência na base de dados.

05. EXEMPLO

M040SE1

#include "protheus.ch"
//------------------------------------------------------------------------------------------------
/*/{Protheus.doc} M040SE1
Ponto de entrada para gravações auxiliares na SE1. 

@param Nil
@return Nil

@author Financeiro Gravação
@since  26/04/2022
@version 12
/*/
//------------------------------------------------------------------------------------------------
User Function M040SE1()
    local aAreaSE1 := SE1->(GetArea())

    //Informe o campo a ser alterado e o novo valor via atribuição simples. 
    //A execução do ponto de entrada é título a título. Ex: Nf com 4 títulos, o ponto será executado nas 4 parcelas. 
    //O ponto é chamado na função A040DupRec, que é responsável pela gravação do título no Financeiro. 
    //O título está posicionado na SE1, não alterar o ponteiro. 

    DbSelectArea("SE1")

        SE1->E1_HIST    := "INC PE M040SE1 NA: " + ALLTRIM(FUNNAME())
        SE1->E1_XCPOCLI := "Campo Auxiliar E1_XCPOCLI criado no configurador do cliente."

    RestArea(aAreaSE1)

Return

Árvore de páginas