Boa tarde, estou com problema ao tentar consultar a NFc-e via QrCode, recebo uma mensagem no browser: Erro 220 inconsistencia de informacao QR Code.
Segue abaixo como faço para montar a string:
function TFrmEnvioNfe.GerarStringQrCodeNFC ( pcldToken : String ) : WideString;
var
URL, cDest, tpAmb, chaveNfe, Hash_SHA1, cHashQRCode : String;
AnalisarString:TStringList;
begin
with FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe do
begin
// TODO - Tem que pegar a URL automatica de acordo com o emitente
if FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
URL := 'http://sistemas.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp?'
else
URL := 'sistemas.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp?';
//URL := 'homnfe.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp?';
//URL := 'https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeConsulta2';
if FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
tpAmb := '1'
else
tpAmb := '2';
cDest := Iif(Length(FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, '');
chaveNfe := SoNumeros(FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.infNFe.ID);
// parametros para o QRCode ==> digVal - Digest Value da NFC-e
FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.procNFe.digVal := signature.DigestValue;
cHashQRCode := '';
cHashQRCode := URL +
'chNFe=' + chaveNfe + //FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.procNFe.chNFe +
'&nVersao=' + '100' +
'&tpAmb=' + tpAmb +
Iif((Length(cDest) > 0),('&cDest=' + cDest), '') +
'&dhEmi=' + StringToHex(DateTimeTodhUTC(FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Ide.dEmi,
GetUTC(FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.emit.enderEmit.UF,
FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Ide.dEmi))) +
'&vNF=' + FormatFloat(',0.00;-,0.00', FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) +
'&vICMS=' + FormatFloat(',0.00;-,0.00', FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) +
'&digVal=' + StringToHex(FDataModule.ACBrNFe20.NotasFiscais.Items[0].NFe.procNFe.digVal) +
'&cIdToken=' + '000001';
AnalisarString:= TStringlist.create;
AnalisarString.Add(cHashQRCode);
AnalisarString.SaveToFile('c:\AnalisarString.txt');
Hash_SHA1 := FDataModule.ACBrEAD.CalcularHash(UTF8Encode(cHashQRCode), dgstSHA1);
Result := cHashQRCode + '&cHashQRCode=' + Hash_SHA1;
end;
end;
qrcode.bmp