Histórico da Página

 Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

02. PONTO DE ENTRADA

03. EXEMPLO

#INCLUDE "PROTHEUS.CH"
#INCLUDE "PARMTYPE.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} J201CPF
Ponto de entrada na emissão de Pré-Fatura

@param  PARAMIXB   , array   , Parâmetros do ponto de entrada
        PARAMIXB[1], caracter, Código da Pré-Faturaadmin

@return aRetPE     , array   , Retorna dados do ponto de entrada
        aRetPE[1]  , logico  , Verdadeiro para permitir a emissão dá Pré-Faturas
        aRetPE[2]  , caracter, Retornar vazio ou mensagem de justificativa

@author  TOTVS
@since   16/03/2020
@obs     Ponto de entrada será executado para cada Pré-Fatura emitida
/*/
//-------------------------------------------------------------------
User Function J201CPF()
    Local aArea      := GetArea()
    Local aAreaNX0   := NX0->(GetArea())
    Local cCodPreFat := ""
    Local aRetPE     := {.T., ""}

    If ValType( PARAMIXB ) == "A"
        cCodPreFat := PARAMIXB[1]

        NX0->(DbSetOrder(1)) // NX0_FILIAL + NX0_COD
        If NX0->(DbSeek(xFilial("NX0") + cCodPreFat))
            RecLock("NX0", .F.)
            NX0->NX0_OBSFAT := "Gravação efetuada através do ponto de entrada J201CPF"
            NX0->(MsUnLock())
        EndIf
    EndIf

    RestArea(aAreaNX0)
    RestArea(aArea)

Return (aRetPE)

<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>