Ajuda Com Geracao Da Url Para O Qr Code Da Nfc-E

bolinha182 · 25 Outubro, 2013

Pessoal estou tendo dificuldades para gerar a Url para o qr code em ambiente de produção.

Estou usando essa rotina.

procedure TFrmVendasLoc.BtGeraHashClick(Sender: TObject);
var
Hash_SHA1, linha, linha2: string;
begin
Memo1.Lines.Clear;
// MONTA
linha := 'chNFe=' + ''+
    '&nVersao=' + '' +
    '&tpAmb=' + ''+
    '&cDest=' + '' +
    '&dhEmi=' + LowerCase(stringtohex(''))+
    '&vNF=' + ''+
    '&vICMS=' + '' +
    '&digVal=' + LowerCase(stringtohex('')) +
    '&cIdToken=' + '';
linha2 := 'chNFe=' + ''+
    '&nVersao=' + ''+
    '&tpAmb=' + '' +
    '&cDest=' + '' +
    '&dhEmi=' + LowerCase(stringtohex(''))+
    '&vNF=' + '' +
    '&vICMS=' + ''+
    '&digVal=' + LowerCase(stringtohex('')) +
    '&cIdToken=' + '';
Hash_SHA1 := ACBrEAD1.CalcularHash(linha, dgstSHA1);
Memo2.Text := Hash_SHA1;
Memo1.Text := '<a data-ipb="nomediaparse" data-cke-saved-href="?" href="?" %20+"="">http://www.sefaz.mt....onsultanfce?' +
    linha2 +
    '&cHashQRCode=' + Memo2.Text;
end;

Alguem tem alguma rotina que esteja funcionando ou consegue identificar meu erro?

Obrigado a todos.

Editado 25 Outubro, 2013 por bolinha182

Leonardo Gregianin · 25 Outubro, 2013

Meu código funciona assim:

function StringToHex(S: String): String;
var i: Integer;
begin
  Result:= '';
  for i := 1 to length(S) do
    Result:= Result+IntToHex(ord(S[i]),2);
end;

function Iif(Condicao: Boolean; Verdadeiro, Falso: Variant): Variant;
begin
 if Condicao then
   Result := Verdadeiro
 else Result := Falso;
end;

if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
  URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?'
else
  URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?';

if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
  tpAmb := '1'
else
  tpAmb := '2';
cDest := Iif(Length(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, '');

Memo.Lines.Clear;
Memo.Text :=  URL +
              'chNFe='     + ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe +
              '&nVersao='  + '100' +
              '&tpAmb='    + tpAmb +
              Iif((Length(cDest) > 0),('&cDest=' + cDest), '') +
              '&dhEmi='    + StringToHex(DateTimeTodhUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) +
              '&vNF='      + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) +
              '&vICMS='    + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) +
              '&digVal='   + StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) +
              '&cIdToken=' + '000001';

Hash_SHA1 := ACBrEAD1.CalcularHash(UTF8Encode(Memo.Text), dgstSHA1);
Memo.Text := Memo.Text + '&cHashQRCode=' + Hash_SHA1;

bolinha182 · 25 Outubro, 2013

Meu código funciona assim:

function StringToHex(S: String): String;
var i: Integer;
begin
  Result:= '';
  for i := 1 to length(S) do
    Result:= Result+IntToHex(ord(S[i]),2);
end;

function Iif(Condicao: Boolean; Verdadeiro, Falso: Variant): Variant;
begin
 if Condicao then
   Result := Verdadeiro
 else Result := Falso;
end;

if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
  URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?'
else
  URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?';

if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
  tpAmb := '1'
else
  tpAmb := '2';
cDest := Iif(Length(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, '');

Memo.Lines.Clear;
Memo.Text :=  URL +
              'chNFe='     + ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe +
              '&nVersao='  + '100' +
              '&tpAmb='    + tpAmb +
              Iif((Length(cDest) > 0),('&cDest=' + cDest), '') +
              '&dhEmi='    + StringToHex(DateTimeTodhUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) +
              '&vNF='      + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) +
              '&vICMS='    + FormatFloat(',0.00;-,0.00', ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) +
              '&digVal='   + StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) +
              '&cIdToken=' + '000001';

