Histórico da Página

Este ponto de entrada grava os títulos do tipo: NF, RA, BOL, 

Este ponto não grava os campos de títulos criados por desdobramento. 

Este ponto não grava os campos de títulos criados para impostos. 

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. 

#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

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>