NOVA API SNGPC

[claudio.ferreira]

23 minutos atrás, Juliomar Marchetti disse:

certo como tu sabe isso?

rodou em outra internet ou outro local para ter certeza?

Sim rodei em outra maquina

[Juliomar Marchetti]

12 horas atrás, claudio.ferreira disse:

Sim rodei em outra maquina

e funcionou nessa outra maquina e internet?

[Vrodriz]

Em 25/12/2025 at 22:21, Juliomar Marchetti disse:

e funcionou nessa outra maquina e internet?

Só dando uma revivida aqui, alguém conseguiu fazer a integração? estava testando a API porém até o momento segue com os problemas de firewall

[Juliomar Marchetti]

8 horas atrás, Vrodriz disse:

Só dando uma revivida aqui, alguém conseguiu fazer a integração? estava testando a API porém até o momento segue com os problemas de firewall

Nada feito? abriu chamado por algum meio com eles?

[bernardi.ita]

Bom dia a todos... estou mexendo somente agora com essa nova api da anvisa... segui o exemplo do colega que postou sua rotina e ja consigo pegar o token e fazer a consulta do arquivo enviado... porem quando consulto o arquivo enviado o retorno está vindo com caracteres no lugar dos acentos... pensei ser alguma coisa relativa ao utf-8 e como utilizo delphi 7 talvez houvesse alguma incompatibilidade... porem testei direto no navegador no endereço da api do swagger https://sngpc-api.anvisa.gov.br/swagger/index.html e obtive o mesmo retorno :

{
  "Hash": "92E411DE892B5FFB6D90E475A89502CA",
  "DataTransmissao": "24/02/2026 16:21:13",
  "DataValidacao": "24/02/2026 19:03:36",
  "DataInicioReferencia": "17/08/2025 00:00:00",
  "DataFimReferencia": "23/08/2025 00:00:00",
  "MensagemValidacao": "[NOVA_LINHA]MEDICAMENTO - SA\u00CDDA POR VENDA: O CID10 (SC) n\u00E3o foi encontrado na base de dados da ANVISA.[NOVA_LINHA]MEDICAMENTO - SA\u00CDDA POR VENDA: O CID10 (SC) n\u00E3o foi encontrado na base de dados da ANVISA.[NOVA_LINHA]MEDICAMENTO - SA\u00CDDA POR VENDA: O CID10 (SC) n\u00E3o foi encontrado na base de dados da ANVISA.[NOVA_LINHA]MEDICAMENTO - SA\u00CDDA POR VENDA: O CID10 (SC) n\u00E3o foi encontrado na base de dados da ANVISA."
}

Alguma dica ? ou seria assim mesmo o retorno ? 

Obrigado

 

 

 

[Silvino]

//Pra realizar a consulta:

function ConsultarXmlSngpc(email, senha, cnpj, hash: string): String;
var
  lRequest: IRequest;
  lResponse: IResponse;
begin
  Result := '';
  try

    //Gera o token
    BEARER_TOKEN := GetTokenSNGPC(email, senha );
    API_BASE_URL := 'https://sngpc-api.anvisa.gov.br';
    //Cria a requisição
    lRequest := CreateRequest(API_BASE_URL + '/v1/FileXml/ConsultaDadosArquivoXml', true);
    lRequest.Accept('text/plain');
    lRequest.ContentType('text/plain');
    lRequest.TokenBearer(BEARER_TOKEN);

    lResponse := lRequest.BaseURL(API_BASE_URL+'/v1/FileXml/ConsultaDadosArquivoXml/'+email+'/'+cnpj+'/'+hash)
        .Accept('application/json')
        .Get;
    { Verifica a resposta }
    if lResponse.StatusCode = 200 then
    begin
      showmessage('Resposta da API: ' + lResponse.Content);
      Result := lResponse.Content;
    end
    else
    begin
      showmessage('Resposta da API: ' + lResponse.Content);
    end;
  except
    on E: Exception do
    begin
      showmessage('Erro na resposta: ' + E.Message);
    end;
  end;
end;
 

Editado 27 Maio por Silvino

[claudio.ferreira]

Em 27/05/2026 at 18:54, Silvino disse:

//Pra realizar a consulta:

function ConsultarXmlSngpc(email, senha, cnpj, hash: string): String;
var
  lRequest: IRequest;
  lResponse: IResponse;
begin
  Result := '';
  try

    //Gera o token
    BEARER_TOKEN := GetTokenSNGPC(email, senha );
    API_BASE_URL := 'https://sngpc-api.anvisa.gov.br';
    //Cria a requisição
    lRequest := CreateRequest(API_BASE_URL + '/v1/FileXml/ConsultaDadosArquivoXml', true);
    lRequest.Accept('text/plain');
    lRequest.ContentType('text/plain');
    lRequest.TokenBearer(BEARER_TOKEN);

    lResponse := lRequest.BaseURL(API_BASE_URL+'/v1/FileXml/ConsultaDadosArquivoXml/'+email+'/'+cnpj+'/'+hash)
        .Accept('application/json')
        .Get;
    { Verifica a resposta }
    if lResponse.StatusCode = 200 then
    begin
      showmessage('Resposta da API: ' + lResponse.Content);
      Result := lResponse.Content;
    end
    else
    begin
      showmessage('Resposta da API: ' + lResponse.Content);
    end;
  except
    on E: Exception do
    begin
      showmessage('Erro na resposta: ' + E.Message);
    end;
  end;
end;
 

Comigo aqui a chamada desse Endpoint diz que não existe : Erro 404

 

[claudio.ferreira]

1 hora atrás, claudio.ferreira disse:

Comigo aqui a chamada desse Endpoint diz que não existe : Erro 404

 

Na verdade faltava uma barra no endpoint. Corrigi e a,Agora dá o erro 401 - Forbidden

[Juliomar Marchetti]

Sugestão de ajustes favor anexar as units