Histórico da Página
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: |
| ||||||||||||||||||||||||
Retorno: |
|
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> |