cte Descomprimir XML retornado pela Sefaz.

[Gustavo.martins]

Olá a todos. Estou desenvolvendo uma solução para monitorar a emissão de CTes e já consigo solicitar e fazer o retorno dos dados para a Sefaz. O problema é que, segundo o padrão da Sefaz, o arquivo de resposta com as CTes que necessito vem comprimido no padrão gzip. Qual é a função do ACBr que posso usar para descomprimir o arquivo? Desde já agradeço.

[Italo Giurizzato Junior]

Bom dia Gustavo,

Até onde sei, o serviço que retorna os XML dos CT-e compactados é o DistribuicaoDFe.

Mas o componente se encarrega de realizar automaticamente a descompactação e disponibilizar o conteúdo em uma propriedade chamada XML e se o componente estiver configurado para salvar em disco, o XML do CT-e descompactado será salvo.

[Gustavo.martins]

Obrigado pela resposta.

Mas onde vou achar essa propriedade XML? Pois quando busco em pACBRCTe.WebServices.DistribuicaoDFe. ela não aparece. 

E outra pergunta, o componente converte o codigo zip que vem dentro do lote de Ctes fornecidos pela Sefaz? Só para deixar claro. Obrigado desde já!

[everson.turossi]

var
  LDocZip: TdocZipCollectionItem;
begin
{...}
for I := 0 to Pred(ACBrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do
begin
  LDocZip := ACBrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[I];
  XML := LDocZip.XML;
  if (LDocZip.schema = schprocCTe) then
  begin
    ChaveAcesso := LDocZip.resCTe.chCTe;
    CnpjEmitente := LDocZip.resCTe.CNPJCPF;
    NomeEmitente := LDocZip.resCTe.xNome;
    ValorDocumento := LDocZip.resCTe.vNF;
    {...}
  end;
  if (LDocZip.schema = schprocEventoCTe) then
  begin { evento como cancelamento }
    ChaveAcesso := LDocZip.procEvento.chCTe;
    CnpjEmitente := LDocZip.procEvento.CNPJ;
    DataEvento := LDocZip.procEvento.dhEvento;
    Descricao := TpEventoToStr(LDocZip.procEvento.tpEvento) + ' - ' + LDocZip.procEvento.detEvento.descEvento;
    {...}
  end;
end;

 

Componente já faz tudo, segue um exemplo de como acessar os dados após a consulta.

[Gustavo.martins]

23 horas atrás, everson.turossi disse:

var
  LDocZip: TdocZipCollectionItem;
begin
{...}
for I := 0 to Pred(ACBrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do
begin
  LDocZip := ACBrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[I];
  XML := LDocZip.XML;
  if (LDocZip.schema = schprocCTe) then
  begin
    ChaveAcesso := LDocZip.resCTe.chCTe;
    CnpjEmitente := LDocZip.resCTe.CNPJCPF;
    NomeEmitente := LDocZip.resCTe.xNome;
    ValorDocumento := LDocZip.resCTe.vNF;
    {...}
  end;
  if (LDocZip.schema = schprocEventoCTe) then
  begin { evento como cancelamento }
    ChaveAcesso := LDocZip.procEvento.chCTe;
    CnpjEmitente := LDocZip.procEvento.CNPJ;
    DataEvento := LDocZip.procEvento.dhEvento;
    Descricao := TpEventoToStr(LDocZip.procEvento.tpEvento) + ' - ' + LDocZip.procEvento.detEvento.descEvento;
    {...}
  end;
end;

 

Componente já faz tudo, segue um exemplo de como acessar os dados após a consulta.

Boa tarde Everson! Consegui implementar seguindo o moledo que vc exemplificou acima. Resolvi o problema e implementei a classe que estava faltando no projeto. Obrigado pela dica. 

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.