Exibir origem

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 PUT no Sistema de Operadora de Frotas da PagBem.

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

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

#INCLUDE "PROTHEUS.CH"

//--------------------------------------------------
/*/{Protheus.doc} TMXJPUT()
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 TMXJPUT()

    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 TMXJPUT",, 'TMXJPUT', .F., 5000 )

Return aRet

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>