Carta Correção - Rejeição: Valor da assinatura (SignatureValue) difere do valor calculado

[Filippe Maymone]

bom dia galera.

 

Migrei para o Trunk2. 

Tava com alguns problemas, consegui resolver todos.

Porem agora na carta de correção estou com o seguinte problema, ao tentar enviar apresenta a seguinte rejeição.

"Rejeição: Valor da assinatura (SignatureValue) difere do valor calculado", utilizo mais ou menos a mesma rotina para o cancelamento e o cancelamento esta funcionando corretamente.

 

Estou anexando o xml com problema.

 

Estou usando a seguinte rotina para enviar a carta correção:

 

    with NFE.eventoNFe do
    begin
      ConfiguraNFe(dsetEmpresaDIRNFEEMPRESA.AsString + '\' +subdiretorio,
             dsetEmpresaLOGONFEMPRESA.AsString,
             dsetEmpresaCERTEMPRESA.AsString,
             tpcCartacorrecao);

      // Carrega a nota fiscal.
      if (dSetNFCabecalho.RecordCount = 1) and
        (dSetNFCabecalhoNFE_STATUS.AsString = 'R') and
        (dSetNFCabecalhoNFE_PROTOCOLO.AsString <> EmptyStr) then
      begin
        xCaminho := dsetEmpresaDIRNFEEMPRESA.AsString + '\' + FormatDateTime('DD-MM-YYYY', dSetNFCabecalhoDATAEMI.AsDateTime)+ '\' + dSetNFCabecalhoNFE_CHAVE.AsString;
        NFE.NotasFiscais.LoadFromFile(xCaminho + '-NFe.xml');

        if (FileExists(xCaminho + '.pdf') = false) and
        (FileExists(xCaminho+'-nfe.PDF') = false) then
          NFE.NotasFiscais.ImprimirPDF;

      end;
      // Fecha Carregamento a nota fiscal.

      Evento.Clear;
      if dsetNFCCECCE_CHAVE.AsString <> EmptyStr Then
      begin
        codOrgao := Copy(dsetNFCCECCE_CHAVE.AsString, 1, 2);
        idLote := 1;

        with Evento.Add do
        begin
          infEvento.tpAmb := NFE.Configuracoes.WebServices.Ambiente;
          infEvento.chNFe := dsetNFCCECCE_CHAVE.AsString;
//          infEvento.cOrgao := strToint(codOrgao);
          infEvento.CNPJ := dsetEmpresaCNPJEMPRESA.AsString;
          infEvento.dhEvento := Now;
          infEvento.tpEvento := teCCe;

          infEvento.nSeqEvento := dsetNFCCESEQEVENTO.AsInteger;
//          infEvento.versaoEvento := '1.00';
//          infEvento.detEvento.descEvento := dsetNFCCEDESCEVENTO.AsString;
          infEvento.detEvento.xCorrecao := dsetNFCCECORRECAO.AsString;
//          infEvento.detEvento.xCondUso := ''; // Texto fixo conforme NT 2011.003 -  http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=tsiloeZ6vBw=
        end;

            if NFE.EnviarEvento(idLote) = true Then
            begin
              if length(NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt) > 0 Then
              begin
                dsetNFCCE.Edit;
                dsetNFCCECCE_PROTOCOLO.AsString :=   NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt;
                dsetNFCCECCE_RECIBO.AsString := NFE.WebServices.Retorno.Recibo;
                dsetNFCCECCE_STATUS.AsString := 'R';
                frDm.SalvaDataSet(dsetNFCCE);
              end
              else
              begin
                abort;
              end;
            end;

 

 

Muito Obrigado.

1101103515080303790900010255001000005968100005968601-procEventoNFe.xml

[Italo Giurizzato Junior]

Boa tarde Filippe,

Com certeza no texto da carta de correção esta sendo informado algum carácter invalido.

[Filippe Maymone]

No texto não .. 

 

que era so de teste ... e esta so assim: "asd asdasdasdsad sad asdasd asd as dasdasdas dasd asd as dasd"

 

Vou verificar nos demais campo se tem alguma sujeira ... 

[Filippe Maymone]

Italo .. 

Localizei o problema.

Para digitar a carta de correção eu tenho um Memo, onde o usuário pode digitar a carta de correção.

O problema é quando o usuário da um <enter> no meno que traz o carácter #13. Não fiz nenhuma alteração, fiz um teste so digitando sem <enter> e funcionou certinho ... 

Será que esta com algum problema ou é assim mesmo ???  se for assim, vou tratar para o usuário não digitar mais <enter>

 

Obrigado pela Luz .. kkkk 

[Everton Garcia]

Olá Filippe!

Tive este mesmo problema de quebra de linha no campo "Informações Adicionais". 

Resolvi substituindo a quebra de linha por ";" na hora de transmitir.

 

Abs.

Everton