Linha Microsiga Protheus

Árvore de páginas

Pontos de Entrada PEJURCOM e PEJURFIN

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAJURI

Rotina:

Rotina

Nome Técnico

JURA098

Garantias

JURA099Despesas
JURXFUNBIntegrações

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

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.

ParametroValor OrigemDescrição

ParamIxb[1]

cCajuriCódigo do Assunto Jurídico
ParamIxb[2]cCodLan

Código do Lançamento ( Código da Garantia ou Despesa )

ParamIxb[3]cTabelaTabela Origem ( NT2 - Garantia ou NT3 - Despesa )
ParamIxb[4]aCabSE2Array contendo os valores padrões da integração

PEJURCOM - As arrays aCabSC7 e aCampos não podem ser alteradas, usadas apenas para visualização dos valores padrões do sistema.

ParametroValor OrigemDescrição

ParamIxb[1]

cCajuriCódigo do Assunto Jurídico
ParamIxb[2]cCodLan

Código do Lançamento ( Código da Garantia ou Despesa )

ParamIxb[3]cTabelaTabela Origem ( NT3 - Despesa )
ParamIxb[4]aCabSC7Array contendo os valores padrões da integração ( Cabeçalho do pedido de Compra )
ParamIxb[5]aCamposArray contendo os valores padrões da integração ( Itens do pedido de Compra )
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
AADD(aRet,{"C7_XCUSTOM2", U_buscaValorY(cCajuri+cCodLan),NIL, 'C'})

ITEM
AADD(aRet,{"C7_XCUSTOM2", U_buscaValorY(cCajuri+cCodLan),NIL, 'I'})

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 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)

 

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.