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

Descrição:	Este ponto de entrada permite validar se uma fatura pode ou não gerar um documento fiscal, durante a emissão dos documentos fiscais.utiliza o adiantamento na tela de emissão de fatura
Localização:	Atualizações >> Docs Fiscais Movimentações >> Emissão de Documentos FiscaisFaturas
Programa Fonte:	JURA203JURA205
Função:	J205GERANFJ203ACTBT3
Ponto de Entrada:	J205VDocJ203ADIB
Parâmetros:	Não há. Obs.: Na execução do PE está posicionado no registro da fatura e do adiantamento selecionado.

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

Sim

Retorno:

Mensagem para ser exibida ao usuário para informá-lo o motivo que a fatura não pôde gerar documento fiscal.

Nome	Tipo	Descrição	Obrigatório
aRetornolValid	Array	lógico	Retornar verdadeiro para permitir o uso do adiantamento e falso para bloquear Array com 2 posições
Nome	Tipo	Descrição
aRetorno[1]	Lógico	Quando verdadeiro, irá seguir o fluxo normal de validação. Quando falso, irá impedir a emissão de documento fiscal para a fatura que foi recebida pelo parâmetro 'PARAMIXB'.
aRetorno[2]	Caracter	Sim

03. EXEMPLO

#INCLUDE "RWMAKE.ch"

#INCLUDE "PROTHEUS.chCH"

//-------------------------------------------------------------------
/*{Protheus.doc} J205VDoc()J203AdiB
Ponto de entrada executado ao clicar no botão de "Adicionar" o
adiantamento na emissão de faturas

@return lValid, logico, Se verdadeiro permite o uso do adiantamento
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  01/0305/2020
@version 1.0
/*/
//-------------------------------------------------------------------
User Function J205VDocJ203AdiB()
    Local aArea := GetArea()
    Local aAreaNXA   cEscrFat := NXA->(GetArea())>NXA_CESCR
    Local cEscrit   := PARAMIXB[1] // Código do escritório da fatura emitida cCliAdi  := NWF->NWF_CCLIAD
    Local cFatura := PARAMIXB[2] // Código do fatura fatura emitida cLojaAdi := NWF->NWF_CLOJAD
    Local lPodeEmit   lValid   := .T.

    Local cMsgErro :If cCliAdi == ""
    If NXA->(DbSeek(xFilial("NXA")+cEscrit+cFatura))
        // Verifica se o código da fatura é par
        If Mod(Val(NXA->NXA_COD), 2) == 0
            lPodeEmit JCM000" .And. cLojaAdi == "01" .And. cEscrFat == "SP100"
        lValid := .F.
            cMsgErro  := "A fatura não pode ser emitida devido o código ser par."
        EndIf
    Endif
    RestArea(aAreaNXA)
    RestArea(aArea)Return {lPodeEmit, cMsgErro}        ApMsgInfo("Uso de adiantamneto não permitido para o cliente: '" + cCliAdi + " - " + cLojaAdi + "!")
    EndIf

Return (lValid)

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 2

Chave

02. PONTO DE ENTRADA

03. EXEMPLO