ACBrNFe - Rejeição: Assinatura difere do calculado

[Emerson Teixeira]

Olá bom dia

estou tentando enviar uma nfe (produção) mas recebo a seguinte mensagem: Rejeição: Assinatura difere do calculado.

Webservice: SP;

TIpo Certificado: A1;

Usando Capicom.

Att.

[Italo Giurizzato Junior]

Bom dia Emerson,

Depois do XML ter sido assinado, ele foi alterado e depois enviado?

[Emerson Teixeira]

Bom dia Italo.

Não altero o xml apos assinar.

uso na seguinte sequencia:

ACBrNFe1.NotasFiscais.Assinar;

ACBrNFe1.NotasFiscais.Validar;

ACBrNFe1.NotasFiscais.Enviar;

Outro detalhe, tenho esta versão em outro cliente que usa o certificado A3 e funciona perfeitamente.

att.

Editado 16 Julho, 2015 por Emerson Teixeira

[Italo Giurizzato Junior]

Emerson,

Será que não é o antivírus que esta alterando o conteúdo do arquivo antes do seu envio?

[Emerson Teixeira]

Desativei o antivirus para testar.

 

Editado 16 Julho, 2015 por Emerson Teixeira

[Emerson Teixeira]

Olá Italo.

Usando a função verificarassinatura recebi a seguinte mensagem: 'Falha na validação da assinatura da nota: 28046'#$D#$A'Não foi possível carregar ou ler a assinatura.'#$D#$A

Acredito que o componente não esta carregando o certificado A1 usando o capicom, lembrando que se usar o A3 funciona.

Att

Editado 16 Julho, 2015 por Emerson Teixeira

[joaovmf]

Boa tarde, aproveitando o topico.

Atualizei o meu acbr para a versão trunk2 e quando vou gerar a nota ele aparece o mesmo erro, no meu caso é A3, voltei a versão que tinha no cliente para uma antes de atualizar o acbr e gerou normalmente.

 

Att

 

João Victor

[Daniel Simoes]

Por favor forneçam um passo a passo de como reproduzir o problema usando o Demo do ACBr (ACBrNFE_Demo)

[joaovmf]

Daniel, debugando vi que ele para no processo abaixo:

 

function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean;
begin
  FEnviar.FLote := ALote;
  FEnviar.FSincrono := ASincrono;

  if not Enviar.Executar then
    Enviar.GerarException( Enviar.Msg );

  if not ASincrono then
  begin
    FRetorno.Recibo := FEnviar.Recibo;
    if not FRetorno.Executar then  >>>>>>>>  Ele para nessa linha
      FRetorno.GerarException( FRetorno.Msg );
  end;

  Result := True;
end;

[Daniel Simoes]

Lógico.. essa linha que faz todo o Processo de Envio...

Vamos por partes...

• Qual é exatamente o erro ?
• O que é esperado funcionar e o que não funciona ?
• Como reproduzir o erro usando o Demo do ACBR ?

Sem essas informações fica difícil efetuarmos qualquer analise...

[Daniel Simoes]

Não fui capaz de reproduzir o problema... Usando os fontes do Trunk2...  e o WebService de SP, enviando uma NFe

Modifiquei o Demo do ACBr, usando o botão "Criar e Enviar",

Observe no final do bloco abaixo, que usei os mesmos comandos (Assinar e Validar)

Em tempo... "ACBrNFe1.Enviar" já Assina e Valida todas as notas (não precisa chamá-los antes)

procedure TForm1.btnCriarEnviarClick(Sender: TObject);
var
 vAux, vNumLote : String;
begin
  if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then
    exit;

  if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then
    exit;

  vNumLote := OnlyNumber(vNumLote);

  if Trim(vNumLote) = '' then
   begin
     MessageDlg('Número do Lote inválido.',mtError,[mbok],0);
     exit;
   end;

  ACBrNFe1.NotasFiscais.Clear;

  ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe;
  ACBrNFe1.Configuracoes.Geral.VersaoDF :=  TpcnVersaoDF(cbVersaoDF.ItemIndex);
  GerarNFe(vAux);

  //ACBrNFe1.NotasFiscais.GerarNFe;

  ACBrNFe1.NotasFiscais.Assinar;
  ACBrNFe1.NotasFiscais.Validar;
  ACBrNFe1.Enviar(vNumLote,True);
.....

 

 

[joaovmf]

Daniel, infelizmente não consegui resolver o problema, fiz a alteração no demo e mesmo assim o erro continua, vi em alguns foruns que poderia ser algum caracter invalido, mas não achei nada.

 

 

 

