01. DADOS GERAIS
| Produto: | | Solucoes_totvs |
|---|
| Solucao | TOTVS Saúde Planos |
|---|
|
| Solucoes_totvs_parceirosexptotvs |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | INTEGRAÇÕES |
|---|
| Função: | CADASTRO DE BENEFICIÁRIOS |
|---|
| 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 Beneficiários 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: PLMPJSBE
...
| Bloco de código |
|---|
| language | c# |
|---|
| theme | RDark |
|---|
| title | Exemplo de Uso |
|---|
| linenumbers | true |
|---|
|
#Include "PROTHEUS.CH"
User Function PLMpJsBe()
Local cJson := ""
Local cCodInt := Substr(PARAMIXB[1], 1, 4)
Local cCodEmp := Substr(PARAMIXB[1], 5, 4)
Local cMatric := Substr(PARAMIXB[1], 9, 6)
Local cTipReg := Substr(PARAMIXB[1], 15, 2)
Local cDigito := Substr(PARAMIXB[1], 17, 1)
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
