Ir para conteúdo
  • Cadastre-se

dev botao

AcbrBlocoX como utilizar


Moisés
  • Este tópico foi criado há 2058 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Mario,

Tentei enviar o meu zip convertido mas só retorna essa mensagem: 

<Resposta>
<Recibo> Não gerado, pois não passou na validação inicial. Não será armazenado ou processado </Recibo>
<SituacaoProcessamentoCodigo/>
<SituacaoProcessamentoDescricao/>
<Mensagem>Arquivo ZIP inválido</Mensagem>
</Resposta>
 
Já tentei de tudo e não consigo fazer ele se comunicar corretamente. Você chegou a enfrentar este erro? Poderia me encaminhar um exemplo codificado para verificar se o meu esta gerando igual. Já estou a várias dias quebrando a cabeça, não sei mais o que fazer.
 
Agradeço desde já atenção,
Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Seguem os códigos:

   function ValidarArquivo: Boolean;
   begin
      Result := True;
      if tArqXml.Text = '' then begin
         MessageBox('Erro! Arquivo Vazio');
         Result := False;
      end;
      if not XmlEstaAssinado(tArqXml.Text) then begin
         MessageBox('Erro! Arquivo sem assinatura');
         Result := False;
      end;
   end;

   function XML_Validar: boolean;
   begin
      Result := False;
      if not ValidarArquivo then
         Exit;
      WSValidar                   := trBlocoX.WebServices.ValidarBlocoX;
      WSValidar.XML               := tArqXml.Text ;
      WSValidar.ValidarPafEcfEEcf := False;
      if WSValidar.Executar then
         Result := True
      else
         wrequest(WSValidar.RetWS);
   end;

   function XML_Transmitir: boolean;
   var
      FileStream: TMemoryStream;
   begin
      Result := False;
      if not ValidarArquivo then
         Exit;
      try
         FileStream := TMemoryStream.Create;
         FileStream.LoadFromFile(PastaGrav+ArqZip);
         WSEnviar           := trBlocoX.WebServices.EnviarBlocoX;
         WSEnviar.XML       := tArqXml.Text;
         WSEnviar.XMLZipado := TransfBase64.EncodeStream(FileStream,FileStream.Size);
         if WSEnviar.Executar then begin
            Recibo:= wSEnviar.Recibo;
            if Pos('Não gerado',Recibo) > 0 then begin
               MessageBox('Erro ao enviar para WebService do Sefaz!'+#13+#13+
                          WSEnviar.RetWS);               
            end else begin
               Result := True;
               XML_GravaRecibo(1);
               SalvaStringArquivo(WSEnviar.RetWs,
                                  fMenu.PastaApl+'PAF-ECF\'+
                                  iif(cds1.fieldbyname('codigo').asstring='REDUCAO',
                                  'Recibos dos Arquivos com Informações da Reducao Z do PAF-ECF\',
                                  'Recibos dos Arquivos com Informações do Estoque Mensal do Estabelecimento\')+
                                  Recibo+'.xml');
               Sleep(3000);
            end;
         end else
            MessageBox('Erro ao enviar para WebService do Sefaz!')
      finally
         FileStream.Free;
         DeleteFile(PastaGrav+ArqZip);
      end;
   end;

   procedure XML_ConsultaRecibo;
   begin
      WSConsultar := trBlocoX.WebServices.ConsultarBlocoX;
      WSConsultar.Recibo := Recibo;
      WSConsultar.Executar ;
      if wsconsultar.SituacaoProcCod = 1 then begin
         MessageBox('Arquivo com informações '+
                    iif(cds1.fieldbyname('codigo').asstring='REDUCAO',
                        'da Redução Z do PAF-ECF ','do Estoque Mensal do Estabelecimento ')+
                    'transmitido com sucesso!');
         XML_GravaRecibo(9);
      end else
         MessageBox('Erro ao enviar para WebService do Sefaz!'+#13+#13+
                  wsconsultar.RetWS);
   end;

Usei o componente IdEncoderMIME da paleta Indy pra converter para Base64.

Nenhuma função que peguei na internet ou no fórum funcionou.

Qualquer coisa, pergunta ai.

  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

1 minuto atrás, Mario Inacio disse:

Olá Jefferson.

HTTP 500 é o servidor fora do ar.

Acontece com frequência, tente mais tarde.

A compactação faço pelo componente citado acima.

 

1 minuto atrás, Mario Inacio disse:

Olá Jefferson.

HTTP 500 é o servidor fora do ar.

Acontece com frequência, tente mais tarde.

A compactação faço pelo componente citado acima.

Valeu obrigado

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...
  • Moderadores
1 hora atrás, Mario Inacio disse:

Bom dia.

O componente ACBRBlocoX não funciona com certificados A3 ?

Estou tentando transmitir num cliente e me retorna "Cartão não pode ser acessado porque o PIN errado foi apresentado"

Exatamente

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • Membros Pro

Boa tarde.

O Bloco X está funcionando normalmente num cliente quanto a Reducoes.

Mas ao fazer o arquivo de Estoque, travou quando foi para assinar o arquivo.

Deixei mais de uma hora e não retornou.

O arquivo tem 23MB.

Alguém já passou por esse problema?

Segue o arquivo em anexo pra quem queira testar.

Fisco - Estoque Mensal - 31072018.rar

Link para o comentário
Compartilhar em outros sites

22 horas atrás, Mario Inacio disse:

Boa tarde.

O Bloco X está funcionando normalmente num cliente quanto a Reducoes.

Mas ao fazer o arquivo de Estoque, travou quando foi para assinar o arquivo.

Deixei mais de uma hora e não retornou.

O arquivo tem 23MB.

Alguém já passou por esse problema?

Segue o arquivo em anexo pra quem queira testar.

Fisco - Estoque Mensal - 31072018.rar

Bom dia,
Tentei baixar o arquivo, mais parece estar corrompido. Nao estou conseguindo descompactar.

Você esta tentando assinar pelo componente ou pelo ACBr Monitor Plus ?

Editado por Anderson Eccker
Link para o comentário
Compartilhar em outros sites

Em 08/08/2018 at 13:20, Mario Inacio disse:

Boa tarde.

O Bloco X está funcionando normalmente num cliente quanto a Reducoes.

Mas ao fazer o arquivo de Estoque, travou quando foi para assinar o arquivo.

Deixei mais de uma hora e não retornou.

O arquivo tem 23MB.

Alguém já passou por esse problema?

Segue o arquivo em anexo pra quem queira testar.

Fisco - Estoque Mensal - 31072018.rar

Estou com um problema semelhante com as reduções Z.

 

Envio o arquivo e o WS me retorna o codigo 0-aguardando... Já estou a horas consultando esse arquivo e retorna a mesma situação..

Tem clientes que já chegou a travar o acesso ao PDF devido a essa demora para processar o arquivo no WS.

 

image.png.1f4764b49a533cd2692b46665d9ea108.png

 

É o mesmo retorno que você recebe ai Mario? Isso começou acontecer a pouco tempo, estou achando que é algo no WS...

Editado por João Paulo Müller
Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Olá Joao.

Essa demora é do WS, que vive em manutenção.

Tem que ficar consultando, pois ele ainda não tem um ambiente estável.

 

Testei aqui com apenas um produto e também trava.

 

Está travando nesse trecho:

    XmlAss := FSSLXmlSignClass.Assinar( ConteudoXML, docElement, infElement,
                                        SignatureNode, SelectionNamespaces,
                                        IdSignature, IdAttr);
 

ConteudoXML - Está chegando conteúdo do XML

docElement - Está chegando 'Estoque'

infElement - Está chegando 'Mensagem'

Os demais parâmetros estão chegando vazios.

Link para o comentário
Compartilhar em outros sites

30 minutos atrás, Mario Inacio disse:

Olá Joao.

Essa demora é do WS, que vive em manutenção.

Tem que ficar consultando, pois ele ainda não tem um ambiente estável.

 

Testei aqui com apenas um produto e também trava.

 

Está travando nesse trecho:

    XmlAss := FSSLXmlSignClass.Assinar( ConteudoXML, docElement, infElement,
                                        SignatureNode, SelectionNamespaces,
                                        IdSignature, IdAttr);
 

ConteudoXML - Está chegando conteúdo do XML

docElement - Está chegando 'Estoque'

infElement - Está chegando 'Mensagem'

Os demais parâmetros estão chegando vazios.

Boa tarde Mario, obrigado pelo retorno.

Pois bem, essa maldita demora para processar o arquivo no servidor (Status 0-Aguardando) esta dando uma dor de cabeça das grandes, pois os clientes estão ficando com o PDV travado, devido exceder o limite dos arquivos pendentes permitidos.

Estou pensando em implementar uma nova versão onde desconsidera esses arquivos aguardando o processamento da soma dos arquivos pendentes, pois na verdade eles não estão mais pendentes, pois foram enviados. Posteriormente se retornar erro ai sim eu considero como pendentes.

O meu medo é de por exemplo, enviar outros arquivos e um o segundo arquivo enviado processar antes do primeiro, fazendo com que as reduções z não fiquem mais em ordem cronológica, conforme exigência da ER 02.05, a qual estamos homologados.

Como você está tratando ai o envio dos arquivos ?

Link para o comentário
Compartilhar em outros sites

52 minutos atrás, Mario Inacio disse:

Estou deixando como pendente e consulta diariamente, no meu caso, não chegou a ficar no limite permitido de pendências.

 

Mais se fica como pendente, você consulta o restante que falta, ou fica aguardando a aprovação de um para ai partir para o envio do outro?

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2058 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.