Erro 100 - Qr Code Inválido

[Rodrigo W. Campos]

Vejam no link a baixo o erro q a sefaz me retorna:

Recebi uma intimação da sefaz dizendo q estou com o qrcode invalido

http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140216896249000167650010000000291226495360&nVersao=100&tpAmb=1&cDest=93496427191&dhEmi=323031342D30322D32355431353A34393A34322D30343A3030&vNF=149,00&vICMS=0,00&digVal=396C7838476C4E4D6746536D485554516E707574754A624B4E58553D&cIdToken=000001&a06bb45924782b35e53de89918001a75&cHashQRCode=9DCDEAA23076B534DC4E6372BD73817BADB0C7F0

 

Aqui está o código que utilizo:

 

function URLQRCode(const UF,Token: string): string;
  var tpAmb,URL,cDest,Hash_SHA1,dh_emi:String;
begin
if PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
  tpAmb := '1'
else
  tpAmb := '2';
URL := URLNFCe(tpAmb,UF);
cDest := Iif(Length(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, '');
result := '';
dh_emi := GetUTC( CodigoParaUF(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF),
              StrToDateTime(FormatDateTime('dd/mm/yyyy',PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+' '+
              FormatDateTime('hh:mm:ss', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)));
result :=  URL +
              'chNFe='     + PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe +
              '&nVersao='  + '100' +
              '&tpAmb='    + tpAmb +
              Iif((Length(cDest) > 0),('&cDest=' + cDest), '') +
              '&dhEmi=' +
              StringToHex( FormatDateTime('yyyy-mm-dd',PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+'T'+
              FormatDateTime('hh:mm:ss', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+dh_emi)+
              '&vNF='      + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) +
              '&vICMS='    + FormatFloat(',0.00;-,0.00', PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) +
              '&digVal='   + StringToHex(PrincipalF.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) +
              '&cIdToken=' + '000001&'+Token;
Hash_SHA1 := PrincipalF.ACBrEAD1.CalcularHash(UTF8Encode(result), dgstSHA1);
result := result + '&cHashQRCode=' + Hash_SHA1;
end;

 

 

 

Agradeço a atenção...
 

[Italo Giurizzato Junior]

Bom dia Rodrigo,

 

Segundo a Especificação Técnica do DANFE NFC-e - QR-Code versão 3.2 ao montar a string para ser aplicada ao SHA-1 não tem o & (e comercial) após o valor do cIdToken.

 

(...)

           '&cIdToken=' + '000001&'+Token;
Hash_SHA1 := PrincipalF.ACBrEAD1.CalcularHash(UTF8Encode(result), dgstSHA1);

 

Segundo a Especificação Técnica:

(...)

           '&cIdToken=' + '000001'+Token;

Hash_SHA1 := PrincipalF.ACBrEAD1.CalcularHash(UTF8Encode(result), dgstSHA1);

[analista.edilson]

Tive o mesmo problema, e o erro era na parte do token, e encontrei a resposta no link abaixo.

 

[valdeircaires]

Pessoal estou com o mesmo problema, até aparece a nota fiscal porem com o Erro 100, a principio eu estava colocando somente os parâmetros e não o link todo para o calculo do cHashQRCode, achei que tinha encontrado o problema porem minha alegria não deu em nada.

 

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140403985041000172650000000000281000000696&nVersao=100&tpAmb=2&dhEmi=323031342D30342D30325431353A35303A34362D30333A3030&vNF=81,29&vICMS=0,00&digVal=4F486B794B345256592F6648723830394346667A663154336959493D&cIdToken=000001&cHashQRCode=6D859386E24F25114102B953055FB906CE05CD71

 

Alguém descobriu o mistério?

Editado 26 Junho, 2014 por valdeircaires