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 cCodFat := ""
Local aRelats := ""
Local cNewFile := ""
Local lOpenFile := ""
Local lRotinaPadrao := .T.
Local lRet := .F.
Local aRetorno := { lRotinaPadrao, lRet, cNewFile }
Local aAliasNXA := {}
Local aAliasSA1 := {}

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

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

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

            cNewFile := "u_"+AllTrim(cCodFat)+"-"+StrTran(StrTran(AllTrim(SA1->A1_NOME),".", "_")," ","_")+".pdf"
        EndIf
        aRetorno[02] := .T.
        aRetorno[03] := UPPER(cNewFile)
        RestArea(aAliasSA1)
    EndIf
    RestArea(aAliasNXA)
EndIf
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 8

Nova versão Atual

Chave

02. PONTO DE ENTRADA

03. EXEMPLO