RestAPI.Request.Execute;
          if RestAPI.Response.Status.Success then
          begin
            //{
            //  "info": {
            //    "dataGeracao": "2020-11-05T17:34:54.717Z",
            //    "funcao": "string",
            //    "database": "string",
            //    "quantidade": 0,
            //    "pagina": 0,
            //    "houveErro": true,
            //    "erroMsg": "string",
            //    "dados": {
            //      "uf": "string",
            //      "dt_ini_vigencia": "2020-11-05T17:34:54.717Z",
            //      "dt_fim_vigencia": "2020-11-05T17:34:54.717Z",
            //      "chave": "string",
            //      "versao": "string",
            //      "fonte": "string",
            //      "lista_ncm": [
            //        {
            //          "cod_ncm": 0,
            //          "ds_ncm": "string",
            //          "ex": "string",
            //          "tipo": 0,
            //          "aliqfed": 0,
            //          "aliqimp": 0,
            //          "aliqest": 0,
            //          "aliqmunic": 0
            //        }
            //      ]
            //    }
            //  }
            //}

            if (not RestAPI.Response.JSONValue.P['info'].P['dados'].Null) then
            begin
              ncm_data := TJson.JsonToObject<TInfoNcmIbpt>(RestAPI.Response.JSONValue.P['info'].P['dados'].ToString);
              GravaLog(RestAPI.Response.JSONValue.Format(2), '00-InfoNcmIBPT.json');

              EnviaMsgExt('Atualizando tabela de NCM/IBPT (' + Length(ncm_data.lista_ncm).ToString + ')');
              Sleep(1000);

              for i := 0 to Length(ncm_data.lista_ncm) - 1 do
              begin
                FdmIM.AtualizaNCM(ncm_data.lista_ncm[i].cod_ncm,
                                  ncm_data.lista_ncm[i].ds_ncm);

                FdmIM.AtualizaIBPT(ncm_data.lista_ncm[i].cod_ncm,
                                   ncm_data.uf,
                                   ncm_data.lista_ncm[i].ex,
                                   ncm_data.lista_ncm[i].tipo,
                                   ncm_data.lista_ncm[i].aliqimp,
                                   ncm_data.lista_ncm[i].aliqfed,
                                   ncm_data.lista_ncm[i].aliqest,
                                   ncm_data.lista_ncm[i].aliqmunic,
                                   ncm_data.dt_ini_vigencia,
                                   ncm_data.dt_fim_vigencia,
                                   ncm_data.chave,
                                   ncm_data.versao,
                                   ncm_data.fonte
                                   );

                EnviaMsgExt('Atualizando tabela de NCM/IBPT ' + Qry.FieldByName('UF').AsString + ' ' +
                           (i + 1).ToString + '/' + Length(ncm_data.lista_ncm).ToString + ' ' +
                           '(NCM: ' + ncm_data.lista_ncm[i].cod_ncm.ToString + ')');
              end;

              FreeAndNil(ncm_data);
            end;