[Daniel Simoes]

Pode ser a questão de "String vs AnsiString" que afeta do Delphi...

Eu testei apenas em Lazarus... e não consegui reproduzir o problema...

[Juliomar Marchetti]

boa noite

faça o seguinte, mande salvar todos os arquivos gerados, depois tente usar o delphi e debugar fazendo as paradas necessárias dentro do fonte e assim achar essa diferença

[Rodrigo Couto]

Eu já tive esse problema em cliente e realmente era a questão de caracter invalido nas informações complementares. Dependendo da operação eu envio o local de entrega nas informações complementares e caso o cliente envie uma "/" por exemplo em qualquer campo de endereço, esse erro acontece. 

Se não me engano, acento também da problema rs.

 

Editado 21 Julho, 2015 por Rodrigo Couto

[Régys Silveira]

Verifique também se você não está enviando quebras de linhas nas informações complementares, se sim, remova-as e troque por ";" que é o separador de linha do componente, isso antes de assinar, validar, etc.

[russocorp]

Ou ainda verifique a instalação do Capicom na maquina, as vezes pode estar com problemas.

[Emerson Teixeira]

Olá Boa Tarde.

Fiz o teste de enviar a nota sem a infcpl, e enviou corretamente.

agora vou tentar descobrir qual o caractere que impede o envio da nfe e posto aqui

Att

[Emerson Teixeira]

Verifique também se você não está enviando quebras de linhas nas informações complementares, se sim, remova-as e troque por ";" que é o separador de linha do componente, isso antes de assinar, validar, etc.

Olá Regys.

Obrigado pela dica, era isso mesmo, o problema ocorria quando o cliente dava enter no memo de infclp para pular a linha.

agora estou usando o seguinte codigo e esta funcionando corretamente.

InfAdic.InfCpl := UTF8Encode(ReplaceStr(INFORMACAOCOMPLEMENTAR, #13#10, ';'));

uma sugestão: não teria como o componente tratar essa informação?

Abraços

 

[Daniel Simoes]

Acho que o próprio componente ACBrNFe pode tratar a mudança de LineBreak para ';'   vou  tentar implementar...

Também notei que você usa "UTF8Encode"... em teoria isso não deve ser feito nos fontes do Trunk2...

No Trunk2, a ideia é permitir que o programador use o modelo de String nativa de sua IDE (Ansi, UTF8, UTF16)... e o componente fará a conversão para UTF8, momentos antes da Assinatura do XML...

Quando receber a resposta do SEFAZ, o componente converte o XML recebido de UTF8, para a String nativa da IDE, antes de popular as propriedades de TNFe...

Ou seja, no Trunk2, a ideia é que o programador não precise se preocupar com "encoding"

[Emerson Teixeira]

Olá Daniel.

Obrigado pela resposta.

Tem razão, usei o UTF8Encode somente para testes, mas já o removi.

Se puder fazer o proprio componente tratar o linebreak vai ser otimo e vai evitar futuros post no forum.

Att

Abraços

[Régys Silveira]

Fiz um pequeno acerto para esse ajuste de quebra de linha, como o repositório está fora do ar segue o patch, por favor teste.

Basta clicar com o botão direito no repositório, escolher tortoise, aplicar patch, selecione o arquivo e aplique, seus arquivos serão alterados.

ajustequebralinhadfe.patch

[Emerson Teixeira]

Obrigado Regys.

vou testar e posto aqui

att

Editado 23 Julho, 2015 por Emerson Teixeira

[Daniel Simoes]

Oi REgys,

Apenas uma sugestão... CR (#13) não é sinônimo de quebra de linha (Carriage Return)

LF (#10) sim... é a quebra de Linha (Line Feed)

No Linux a quebra de linha é apenas LF ou #10

Minha proposta para essa function seria algo mais genérico e que pudesse estar na ACBrUtil

function AjustarQuebrasLinhas(const ATexto: String; NovaQuebraDeLinha: String = ';'): String;
begin
  Result := Trim(ATexto);
  
  if Result <> '' then
  begin
    if sLineBreak <> LF then
      Result := StringReplace(Result, sLineBreak, LF, [rfReplaceAll]);
	  
    Result := StringReplace(Result, LF, NovaQuebraDeLinha, [rfReplaceAll]);
  end
end;

 

[Régys Silveira]

Concordo Daniel, eu fiz pensando somente em windows, falha minha.

Vou acertar aqui e gerar novo patch.

Novo patch com a sugestão do Daniel.

quebradelinhadfe.patch