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:	Operações de Fatura - JURA204

02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite customizar a rotina de unificação de documentos, que faz parte da rotina "Operações de Faturas->Docs Relacionados".

Nele é possível tratar de forma independente a função de unificação de documentos.

Localização:

Atualizações - Movimentações - Operação de Faturas

Programa Fonte:

JURA204

Função:

J204JOIN

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
cEscrit	Caractere	Código do escritório	Sim
cFatura	Caractere	Código da fatura	Sim
aRelats	Array	Vetor com os nomes de arquivos a serem unificados	Sim
cNewFile	Caractere	Nome do arquivo que será gerado com a unificação	Sim
lOpenFile	Lógico	Indica se o arquivo será ou não aberto	Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Array com 3 posições que representam quais documentos serão emitidos ao refazer a fatura

Nome	Tipo	Descrição
aRetorno[1]	Lógico	Indica se a função padrão de unificação deverá ser executada
aRetorno[2]	Lógico	Indica se a unificação foi ou não foi bem sucedida
aRetorno[3]	Caractere	Nome do arquivo gerado com a unificação

Sim

03. EXEMPLO

#Include 'Protheus.ch'

User Function J204JOIN( cEscrit, cFatura, aRelats, cNewFile, lOpenFile )

Local cEscri Local cEscri := ""
Local cCodFat Local cCodFat := ""
Local aRelats Local aRelats := ""
Local cNewFile Local cNewFile := ""
Local lOpenFile Local lOpenFile := ""
Local lRotinaPadrao Local lRotinaPadrao := .T.
Local lRet Local lRet := .F.
Local aRetorno Local aRetorno := { lRotinaPadrao lRotinaPadrao, lRet, cNewFile lRet, cNewFile }
Local aAliasNXA Local aAliasNXA := {}
Local aAliasSA1 Local aAliasSA1 := {}

If ValTypeIf ValType(PARAMIXB) == "A" .AND. Len Len(PARAMIXB) >= 5 5

    cEscri     cEscri := ParamIXB ParamIXB[1]
    cCodFat     cCodFat := ParamIXB ParamIXB[2]
    aRelats     aRelats := ParamIXB ParamIXB[3]
    cNewFile     cNewFile := ParamIXB ParamIXB[4]
    lOpenFile     lOpenFile := ParamIXB ParamIXB[5]
    lRotinaPadrao     lRotinaPadrao := .T.
    lRet     lRet := .F.
    aRetorno     aRetorno := { lRotinaPadrao lRotinaPadrao, lRet, cNewFile  lRet, cNewFile }    NXA

    NXA->(DbSetOrder(1)) //Filial + Escritorio + Fatura
    aAliasNXA     aAliasNXA := NXA NXA->(GetArea())
    If NXA    If NXA->(DbSeek(xFilial("NXA")+ cEscri + cCodFat cEscri + cCodFat))
        aAliasSA1         aAliasSA1 := SA1 SA1->(GetArea())
        SA1        SA1->(DbSetOrder(1)) //filial+ cod+loja
        If SA1        If SA1->(DbSeek(xFilial("SA1")+ NXA NXA->(NXA_CCLIEN+NXA_CLOJA)))
        // Regra para modificar o padrão de unificação de arquivos
        //...

            cNewFile             cNewFile := "u_"+AllTrim(cCodFat)+"-"+StrTran(StrTran(AllTrim(SA1->A1>A1_NOME),".", "_")," ","_")+".pdf"
        EndIf        EndIf
        aRetorno        aRetorno[02] := .T.
        aRetorno        aRetorno[03] := UPPER UPPER(cNewFile)
        RestArea        RestArea(aAliasSA1)
    EndIf    EndIf
    RestArea    RestArea(aAliasNXA)
EndIf
Return aRetorno Return aRetorno

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 7

Nova versão 8

Chave

02. PONTO DE ENTRADA

03. EXEMPLO