Linha de Produto: | Microsiga Protheus® | ||||||||
Segmento: | Jurídico | ||||||||
Módulo: | SIGAJURI | ||||||||
Rotina: |
| ||||||||
Ponto de Entrada: | PEJURFIN / PEJURCOM | ||||||||
País(es): | Todos |
Descrição: | O ponto de entrada permite inclusão de novos campos na integração Compras/Financeiro A Integração Financeira do módulo SIGAJURI para Garantias e Despesas ocorrem quando: Parametro MV_JINTVAL for igual a 1; Os pontos de entrada abaixo tem os seguintes comportamentos: PEJURFIN Garantia Controle de alçada ativado ( MV_JALCADA == 1 ) ocorre na liberação do documento no módulo de Compras . Controle de alçada desativado ( MV_JALCADA == 2 ) ocorre na confirmação da Garantia. Despesas Controle de alçada desativado ( MV_JALCADA == 2 ) ocorre na confirmação da Despesa. PEJURCOM ( somente para Despesa ) Despesas Controle de alçada ativado ( MV_JALCADA == 1 ) neste caso será gerado um Pedido de Compra. | |||||||||||||||||||||||||||||||||
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 - A array aCabSE2, não pode ser alterada, usada apenas para visualização dos valores padrões do sistema.
PEJURCOM - As arrays aCabSC7 e aCampos não podem ser alteradas, usadas apenas para visualização dos valores padrões do sistema.
| |||||||||||||||||||||||||||||||||
| Retorno | O retorno deve ser um Array Bi-dimencional de 3 posições na segunda dimensão para Garantias ou Despesas sem controle de Alçada Exemplo Garantia : AADD(aRet,{"C7_XCUSTOM2", U_buscaValorY(cCajuri+cCodLan),NIL}) Exemplo Despesa sem controle de alçada : AADD(aRet,{"C7_XCUSTOM2", U_buscaValorY(cCajuri+cCodLan),NIL}) Exemplo Despesa com controle de Alçada : CABEÇALHO ITEM |
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 cTabela := ParamIxb[3] Local aCabSE2x := ParamIxb[4] Local nI :=0 Local cValorX :="" Alert(cCajuri) Alert(cCodLan) Alert(cTabela) 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} ) 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 cTabela := ParamIxb[3] Local aCabSC7x := ParamIxb[4] Local aCamposx := ParamIxb[5] Local nI :=0 Local cValorX :="Cabeçalho" + CRLF + "---------------------------" + CRLF Local cValorY :="Itens" + CRLF + "---------------------------" + CRLF Alert(cCajuri) Alert(cCodLan) Alert(cTabela) 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,"C"} ) aEval(aAreas, {|x| RestArea(x) }) Return(aRet) |
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.
