Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

 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 informar uma natureza de despesa específica na emissão da fatura. Esse ponto de entrada só é executado quando a fatura em emissão possuir valor de despesas reembolsáveis.

Localização:

Atualizações >> Movimentações >> Emissão de Faturas

Programa Fonte:

JURA203

Função:

JA203TIT

Ponto de Entrada:J203NDes
Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXBArray

Array com 3 posições

NomeTipoDescrição
PARAMIXB[1]caractereCódigo do escritório da fatura
PARAMIXB[2]caractereCódigo da fatura
PARAMIXB[3]caractereCódigo da Natureza de Despesa Atual
Sim



Retorno:

Nome

Tipo

Descrição

Obrigatório

cRetorno

caractere

Código da Natureza de Despesa a ser utilizada


Sim




03. EXEMPLO

#INCLUDE "RWMAKE.ch"
#INCLUDE "PROTHEUS.ch"

//-------------------------------------------------------------------
/*{Protheus.doc} J203NDes
Ponto de entrada informar a natureza de despesa específica na emissão da fatura

@param  PARAMIXB[1], caracter, Código do escritório da fatura emitida
@param  PARAMIXB[2], caracter, Código do fatura fatura emitida
@param  PARAMIXB[3], caracter, Código da natureza de despesa atual

@return cNatDesp   , caracter, Código da natureza de despesa a ser utilizada

@author TOTVS
@since  24/09/2021
@obs    Ponto de entrada executado somente se a fatura possuir valor de despesa
/*/
//-------------------------------------------------------------------
User Function J203NDes()
Local cEscrit   := PARAMIXB[1// Código do escritório da fatura emitida
Local cFatura   := PARAMIXB[2// Código do fatura fatura emitida
Local cNatAtu   := PARAMIXB[3// Código da natureza de despesa atual
Local cNatDesp  := ""

    If cEscrit == "RJ" .And. cFatura == "102030" .And. cNatAtu = "NATUDESP"
        cNatDesp := "RJ-NAT-DES"
    EndIf

Return (cNatDesp)

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>