Histórico da Página
Ajuste nos Pontos de Entrada PEJURCOM e PEJURFIN
Características do Requisito
Linha de Produto: | Microsiga Protheus® | ||||||||
Segmento: | Jurídico | ||||||||
Módulo: | SIGAJURI | ||||||||
Rotina: |
| ||||||||
Ponto de Entrada: | PEJURFIN / PEJURCOM | ||||||||
País(es): | Todos |
Ponto de Entrada
Descrição: | O ponto de entrada permite inclusão de novos campos na integração Compras/Financeiro | |||||||||||||||||||||||||||||||||||||||||||||
Localização: | Rotina de inclusão de Garantias / Rotina de inclusão de Despesas / Liberação de Documentos | |||||||||||||||||||||||||||||||||||||||||||||
Eventos: | O ponto de entrada é executado antes do ExecAuto do MATA120 / ExecAuto do FINA050 | |||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | JURXFUNB - Integrações | |||||||||||||||||||||||||||||||||||||||||||||
| Parametros | PEJURFIN
PEJURCOM
| |||||||||||||||||||||||||||||||||||||||||||||
| Retorno | O retorno deve ser um Array Bi-dimencional de 3 posições na segunda dimensão Exemplo : AADD(aRet,{"C7_XCUSTOM2", U_buscaValorY(cCajuri+cCodLan),NIL}) |
Exemplo
| PEJURFIN | PEJURCOM |
|---|---|
#INCLUDE "rwmake.ch" #INCLUDE "PROTHEUS.ch" User Function PEJURFIN() Local aAreas := {GetArea()} Local aRet := {} Local cCajuri := ParamIxb[1] Local cCodLan := ParamIxb[2] Local cFilDest := ParamIxb[3] Local cTabela := ParamIxb[4] Local cFilOri := ParamIxb[5] Local aCabSE2x := ParamIxb[6] Local nI :=0 Local cValorX :="" Alert(cCajuri) Alert(cCodLan) Alert(cFilDest) Alert(cTabela) Alert(cFilOri) For nI=1 to len(aCabSE2x) If ValType(aCabSE2x[nI][2]) == 'C' cValorX += aCabSE2x[nI][1]+" | " + aCabSE2x[nI][2] + CRLF ElseIf ValType(aCabSE2x[nI][2]) == 'N' cValorX += aCabSE2x[nI][1]+" | " + cValToChar(aCabSE2x[nI][2]) + CRLF ElseIf ValType(aCabSE2x[nI][2]) == 'D' cValorX += aCabSE2x[nI][1]+" | " + DToS(aCabSE2x[nI][2]) + CRLF EndIf Next Alert(cValorX)
// RETORNO AADD(_aRet,{"E2_XCUSTOM", "VALOR CUSTOM",NIL} ) AADD(_aRet,{"E2_XCUSTOM2", U_buscaValorX(cCajuri+cCodLan),NIL} ) aEval(aAreas, {|x| RestArea(x) }) Return(aRet)
| #INCLUDE "rwmake.ch" #INCLUDE "PROTHEUS.ch" User Function PEJURCOM() Local aAreas := {GetArea()} Local aRet := {} Local cCajuri := ParamIxb[1] Local cCodLan := ParamIxb[2] Local cFilDest := ParamIxb[3] Local cTabela := ParamIxb[4] Local cFilOri := ParamIxb[5] Local aCabSC7x := ParamIxb[6] Local aCamposx := ParamIxb[7] Local nI :=0 Local cValorX :="Cabeçalho" + CRLF + "---------------------------" + CRLF Local cValorY :="Itens" + CRLF + "---------------------------" + CRLF Alert(cCajuri) Alert(cCodLan) Alert(cFilDest) Alert(cTabela) Alert(cFilOri) For nI=1 to len(aCabSC7x) If ValType(aCabSC7x[nI][2]) == 'C' cValorX += aCabSC7x[nI][1]+" | " + aCabSC7x[nI][2] + CRLF ElseIf ValType(aCabSC7x[nI][2]) == 'N' cValorX += aCabSC7x[nI][1]+" | " + cValToChar(aCabSC7x[nI][2]) + CRLF ElseIf ValType(aCabSC7x[nI][2]) == 'D' cValorX += aCabSC7x[nI][1]+" | " + DToS(aCabSC7x[nI][2]) + CRLF EndIf Next For nI=1 to len(aCamposX) If ValType(aCamposX[nI][2]) == 'C' cValorY += aCamposX[nI][1]+" | " + aCamposX[nI][2] + CRLF ElseIf ValType(aCamposX[nI][2]) == 'N' cValorY += aCamposX[nI][1]+" | " + cValToChar(aCamposX[nI][2]) + CRLF ElseIf ValType(aCamposX[nI][2]) == 'D' cValorY += aCamposX[nI][1]+" | " + DToS(aCamposX[nI][2]) + CRLF EndIf Next Alert(cValorX) Alert(cValorY)
// RETORNO AADD(aRet,{"C7_XCUSTOM", "VALOR CUSTOM",NIL} ) AADD(aRet,{"C7_XCUSTOM2", U_buscaValorY(cCajuri+cCodLan),NIL} )
aEval(aAreas, {|x| RestArea(x) }) Return(aRet) |
#INCLUDE "rwmake.ch"
#INCLUDE "PROTHEUS.ch"
/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³NOVO2 º Autor ³ AP6 IDE º Data ³ 08/05/15 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Codigo gerado pelo AP6 IDE. º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP6 IDE º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
/*/
User Function PEJURFIN()
Local _ant :=Getarea()
Local _aRet := {}
Local cCajuri := ParamIxb[1]
Local cCodLan := ParamIxb[2]
Local cFilDest := ParamIxb[3]
Local cTabela := ParamIxb[4]
Local cFilOri := ParamIxb[5]
Local aCabSE2x := ParamIxb[6]
Local nI :=0
Local cValorX :=""
Alert(cCajuri)
Alert(cCodLan)
Alert(cFilDest)
Alert(cTabela)
Alert(cFilOri)
For nI=1 to len(aCabSE2x)
If ValType(aCabSE2x[nI][2]) == 'C'
cValorX += aCabSE2x[nI][1]+" | " + aCabSE2x[nI][2] + CRLF
ElseIf ValType(aCabSE2x[nI][2]) == 'N'
cValorX += aCabSE2x[nI][1]+" | " + cValToChar(aCabSE2x[nI][2]) + CRLF
ElseIf ValType(aCabSE2x[nI][2]) == 'D'
cValorX += aCabSE2x[nI][1]+" | " + DToS(aCabSE2x[nI][2]) + CRLF
EndIf
Next
Alert(cValorX)
Observações:
Controle de alçada estiver ativo no módulo jurídico:
O procedimento PEJURCOM contempla a rotina JURA099 - Despesas;
Na rotina de liberação de documentos do módulo Compras a tabela NT2 - Garantias não estará disponível para uso.
Return(_aRet)Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas