Erro ao obter PDF do CIOT

[Cleonir]

Esta acontecendo um erro para Obter o PDF do CIOT.

No xml vem corretamente

o erro ocorre na seguinte linha

Favor se alguém puder me ajudar...

 

[Juliomar Marchetti]

Dúvida esse campo retorna uma URL ou o arquivo binário do PDF?

[Cleonir]

Binário

Vem o pdf da eFrete pronto.

[Italo Giurizzato Junior]

Bom dia Cleonir,

No manual que tenho, consta que na versão 3.6 do mesmo publicado em 04/01/2016 diz:

Melhorias nas explicações de parâmetros de quebra e diferença de frete. Método ObterOperacoesTransporteAgrupadasPdf foi descontinuado.

Se o método que retorna o PDF foi descontinuado porque ele continua funcionando?

Em vez de retornar o PDF deveria pelo menos retornar uma rejeição acusando que o método foi descontinuado.

Fiz uma alteração no componente, mudei o tipo da propriedade PDF de String para AnsiString e na unit ACBrCIOTWebServices alterei o método responsável por salvar o PDF em disco, pois o que estava sendo utilizado pressupunha que o conteúdo do arquivo a ser salvo é um XML, que não é o caso.

Favor atualizar os fontes e faça novos testes.

[Cleonir]

Boa tarde Italo.

Aconteceu o mesmo erro.

Em anexo  manual da ultima versão do eFrrete e xml de retorno contendo o pdf em formato base64Binary.

no manual pag. 28  Obter Operação de Transporte Pdf.

 

Eu ja tenho implementado usando o WSDL importado no delphi, e esta funcionando a busca do PDF,

mas agora eu estou tentando migrar para o acbr.

Manual WebService Sistema e-FRETE 6.0.pdf XmlRetComPDF.xml

[Cleonir]

na classe gerado pela importação do WSDL o campo pdf ficou do tipo TByteDynArray do  System.Types

para salvar em arquivo eu fiz da seguinte forma

var  Arquivo:TStringStream;

Arquivo:=TStringStream.Create;

Arquivo.WriteData(Retorno.Pdf, Length(Retorno.Pdf));
Arquivo.Seek(0,0);
Arquivo.SaveToFile(extractfilepath(application.exename) +'PDF_CIOT\'+nomeArquivo.pdf');

Arquivo.Free;

 

Não sei se isso ajuda em alguma coisa...

[Italo Giurizzato Junior]

Boa tarde Cleonir,

Não sei quando você atualizou, mas fiz mais algumas alterações e enviei para o repositório.

Por favor atualize os fontes e faça novos testes.

[Cleonir]

Acabei de atualizar, e reinstalei.

Aconteceu o mesmo erro.

[Cleonir]

O PDF que salvou ficou assim.

CIOT257306.pdf

[Italo Giurizzato Junior]

Bom dia Cleonir,

A ultima alteração que fiz ficou desta forma:

          PDF := leitor.rCampo(tcEsp, 'Pdf');

          if PDF <> '' then
            PDF := UnZip(DecodeBase64(PDF));

Se a sua unit esta exatamente desta forma, experimente remover o UnZip, deixando a linha da seguinte forma:

PDF := DecodeBase64(PDF);

Faça um novo teste e vamos ver se o PDF é salvo corretamente.

[wagner_fix]

Bom dia a todos...

Quando precisei do CIOT o componente do ACBR ainda não estava pronto, e eu tive que desenvolver por conta própria...

Lembro que nessa parte do PDF apanhei um pouco também.

Acho que isso possa ajudar vocês...

Fiz dessa forma.

function Converter(P: TByteDynArray): string;
var
  Buffer: AnsiString;
begin
  SetLength(Buffer, Length(P));
  System.Move(P[0], Buffer[1], Length(P));
  Result := EncodeBase64(Buffer);
end;

 

var
  MStream : TMemoryStream;
  Decoder : TidDecoderMIME;
  Base64, AuxDtCIOT: string;
 

    Decoder   := TidDecoderMIME.Create(nil);
    MStream   := TMemoryStream.Create;
    Base64    := Converter(Retorno.Pdf);
    Decoder.DecodeStream(Base64,MStream);
    MStream.SaveToFile(xCamCIOT+'\'+AuxDtCIOT+'\'+TiraZeros(txtCod.Text)+'.pdf');
    FreeAndNil(Decoder);
    FreeAndNil(MStream);

 

Grato,

Wagner

[Cleonir]

3 horas atrás, Italo Jurisato Junior disse:

Se a sua unit esta exatamente desta forma, experimente remover o UnZip, deixando a linha da seguinte forma:

PDF := DecodeBase64(PDF);

Faça um novo teste e vamos ver se o PDF é salvo corretamente.

Boa tarde Italo.

Removendo o UnZip resolveu o problema.

Você faz este ajuste ou precisa que eu adicione o arquivo alterado?

[Italo Giurizzato Junior]

Boa tarde Cleonir,

Sem o Unzip o PDF foi salvo de forma correta?

Você poderia anexar um para que possamos ver como é esse PDF?

Vou fazer a alteração e enviarei para o repositório.

[Cleonir]

13 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Cleonir,

Sem o Unzip o PDF foi salvo de forma correta?

Sim, salvou corretamente.

Em anexo PDF.

CIOT260253.pdf

[Italo Giurizzato Junior]

Bom dia Cleonir,

Legal, já fiz a correção no componente e enviei para o repositório.

Muito obrigado pelos testes.

[Cleonir]

Em 10/03/2020 at 09:35, Italo Jurisato Junior disse:

Bom dia Cleonir,

Legal, já fiz a correção no componente e enviei para o repositório.

Muito obrigado pelos testes.

Beleza.

Atualizei hoje, testei e esta tudo ok.

[Juliana Tamizou]

Obrigado por reportar.

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