01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:INTEGRAÇÕES
Função:CADASTRO DE EMPRESAS
País:Brasil
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-15895


02. SITUAÇÃO/REQUISITO

Necessidade de Alteração, Inclusão e Exclusão de atributos no JSON de envio de Empresas para a HealthMap.

03. SOLUÇÃO

Implementado Ponto de Entrada, ao final da montagem do JSON no padrão do sistema.

04. DEMAIS INFORMAÇÕES

Nome do Ponto de Entrada: PLMPJSEM

Parâmetros:
PARAMIXB[1] : cChaveEmpresa (Código da Operadora + Código da Empresa)
PARAMIXB[2] : cJson (JSON padrão para comunicar)

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


#Include "PROTHEUS.CH"

User Function PLMpJsEm()

    Local cJson := ""
    Local cCodInt := Substr(PARAMIXB[1], 1, 4)
    Local cCodEmp := Substr(PARAMIXB[1], 5, 4)
    Local cJsonPE := PARAMIXB[2]
    Local oResponse := JsonObject():New()
    
    oResponse:FromJson(cJsonPE)

    // Tratamento para montagem do JSON

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

Return cJson

05. ASSUNTOS RELACIONADOS