Linha Microsiga Protheus

Árvore de páginas


01. Descrição

Este ponto de entrada permite ao usuário a possibilidade de alterar os parâmetros enviados aos EndPoint que realizam a ação de POST no Sistema de Operadora de Frotas da PagBem.

É acionado por todos os métodos da classe TMSBCAPagBem que utilizam o método POST.

02. Parâmetros

  • PARAMIXB[1]
    • cPath - Endpoint da PagBem a ser executado, Variável do tipo texto;
  • PARAMIXB[2]
    • aHeaderStr - Header do endpoint, Variável do tipo array;
  • PARAMIXB[3]
    • cParams - Parâmetros do endpoint, Variável do tipo texto.

03. Rotinas que utilizam o ponto de entrada

O Ponto de entrada será chamado em todas rotinas ou funções que consultem os programas abaixo

  • Operação de Transporte (TmsA350);
  • Biblioteca de Funções Integração TMS X Repom (TMSAC15A);
  • Biblioteca de Funções Integração TMS X PamCard (TMSPAMCARD);
  • Classe para Comunicação do TMS com PAGBEM (TMSXFUNJ).

04. Exemplo da chamada


TMXJPUT
#INCLUDE "PROTHEUS.CH"

//--------------------------------------------------
/*/{Protheus.doc} TMXJPOST()
Este ponto de entrada permite alterar os parametros 
que são enviados aos endpoints da PagBem.

@since  19/07/2024
@version 1.0
/*/
//--------------------------------------------------- 

User Function TMXJPOST()

    Local cPath     := PARAMIXB[1]          // cPath        - Endpoint da PagBem a ser executado
    Local cPath2    := ""					// cPath2       - Endpoint alterado da PagBem
    Local aHdrStr   := aClone(PARAMIXB[2])  // aHeaderStr   - Header do endpoint
    Local aHdrStr2  := {}				    // aHeaderStr2  - Header do endpoint alterado 
    Local cParams   := PARAMIXB[3]          // cParams      - Parametros do endpoint
    Local cParams2  := ""				 	// cParams2     - Parametros do endpoint alterado da PagBem
    Local aRet      := {}                   // aRet         - Array de 3 posições { cPath, aRetXML, cParams }

    cPath2      := cPath + "/Teste"
    aHdrStr2    := {}
    cParams2    := cParams
    aRet        := { cPath2, aClone(aHdrStr2), cParams2 }
 
    Aviso( "Aviso", 'Endpoint alterado de: ' + cPath + Chr(10) + Chr (13) + 'Para: ' + cPath2, { "OK" }, 3, "Ponto de Entrada TMXJPOST",, 'TMXJPOST', .F., 5000 )

Return aRet