Á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:Geração de arquivos E-billing 1998B e 1998BI - TXT - LEDES98


02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite a alteração dos campos usados no preenchimento das informações do arquivo e-billing 1998B e 1998B Internacional.

Localização:

Atualizações >> Movimentações >> E-billing LEDES 1998B

Programa Fonte:

LEDES98

Função:

MontaCabec

Ponto de Entrada:LEDES98Es
Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXBarray

Array com 7 posições

NomeTipoDescrição
PARAMIXB[1]LógicoIndica se o e-billing é o 1998BI (internacional)
PARAMIXB[2]Array*Estrutura dos Dados de Honorários
PARAMIXB[3]Array*Estrutura dos Dados de Despesas
PARAMIXB[4]Array*Estrutura dos Dados de Lançamentos Tabelados
PARAMIXB[5]Array*Estrutura dos Dados de Descontos ou Acréscimos de Faturas
PARAMIXB[6]Array*Estrutura dos Dados de Impostos
PARAMIXB[7]Array*Estrutura dos Dados da parcela fixa


*Os Arrays de Parâmetros de Entrada/Saída devem possuir a seguinte estrutura:

NomeTipoDescrição
aEstru[01]CaractereCabeçalho do Campo
aEstru[02]Caractere

Tipo do Dado, onde:

F - Fórmula com retorno numérico

" " - Expressão com retorno alpha

C - Campo

aEstru[03]NuméricoTamanho do Campo
aEstru[04]Numérico Decimais do Campo
aEstru[05]CaractereNome do Campo** ou Código da Expressão
aEstru[06]CaractereCampos específicos** 


*Campos utilizados nas querys enviadas aos banco de dados, caso o tipo do campo seja "C" - Será enviada o valor da coluna 5 (Nome do campo); caso contrário, a coluna 6 (Campos específicos).

Para a consulta podem ser utilizados os campos das seguintes tabelas:

DadoTabelas Consultadas
HonoráriosNXA - Faturas
NW0 - Time Sheets Faturamento
NUE - Time Sheets
NVE - Casos
NUR - Complemento do Participante
RD0 - Participantes
NUH - Complemento do Cliente
NRX - Empresas de E-billing
CTO - Moedas Contábeis
NTQ - Escritório E-Billing
NS7 - Escritórios
SYA - Países
NRV - Categoria E-billing
NS0 - Tipo de Atividade de E-billing
NRY - Fase E-billing
NRZ - Tarefa E-billing
DespesasNXA - Faturas
NVZ - Despesa Faturamento
NVY - Despesas
NVE - Casos
NUR - Complemento do Participante
RD0 - Participantes
NUH - Complemento do Cliente
NRX - Empresas de E-billing
CTO - Moedas Contábeis
NTQ - Escritório E-Billing
NS7 - Escritórios
SYA - Países
NS2 - Tipo de Categoria E-billing (De/Para)
NRV - Categoria E-billing
NS4 - Tipo desp E-billing (de-para)
NS3 - Tipo de despesa de E-billing
Lançamentos tabeladosNXA - Faturas
NW4 - Lancamento Tabelado Fatu
NV4 - Lançamentos Tabelados
NVE - Casos
RD0 - Participantes
NUR - Complemento do Participante
NUH - Complemento do Cliente
NRX - Empresas de E-billing
CTO - Moedas Contábeis
NTQ - Escritório E-Billing
NS7 - Escritórios
SYA - Países
NRV - Categoria E-billing
NXO - Serv Tab E-Billing (de/para)
NXN - SERVIÇOS TABELADOS E-BILLING
Acréscimos/DescontosNXA - Faturas
RD0 - Participantes
NUH - Complemento do Cliente
NRX - Empresas de E-billing
CTO - Moedas Contábeis
NTQ - Escritório E-Billing
NS7 - Escritórios
SYA - Países
ImpostosNXA - Faturas
RD0 - Participantes
NUH - Complemento do Cliente
NRX - Empresas de E-billing
CTO - Moedas Contábeis
NTQ - Escritório E-Billing
NS7 - Escritórios
SYA - Países
Fixo