Hash_SHA1 := ACBrEAD1.CalcularHash(UTF8Encode(Memo.Text), dgstSHA1);
Memo.Text := Memo.Text + '&cHashQRCode=' + Hash_SHA1;

Leonardo, Primeiramente obrigado pela resposta. Eu implementei o código e continuo sem sucesso. No código que vc me mandou o campo está '&cIdToken=' + '000001' eu devo modificar para '&cIdToken=' + '000001' + o token da empresa não é mesmo? A empresa tem dois tokens que me foram enviados como sendo um da matriz e um da filial, as notas foram geradas na filial.

Vou postar o xml da nota e a url que esta sendo gerada para darem uma olhada. Sera que tem algum problema em postar os tokens aki?

a url que estou gerando é essa aki quando nao substituo o token.

http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131003460900000290650010000000031000000031&nVersao=100&tpAmb=1&cDest=02801244147&dhEmi=323031332D31302D32345431363A32313A30332D30333A3030&vNF=1,00&vICMS=0,00&digVal=78764D34764E2B48586A735657516F653474415A547855547764383D&cIdToken=000001&cHashQRCode=7AF4285DA2D18133BEF9F9370AD4A185B2527AFB

Xml51131003460900000290650010000000031000000031-ProcNFe.xml

Editado 25 Outubro, 2013 por bolinha182

Leonardo Gregianin · 25 Outubro, 2013

Peguei a mesma URL que você passou e troquei o "&tpAmb" para 2 e mostrou a nota no site.

http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131003460900000290650010000000031000000031&nVersao=100&tpAmb=2&cDest=02801244147&dhEmi=323031332D31302D32345431363A32313A30332D30333A3030&vNF=1,00&vICMS=0,00&digVal=78764D34764E2B48586A735657516F653474415A547855547764383D&cIdToken=000001&cHashQRCode=7AF4285DA2D18133BEF9F9370AD4A185B2527AFB

Suspeito que o problema seja na Sefaz.

bolinha182 · 25 Outubro, 2013

Leonardo realmente é esse o problema, muito obrigado pela ajuda.

dionatan · 27 Outubro, 2013

So para colaborar segue a NT do DANFE da NFC-e...

Manual_de_Especificacoes_Tecnicas_do_DANFE_NFC-e_QRCode_Versao3.1_30_04_2013.pdf

Solivan · 27 Outubro, 2013

Peguei a mesma URL que você passou e troquei o "&tpAmb" para 2 e mostrou a nota no site.

http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131003460900000290650010000000031000000031&nVersao=100&tpAmb=2&cDest=02801244147&dhEmi=323031332D31302D32345431363A32313A30332D30333A3030&vNF=1,00&vICMS=0,00&digVal=78764D34764E2B48586A735657516F653474415A547855547764383D&cIdToken=000001&cHashQRCode=7AF4285DA2D18133BEF9F9370AD4A185B2527AFB

Suspeito que o problema seja na Sefaz.

Verifiquei um erro na sua URL, vou postar aqui talvez ajude, você colocou virgula no separador decimal do valor da nf e valor do ICMS, quando no manual diz pra se colocar pontos, como separador. talvez seja isso,

Fiz o teste e abriu conforme imagem abaixo, dando erro apenas de QRCode.

Solivan.

Link: http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131003460900000290650010000000031000000031&nVersao=100&tpAmb=2&cDest=02801244147&dhEmi=323031332D31302D32345431363A32313A30332D30333A3030&vNF=1.00&vICMS=0.00&digVal=78764D34764E2B48586A735657516F653474415A547855547764383D&cIdToken=000001&cHashQRCode=7AF4285DA2D18133BEF9F9370AD4A185B2527AFB

Editado 28 Outubro, 2013 por Solivan

bolinha182 · 28 Outubro, 2013

Ok vou verificar Obrigado.

RodrigoPalma · 19 Dezembro, 2013

alguém sabe me informar se já tem disponível um AcbrNFeMonitor com a impressão do Danfe da NFC-e?

Juliomar Marchetti · 19 Dezembro, 2013

Não

Rubens-JP · 7 Agosto, 2014

Alguém conseguiu abrir o link do QR-Code sem apresentar o erro "Erro 100 - QR Code Inválido"?

