Linha Microsiga Protheus

Árvore de páginas

Ajuste nos 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

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

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]cFilDestFilial Destino do Documento
ParamIxb[4]cTabelaTabela Origem ( NT2 - Garantia ou NT3 - Despesa )
ParamIxb[5]cFilOriFilial do Lançamento
ParamIxb[6]aCabSE2Array contendo os valores padrões da integração

PEJURCOM

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]cFilDestFilial Destino do Documento
ParamIxb[4]cTabelaTabela Origem ( NT3 - Despesa )
ParamIxb[5]cFilOriFilial do Lançamento
ParamIxb[6]aCabSC7Array contendo os valores padrões da integração ( Cabeçalho do pedido de Compra )
ParamIxb[7]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

Exemplo : AADD(aRet,{"C7_XCUSTOM2", U_buscaValorY(cCajuri+cCodLan),NIL})

Exemplo

 

PEJURFINPEJURCOM

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

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.