NXA - Faturas
NXB - Contratos da Fatura 
NT0 - Contrato
NT1 - Parcela do Fixo
RD0 - Participantes
NUR - Complemento do Participante
NUH - Complemento do Cliente
NRX - Empresas de E-billing
CTO - Moedas Contábeis
NTQ - Escritório E-Billing
NS7 - Escritórios
NWE - Faturamento do Fixo
NRV - Categoria E-billing
NR2 - Descrição Categoria do Profissional  
NT5- Título do contrato por idioma

Sim



Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Array com 6 posições

NomeTipoDescrição
aRetorno[1]Array*

Estrutura dos Dados de Honorários, se  retornado vazio é considerado o padrão.

aRetorno[2]Array*Estrutura dos Dados de Despesas, se  retornado vazio é considerado o padrão.
aRetorno[3]Array*Estrutura dos Dados de Lançamentos Tabelados, se  retornado vazio é considerado o padrão.
aRetorno[4]Array*Estrutura dos Dados de Descontos ou Acréscimos de Faturas, se  retornado vazio é considerado o padrão.
aRetorno[5]Array*Estrutura dos Dados de Impostos, se  retornado vazio é considerado o padrão.
aRetorno[6]Array*Estrutura dos Dados das parcelas fixas, se retornado vazio é considerado o padrão.
Sim




03. EXEMPLO

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

User Function Ledes98Es()
Local aCabecHonC := {}
Local aCabecDesC := {}
Local aCabecTabC := {}
Local aCabecAjuC := nil
Local aCabecImpC := nil

Local aCabecFixC := nil

Local l1998BI := .F.
Local nC := 0
Local aRet := {}


If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 6 .AND. ValType(PARAMIXB[02]) == "A"
    l1998BI := PARAMIXB[01]
    aCabecHonC := aClone(PARAMIXB[02])
    aCabecDesC := aClone(PARAMIXB[03])
    aCabecTabC := aClone(PARAMIXB[04])
    aCabecFixC  := aClone(PARAMIXB[07])


    For nC := 1 to Len(aCabecHonC)
        Do Case 
        Case aCabecHonC[nC, 05] = "RD0_NOME"
            aCabecHonC[nC, 05] := "NUR_APELI"
        Case aCabecHonC[nC, 05] == "EXP21"
            aCabecHonC[nC, 06] := "NUR_APELI"
        Case aCabecHonC[nC, 05] == "EXP22"
            aCabecHonC[nC, 06] := "NUR_APELI"
        EndCase

    Next nC 

    aAdd(aRet, aClone(aCabecHonC))

    For nC := 1 to Len(aCabecDesC)
        Do Case 
        Case aCabecDesC[nC, 05] = "RD0_NOME"
            aCabecDesC[nC, 05] := "NUR_APELI"
        Case aCabecDesC[nC, 05] == "EXP21"
            aCabecDesC[nC, 06] := "NUR_APELI"
        Case aCabecDesC[nC, 05] == "EXP22"
            aCabecDesC[nC, 06] := "NUR_APELI"
        EndCase

    Next nC 


    aAdd(aRet, aClone(aCabecDesC))

    For nC := 1 to Len(aCabecTabC)
        Do Case 
        Case aCabecTabC[nC, 05] = "RD0_NOME"
            aCabecTabC[nC, 05] := "NUR_APELI"
        Case aCabecTabC[nC, 05] == "EXP21"
            aCabecTabC[nC, 06] := "NUR_APELI"
        Case aCabecTabC[nC, 05] == "EXP22"
            aCabecTabC[nC, 06] := "NUR_APELI"
        EndCase

    Next nC 


    aAdd(aRet, aClone(aCabecTabC))

    aAdd(aRet, aClone(aCabecAjuC) )

    aAdd(aRet, aClone(aCabecImpC))

    aAdd(aRet, aClone(aCabecFixC))

Else
    aRet := Array(6)
EndIf
Return aRet

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>