01. DADOS GERAIS
Produto: | Solucoes_totvs |
---|
Solucao | TOTVS Saúde Planos |
---|
|
Solucoes_totvs_parceirosexptotvs |
---|
|
|
---|
Linha de Produto: | |
---|
Segmento: | |
---|
Módulo: | INTEGRAÇÕES |
---|
Função: | SOLICITAÇÃO DE ATENDIMENTO |
---|
País: | Brasil |
---|
Ticket: |
|
---|
Requisito/Story/Issue (informe o requisito relacionado) : | DSAUBE-16362 |
---|
02. SITUAÇÃO/REQUISITO
Necessidade de Alteração, Inclusão e Exclusão de atributos no JSON de envio de Aviso de Pronto Socoroo Socorro para a HealthMap.
03. SOLUÇÃO
Implementado Ponto de Entrada, ao final da montagem do JSON no padrão do sistema.
Nome do Ponto de Entrada: PLMPJSSCR
...
Bloco de código |
---|
language | c# |
---|
theme | RDark |
---|
title | Exemplo de Uso |
---|
linenumbers | true |
---|
|
#Include "PROTHEUS.CH"
User Function PLMPJSSCR()
Local cJson := ""
Local cOpeInt := Substr(PARAMIXB[1], 1, 4)
Local cAnoInt := Substr(PARAMIXB[1], 5, 4)
Local cMesInt := Substr(PARAMIXB[1], 9, 2)
Local cNumInt := Substr(PARAMIXB[1], 11, 8)
Local cJsonPE := PARAMIXB[2]
Local oResponse := JsonObject():New()
oResponse:FromJson(cJsonPE)
// Tratamento para montagem do JSON
cJson := FWJsonSerialize(aListaSocornacao, .F., .F.)
Return cJson |
Observação: Nessa Integração, o JSON enviado é no formato de Array com uma lista de Objetos. Exemplo:
Bloco de código |
---|
language | c# |
---|
theme | RDark |
---|
title | JSON de Envio |
---|
linenumbers | true |
---|
|
[
{
"codigoExtProntoSocorro":"000120220900000060",
"codigoExtBeneficiario":"00011012000001019",
"carteirinhaBeneficiario":"00011012000001019",
"dataProntoSocorro":"15\/09\/2022 15:34:5",
"observacao":""
}
] |
05. ASSUNTOS RELACIONADOS