AcbrBlocoX como utilizar

[Mario Inacio]

Olá Bruna.

Depois de muito trabalho e muitas funções testadas consegui resolver.

Já homologuei meu aplicativo.

Qual Delphi você usa?

[brunabelotti]

Bom dia Mario,

Que bom!!!

Poderia so me tirar uma dúvida sobre  se arquivo zipado deverá conter o xml ja transformado ou transforma-se o arquivo zip em base64?

Agradeço mais uma vez pela atenção,

[Mario Inacio]

Bom dia.

Você deverá transformar o arquivo ZIP em base64

 

[brunabelotti]

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,

[Mario Inacio]

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.

[Jefferson Damian]

Mario Inacio, como está fazendo a compactação?
Acredito que a forma como estou compactando esteja erada pois retorna erro 500

[Mario Inacio]

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.

[Jefferson Damian]

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

[Mario Inacio]

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"

[Juliomar Marchetti]

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

[Mario Inacio]

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

[Mario Inacio]

Bom dia.

Alguém me ajudar?

[Anderson Eccker]

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 9 Agosto, 2018 por Anderson Eccker

[Mario Inacio]

Boa tarde.

Estou assinando pelo componente, assim como faço com as reduções.

https://drive.google.com/open?id=1ZB6_juPIf2ssxjye88PMOH3VsFkJJ8Tz

[João Paulo Müller]

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.

 

 

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

Editado 9 Agosto, 2018 por João Paulo Müller

[Mario Inacio]

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.

[João Paulo Müller]

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 ?

[Mario Inacio]

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

 

[João Paulo Müller]

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?

[Mario Inacio]

Vou enviando os próximos.

Os que estão na condição de "aguardando", consulto sempre pra ver se mudou o status.