Revisei o manual, pesquisei em outros foruns chamei uma outra pessoa para olhar o código baseado no manual para geração do link e mesmo assim, ainda estou com problema "100 - QR Code Inválido". Será que alguém tem uma dica, por favor?

Obs.:

Estou utlizando o ACBrEAD1.CalcularHash para o cálculo do Hash-Code.

Em um email enviado para sefaz-MT me falaram que o probema estava no cálculo do Hash e pediram para olhar o manual mais uma vez. Assim foi feito e nada resolvido.

chNFe= 51140819645307000178650010000001851000001500

&nVersao= 100

&tpAmb= 2

&cDest= 99999999000191

&dhEmi= 2014-08-04T16:47:03-03:00

Hexa: 323031342D30382D30345431363A34373A30332D30333A3030

&vNF= 100.00

&vICMS= 17.00

&digVal= zrUFBzCpUJCUzPtkb6YjVGKjvBY=

Hexa: 7A725546427A4370554A43557A50746B6236596A56474B6A7642593D

&cIdToken= 000001

CSC: A639A0FD-8887-E68C66CF-11276B5A3FA6

Link Gerado:

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140819645307000178650010000001851000001500&nVersao=100&tpAmb=2&cDest=99999999000191&dhEmi=323031342D30382D30345431363A34373A30332D30333A3030&vNF=100.00&vICMS=17.00&digVal=7A725546427A4370554A43557A50746B6236596A56474B6A7642593D&cIdToken=000001&cHashQRCode=DB03F37AA4D41E49066C2FE68710B6AC67B79B53

Régys Silveira · 7 Agosto, 2014

O ACBr já possui um método para fazer isso "NotaUtil.GetURLQRCode", bastaria utilizar ele, declare ACBrNFeUtil no uses e ele estará disponível.

Rubens-JP · 7 Agosto, 2014

O ACBr já possui um método para fazer isso "NotaUtil.GetURLQRCode", bastaria utilizar ele, declare ACBrNFeUtil no uses e ele estará disponível.

Fiz o que você propôs Regys, mas mesmo assim ainda apresenta a danada da mensagem "Erro 100 - QR Code Inválido".

O link gerado a baixo foi pelo NotaUtil.GetURLQRCode

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140819645307000178650010000001851000001500&nVersao=100&tpAmb=2&cDest=99999999000191&dhEmi=323031342D30382D30345431363A34373A30332D30343A3030&vNF=100.00&vICMS=17.00&digVal=7A725546427A4370554A43557A50746B6236596A56474B6A7642593D&cIdToken=000001&cHashQRCode=233B859CAF1E4949AA4DC1A1B7FE178F1DAFFE74

Rubens-JP · 7 Agosto, 2014

Consegui resolver meu problema, depois de vários e-mails enviados para Sefaz-MT, objetive uma resposta satisfatória.

Eu estava enviando para o cálculo do hash o CSC seguindo uma formatação existente no exemplo do manual utilizando traço para separar os grupos dos caracteres: A639A0FD-8887-E68C66CF-11276B5A3FA6

A resposta que a SEFAZ - MT mandou, foi que não pode ter formatação, tem que ser exatamente da forma que a página web de sua Secretaria da Fazenda disponibilizou. O que inclui maiúsculo e minúsculo.

Editado 7 Agosto, 2014 por Rubens-JP

diego ribas · 11 Setembro, 2015

Minha duvi é quanto ao numero de caracteres, pois tenho interesse em enviar via SMS a URL para consulta... Porem o numero maximo de caracteres permitido nos serviços que conheço sao de até 160 caracteres e pelo que vi a url esta com cerca de 320 caracteres

caso alguem possa ajudar ... agradeço.

Editado 11 Setembro, 2015 por diego ribas

Régys Silveira · 11 Setembro, 2015

Para o envio por SMS você terá que encurtar a URL usando um encurtador on-line, porque sempre vai exceder a quantidade de caracteres.

diego ribas · 1 Outubro, 2015

tem algum que você sugere, que tenha uma boa integração com software externo ?

Obrigado

evenildo · 22 Outubro, 2015

Consegui resolver meu problema, depois de vários e-mails enviados para Sefaz-MT, objetive uma resposta satisfatória.

Eu estava enviando para o cálculo do hash o CSC seguindo uma formatação existente no exemplo do manual utilizando traço para separar os grupos dos caracteres: A639A0FD-8887-E68C66CF-11276B5A3FA6

A resposta que a SEFAZ - MT mandou, foi que não pode ter formatação, tem que ser exatamente da forma que a página web de sua Secretaria da Fazenda disponibilizou. O que inclui maiúsculo e minúsculo.

O ACBr já possui um método para fazer isso "NotaUtil.GetURLQRCode", bastaria utilizar ele, declare ACBrNFeUtil no uses e ele estará disponível.

Fiz o que você propôs Regys, mas mesmo assim ainda apresenta a danada da mensagem "Erro 100 - QR Code Inválido".

O link gerado a baixo foi pelo NotaUtil.GetURLQRCode

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140819645307000178650010000001851000001500&nVersao=100&tpAmb=2&cDest=99999999000191&dhEmi=323031342D30382D30345431363A34373A30332D30343A3030&vNF=100.00&vICMS=17.00&digVal=7A725546427A4370554A43557A50746B6236596A56474B6A7642593D&cIdToken=000001&cHashQRCode=233B859CAF1E4949AA4DC1A1B7FE178F1DAFFE74

Por favor me desculpe a pergunta mais em qual metodo do ACBRNFE eu coloco essa URL gerarda por esse outro metodo NotaUtil.GetURLQRCode , desde ja agradeço

Régys Silveira · 22 Outubro, 2015

tem algum que você sugere, que tenha uma boa integração com software externo ?

Obrigado

Quanto ao encurtador o Google possui um e se não me engano tem API para usar e integrar.

Quanto ao envio dos SMS não tenho nenhum para indicar, você teria que analisar os vários serviços de envio de SMS disponíveis e verificar qual o melhor para sua necessidade.

Consegui resolver meu problema, depois de vários e-mails enviados para Sefaz-MT, objetive uma resposta satisfatória.

Eu estava enviando para o cálculo do hash o CSC seguindo uma formatação existente no exemplo do manual utilizando traço para separar os grupos dos caracteres: A639A0FD-8887-E68C66CF-11276B5A3FA6

A resposta que a SEFAZ - MT mandou, foi que não pode ter formatação, tem que ser exatamente da forma que a página web de sua Secretaria da Fazenda disponibilizou. O que inclui maiúsculo e minúsculo.

O ACBr já possui um método para fazer isso "NotaUtil.GetURLQRCode", bastaria utilizar ele, declare ACBrNFeUtil no uses e ele estará disponível.

Fiz o que você propôs Regys, mas mesmo assim ainda apresenta a danada da mensagem "Erro 100 - QR Code Inválido".

O link gerado a baixo foi pelo NotaUtil.GetURLQRCode

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140819645307000178650010000001851000001500&nVersao=100&tpAmb=2&cDest=99999999000191&dhEmi=323031342D30382D30345431363A34373A30332D30343A3030&vNF=100.00&vICMS=17.00&digVal=7A725546427A4370554A43557A50746B6236596A56474B6A7642593D&cIdToken=000001&cHashQRCode=233B859CAF1E4949AA4DC1A1B7FE178F1DAFFE74

Por favor me desculpe a pergunta mais em qual metodo do ACBRNFE eu coloco essa URL gerarda por esse outro metodo NotaUtil.GetURLQRCode , desde ja agradeço

Veja que o que postei é de 2014, nada tem a ver com o problema da falta de QRCode dois dias de hoje.

Hoje para atender a nova nota técnica o ACBr gera o QRCode e já preenche a tag automaticamente, para incluir a tag ou não no XML coloque True ou False na propriedade ACBrNFe1.Configuracoes.Geral.IncluirQRCOdeXMLNFCe.

evenildo · 23 Outubro, 2015

tem algum que você sugere, que tenha uma boa integração com software externo ?

Obrigado

Quanto ao encurtador o Google possui um e se não me engano tem API para usar e integrar.

Quanto ao envio dos SMS não tenho nenhum para indicar, você teria que analisar os vários serviços de envio de SMS disponíveis e verificar qual o melhor para sua necessidade.

Consegui resolver meu problema, depois de vários e-mails enviados para Sefaz-MT, objetive uma resposta satisfatória.

Eu estava enviando para o cálculo do hash o CSC seguindo uma formatação existente no exemplo do manual utilizando traço para separar os grupos dos caracteres: A639A0FD-8887-E68C66CF-11276B5A3FA6

A resposta que a SEFAZ - MT mandou, foi que não pode ter formatação, tem que ser exatamente da forma que a página web de sua Secretaria da Fazenda disponibilizou. O que inclui maiúsculo e minúsculo.

O ACBr já possui um método para fazer isso "NotaUtil.GetURLQRCode", bastaria utilizar ele, declare ACBrNFeUtil no uses e ele estará disponível.

Fiz o que você propôs Regys, mas mesmo assim ainda apresenta a danada da mensagem "Erro 100 - QR Code Inválido".

O link gerado a baixo foi pelo NotaUtil.GetURLQRCode

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140819645307000178650010000001851000001500&nVersao=100&tpAmb=2&cDest=99999999000191&dhEmi=323031342D30382D30345431363A34373A30332D30343A3030&vNF=100.00&vICMS=17.00&digVal=7A725546427A4370554A43557A50746B6236596A56474B6A7642593D&cIdToken=000001&cHashQRCode=233B859CAF1E4949AA4DC1A1B7FE178F1DAFFE74

Por favor me desculpe a pergunta mais em qual metodo do ACBRNFE eu coloco essa URL gerarda por esse outro metodo NotaUtil.GetURLQRCode , desde ja agradeço

Veja que o que postei é de 2014, nada tem a ver com o problema da falta de QRCode dois dias de hoje.

Hoje para atender a nova nota técnica o ACBr gera o QRCode e já preenche a tag automaticamente, para incluir a tag ou não no XML coloque True ou False na propriedade ACBrNFe1.Configuracoes.Geral.IncluirQRCOdeXMLNFCe.

Infelizmente a versão do acbr que uso não tem essa propriedade , acha que devo atualizar a partir do trunc2

Juliomar Marchetti · 23 Outubro, 2015

O quanto antes pois já está congelado o trunk e não recebe mais atualizações

fabricarneiro · 11 Novembro, 2015

O trunc2 funciona com Delphi 7?

Editado 11 Novembro, 2015 por fabricarneiro

Juliomar Marchetti · 11 Novembro, 2015

sempre!

fabricarneiro · 13 Novembro, 2015

Boa tarde Juliomar, obrigado pela resposta! Fiquei com uma dúvida após a instalação do trunc2 minha aplicação começou a pedir as seguintes dlls nos servidores dos meus clientes:

iconv.dll
inpout32.dll
libxml2.dll
libxmlsec.dll
libxmlsec-openssl.dll
libxslt.dll
msvcr71.dll
zlib1.dll

Isso é normal ou foi algum erro meu durante a instalação ?

Agnaldo Prates · 13 Novembro, 2015

8 minutos atrás, fabricarneiro disse:

Boa tarde Juliomar, obrigado pela resposta! Fiquei com uma dúvida após a instalação do trunc2 minha aplicação começou a pedir as seguintes dlls nos servidores dos meus clientes:

iconv.dll
inpout32.dll
libxml2.dll
libxmlsec.dll
libxmlsec-openssl.dll
libxslt.dll
msvcr71.dll
zlib1.dll

Isso é normal ou foi algum erro meu durante a instalação ?

Absolutamente normal. No meu instalador / atualizador já incluo estes arquivos, uma vez que estes são necessários para funcionar a suite ACBr.

Att,

Entrar

Sobre nós...

Ajuda Com Geracao Da Url Para O Qr Code Da Nfc-E

Recommended Posts

bolinha182

Leonardo Gregianin

bolinha182

Leonardo Gregianin

bolinha182

dionatan

Solivan

bolinha182

RodrigoPalma

Juliomar Marchetti

Rubens-JP

Régys Silveira

Rubens-JP

Rubens-JP

diego ribas

Régys Silveira

diego ribas

evenildo

Régys Silveira

evenildo

Juliomar Marchetti

fabricarneiro

Juliomar Marchetti

fabricarneiro

Agnaldo Prates

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br