Histórico da Página

...

Nome do Ponto de Entrada: PLMPJSBE

Parâmetros:
PARAMIXB[1] : cCodInt cMatricula (Código da Operadora do Beneficiário)
PARAMIXB[2] : cCodEmp (+ Código da Empresa do Beneficiário)
PARAMIXB[3] : cMatric (Matricula do Beneficiário)
PARAMIXB[4] : cTipReg (Tipo do Registro do Beneficiário)
PARAMIXB[5] : cDigito (Digito do Beneficiário+ Matricula + Tipo do Registro + Digito)
PARAMIXB[62] : oResponse (Objeto JsonObject, com o JSON no padrão)

Retorno: String com o JSON final para comunicação.

#Include "PROTHEUS.CH"

User Function PLMpJsBe()
    
    Local cJson := ""
    Local cCodInt := Substr(PARAMIXB[1], 1, 4)
    Local cCodEmp := Substr(PARAMIXB[2]1], 5, 4)
    Local cMatric := Substr(PARAMIXB[3]1], 9, 6)
    Local cTipReg := Substr(PARAMIXB[4]1], 15, 2)
    Local cDigito := Substr(PARAMIXB[5]1], 17, 1)
    Local oResponse := PARAMIXB[6]

    // Tratamento para montagem do JSON

    cJson := FWJsonSerialize(oResponse, .F., .F.)

Return cJson

...