valdesc

Erro envio Bloco X reduções Z

60 posts neste tópico

2 minutos atrás, Maurício Blasque disse:

Na propriedade XML você informa o conteúdo do XML gerado e na propriedade XMLZipado você pega o XML gerado, zipa ele e gera o Base64 do arquivo zipado.

          wWebServiceBlocoX.XMLZipado := EncodeBase64(ExtractFilePath(Application.ExeName) + 'estoque.zip');

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estou compactando o XML usando o ZipMaster e recebo de retorno "Arquivo Zip inválido"

Segue parte do Codigo

BlocoX.WebServices.EnviarEstoque.xml:=texto; {xml em texto}

blocox.WebServices.EnviarEstoque.XMLZipado := EncodeBase64('Arquivo.zip');  {xml compactado}

BlocoX.WebServices.EnviarEstoque.Executar;

alguém tem alguma ideia do que pode ser?

Compartilhar este post


Link para o post
Compartilhar em outros sites
11 minutos atrás, leandro.rezende disse:

blocox.WebServices.EnviarEstoque.XMLZipado := EncodeBase64('Arquivo.zip');  {xml compactado}

desse jeito você está apenas transformando a  String 'Arquivo.zip' em base64...

Você precisa usar Streams

Compartilhar este post


Link para o post
Compartilhar em outros sites

Obrigado Daniel

Achei uma funcao no google e implementei

Citar

function EncodeFile(const FileName: string): AnsiString;
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  try
    stream.LoadFromFile(Filename);
    result := EncodeBase64(stream.Memory, stream.Size);
  finally
    stream.Free;
  end;
end;

blocox.WebServices.EnviarEstoque.XMLZipado := EncodeFile('Arquivo.zip'); 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

O componente BlocoX já está gravando os arquivos xml de envio e retorno no mesmo padrao que o componente da NFE?

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 15/02/2017 at 10:44, Maurício Blasque disse:

Consegui.

Além de enviar o XMLZipado := EncodeBase64(arquivo.zip) tenho que informar o XML := arquivo.xml também.

Meu retorno foi esse:
 

<?xml version="1.0" encoding="utf-8"?>
<Resposta>
    <Recibo>0452bdc8-bba3-41f7-9d03-fcfbaecfcc48</Recibo>
    <Tipo>Redução Z</Tipo>
    <DataReferencia>2017-02-13</DataReferencia>
    <EstadoProcessamentoCodigo>0</EstadoProcessamentoCodigo>
    <EstadoProcessamentoDescricao>Aguardando</EstadoProcessamentoDescricao>
    <Mensagem />
</Resposta>

 

Gerou um número de recibo mas esta com este ProcessamentoCodigo = 0 e ProcessamentoDescricao = Aguardando. O que isso quer dizer?

Obrigado.

Maurício, tu ta usando oque pra compactar o arquivo, eu to tentando usar o zLib, ele gera, mas ao enviar, da que o arquivo da inválido. Eu só consigo descompactar com o arquivo pelo zLib, pelo windows, da que o arquivo está corrompido. Eu uso Delphi 7

Compartilhar este post


Link para o post
Compartilhar em outros sites
19 horas atrás, Lucas Jeronimo disse:

Maurício, tu ta usando oque pra compactar o arquivo, eu to tentando usar o zLib, ele gera, mas ao enviar, da que o arquivo da inválido. Eu só consigo descompactar com o arquivo pelo zLib, pelo windows, da que o arquivo está corrompido. Eu uso Delphi 7

Oi, Lucas.

Eu uso o ZipMaster. Tem outros pontos do projeto em que eu preciso que os arquivos sejam zipados e é sempre usado este componente. Então aproveitei ele mesmo.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Agora, Maurício Blasque disse:

Oi, Lucas.

Eu uso o ZipMaster. Tem outros pontos do projeto em que eu preciso que os arquivos sejam zipados e é sempre usado este componente. Então aproveitei ele mesmo.

Eu usava o zLib pra isso, mas acabei usando o ZipMaster também hehe. 

Compartilhar este post


Link para o post
Compartilhar em outros sites
21 horas atrás, leandro.rezende disse:

O componente BlocoX já está gravando os arquivos xml de envio e retorno no mesmo padrao que o componente da NFE?

Eu acho que não.

Pelo menos no meu caso eu peguei o retorno do componente (ACBrBlocoX1.WebServices.EnviarEstoque.RetWS), que vem o xml todo de retorno, e salvo em um arquivo.xml

Compartilhar este post


Link para o post
Compartilhar em outros sites
1 hora atrás, Maurício Blasque disse:

Eu acho que não.

Pelo menos no meu caso eu peguei o retorno do componente (ACBrBlocoX1.WebServices.EnviarEstoque.RetWS), que vem o xml todo de retorno, e salvo em um arquivo.xml

obrigado Mauricio, pensei que eu estivesse fazendo algo errado kkk

1 hora atrás, Lucas Jeronimo disse:

Eu usava o zLib pra isso, mas acabei usando o ZipMaster também hehe. 

Fiz meus testes com o 7Zip (http://www.7-zip.org/) funcionou de boa , escolhendo o modo de compactação CLSID_CFormatZip  (que é o formato ZIP)

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora