_JsonStatus is JSON
solicitacao_http is restRequest
sCodigo, sDescricao is string
sTipoAto, sNumeroAto, sAnoAto is string
dDataIni, dDataFim, _DataI,_DataF is Date

HourGlass(True)
solicitacao_http..URL = EDT_LocalJson //Recebe o endereço do Json

resposta_http is restResponse = RESTSend(solicitacao_http)

IF ErrorOccurred THEN
Error(ErrorInfo(errFullDetails))
RETURN
END

_JsonStatus = resposta_http..Content

_Ocorrencias is int = _JsonStatus.nomenclaturas..Occurrence
IF _Ocorrencias <> 0 THEN
FOR i = 1 TO _Ocorrencias
sCodigo = NoCharacter(_JsonStatus.nomenclaturas[i].Codigo,".",sscAll)
sDescricao = NoCharacter(_JsonStatus.nomenclaturas[i].Descricao,CR,sscAll)
sDescricao = NoCharacter(_JsonStatus.nomenclaturas[i].Descricao,"-",sscAll)

_DataI = NoCharacter(NoSpace(_JsonStatus.nomenclaturas[i].Data_Inicio),"/",sscAll)
dDataIni = Middle(_DataF,5,4) + Middle(_DataF,3,2) + Middle(_DataF,1,2) // para transformar a data para Ano/Me/Dia

_DataF = NoCharacter(NoSpace(_JsonStatus.nomenclaturas[i].Data_Fim),"/",sscAll)
dDataFim = Middle( _DataF,5,4) + Middle(_DataF,3,2) + Middle(_DataF,1,2)

sTipoAto = _JsonStatus.nomenclaturas[i].Tipo_Ato
sNumeroAto = _JsonStatus.nomenclaturas[i].Numero_Ato
sAnoAto = _JsonStatus.nomenclaturas[i].Ano_Ato

IF Length(sCodigo) = 8 THEN //Será adicionado apenas os registro NCM completos, com 8 dígitos.
HReset(ncmsul)
ncmsul.ncm = sCodigo
ncmsul.desc = sDescricao
ncmsul.dataVig = dDataIni
ncmsul.dataFim = dDataFim
ncmsul.tipo = sTipoAto
ncmsul.numero = sNumeroAto
ncmsul.ano = sAnoAto
HAdd(ncmsul)
END
END

HourGlass(False)
Info("Fim da importação")
ELSE
Error("Arquivo não Encontrado!")
END