Histórico da Página

Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Jurídico
Módulo:	Pré-faturamento de Serviços - SIGAPFS
Função:	Emissão de Faturas - JURA203

02. PONTO DE ENTRADA

Sim

Nenhum

Descrição:

Ponto de entrada executado após a criação dos títulos a receber da fatura. Em caso de parcelamento, o ponto de entrada é executado logos após a criação de cada título.

Nesse momento está posicionado na fatura e no título que foi criado.

Localização:

Atualizações >> Docs Fiscais >> Emissão de Documentos Fiscais> Movimentações >Emissão de Faturas

Programa Fonte:

JURA203

Função:

JA203TIT

Ponto de Entrada:

JA203SE1

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB

Array

Array com 2 posições

Nome	Tipo	Descrição
PARAMIXB[1]	caractere	Código do escritório da fatura
PARAMIXB[2]	caractere	Código da fatura

Retorno:

Nenhum

03. EXEMPLO

#INCLUDE "RWMAKE.ch"

#INCLUDE "PROTHEUS.chCH"

//-------------------------------------------------------------------
/*{Protheus.doc} J205VDoc()JA203SE1
Ponto de entrada após a criação de cada título da fatura
Ponto de entrada para validar se a fatura pode gerar documento fiscal
@param PARAMIXB[1] Código do escritório da fatura emitida
@param PARAMIXB[2] Código do fatura fatura emitida

@author TOTVS
@since 27@since  15/0305/2020
@version 1.0
/*/
//-------------------------------------------------------------------
User Function J205VDocJA203SE1()
    Local aArea   cFatura := GetArea()
    Local aAreaNXA  := NXA->(GetArea())
    Local cEscrit   := PARAMIXB[1] // Código do escritório da fatura emitida
    Local cFatura := PARAMIXB[2] // Código do fatura fatura emitida
    Local lPodeEmit  := .T.
    Local cMsgErro := ""
    If NXA->(DbSeek(xFilial("NXA")+cEscrit+cFatura))
        // Verifica se o código da fatura é par
        If Mod(Val(NXA->NXA_COD), 2) == 0
            lPodeEmit := .F.
            cMsgErro  := "A fatura não pode ser emitida devido o código ser par."
        EndIf
    Endif
    RestArea(aAreaNXA)
    RestArea(aArea)Return {lPodeEmit, cMsgErro} NXA->NXA_COD

    RecLock("SE1", .F.)
    SE1->E1_HIST := "Fatura: " + cFatura
    SE1->(MsUnLocK())

Return Nil

Templatedocumentos

HTML

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

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

02. PONTO DE ENTRADA

03. EXEMPLO