TOQ SYS

Boa tarde, NFc-e em contingencia FS-DA ou Off-line apresenta a seguinte mensagem apos a impressao do Danfe Mensagem: Access violation at adress 00CEBF63 in module 'Programa.exe'. Read of adress 000003F0

Boa tarde, alguma novidade como utilizar o ACBrTEFD com a NFc-e?

Mudei conforme sua orientação e verifiquei no manual mas continuo sem consegui fazer a consulta pelo QRCODE OBS: Estou fazendo os testes usando o Webservice de AM Peguei no site http://portalnfce.sefaz.am.gov.br/desenvolvedor/documentacao-tecnica/ URL para consulta via QRCODE e: http://sistemas.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp? '&cIdToken=' + '000001' + LeftStr(Dest.CNPJCPF, 8) + '20130001'; //&cIdToken=0000011058550420130001 Result := URL + cHashQRCode + '&cHashQRCode=' + Hash_SHA1; Usando a URL como disse acima abre o browser mas nao aparece nada qrcode.bmp

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

Bom dia, Qual componente voce esta utilizando para gerar o QRCODE?