Cleiton Ferreira

4 Abril, 2019

Pessoal, estava com o mesmo problema, aqui resolveu da seguinte forma:
Editei o arquivo "ACBrNFeServicos.ini"->(Trunk2\Fontes\ACBrDFe\ACBrNFe\ACBrNFeServicos.ini), deixando assim:

"URL-ConsultaNFCe_2.00=http://www.sefaz.mt.gov.br/nfce/consultanfce";

Depois de garantir que a tag esta como mencionada, então eu exclui o arquivo "ACBrNFeServicos.res" que esta no mesmo diretório do ".ini", e em seguida executei o arquivo "Compila_RES.BAT", que esta no mesmo diretório, posteriormente recompilei o projeto e o erro sumiu!

espero que funcione para vocês!

27 Julho, 2018

Em 03/07/2018 at 09:32, Níssius Ribas disse:

Pessoal, SEFAZ RS com QrCode 2.0 esta retornando este mesmo erro desde o dia 02/07.

Aqui em Rondônia e Mato Grosso, resolvi com a dica do (Daniel S Ferreira) alterando a função "GetURLQRCode" na Unit "ACBrNFe"

A linha Original é " sCSC := cIdCSC + cCSC; " Para Rondônia, Continua dessa FORMA, mas para o MT é preciso Concatenar com o " | "
Fiz a Alteração para atender minha situação e esta Funcionando corretamente.

if (CUF in [51]) then
begin
sCSC := cIdCSC +'|'+ cCSC; //Correção temporaria para Mato Grosso.
end else
if (CUF in [11]) then
begin
sCSC := cIdCSC + cCSC; //Correção temporaria para Rondonia.
end;

24 Julho, 2018

10 horas atrás, Lazaro Pavao disse:

Recebi informação do proprio sefaz que estão com problema em relação de homologação MT então trabalhando para corrigir esta situação.

nesse teste usou qual versão do QRCode? 100 ou 1.0 como queira

envio síncrono ou assíncrono? Sincrono.

Estou testando agora. Homologação-MT
NF-e 4.0 tudo ceto, mas na NFC-e, "Rejeição 813: QR-Code com sequência de escape para o e-comercial."
Vou continuar os testes amanhã.

25 Março, 2018

Em 06/09/2017 at 10:38, softcom.wendel disse:

Bom dia,

Estou começando a tratar retornos do SICREDI e a confirmação de registro ( toRetornoRegistroConfirmado ) está vindo com o nosso Número diferente do que foi enviado

Na liquidação vem corretamente o Número

No retorno vem 172784262 e o correto seria 0000278426

O último digito creio que seja o DIG VERIF Mas o inicio com 17 eu não entendi

Alguém poderia me dar uma luz?

Se eu não estou enganado, 17 é o ANO.

4 Março, 2018

Não confundi arvore nem uma amigo, eu ja havia lido as respostas anteriores, já sabia que era problema no foge, apenas perguntei se alguém tinha mais informações, pois não faço parte do forum do forge, para perguntar, enfim, não vou tentar justificar meu modo de falar, fico por aqui...

4 Março, 2018

Em 02/03/2018 at 17:45, Daniel Simoes disse:

Você está latindo na arvore errada...

O problema é no Source Forge, não depende dos desenvolvedores do ACBr.... e não temos como dar previsão... Milhares de projetos OpenSource são afetados com o problema..

Faça a sua reclamação para:
https://twitter.com/sfnet_ops

Apenas fiz uma pergunta amigo, Não esbocei em qualquer momento desrespeito a alguém aqui, se "Que Foda" é ofensiva pra vc, me desculpa.
É que não fui criado com "Miolo de Pão".
E quem costuma latir é cachorro, Eu não vejo cachorro por aqui.
Apenas fiz uma pergunta, Se o afetou, apenas exclua já que faz parte da administração.

2 Março, 2018

Que maravilha, estou a 1300 km longe de casa, preciso atualizar o ACBrBoleto para resolver um problema na geração e nada, Que foda...
Alguém tem alguma previsão, ou mais informações de quando volta?

30 Março, 2016

Em 12/01/2016 at 08:34, Régys Silveira disse:

Você atualizou os schemas?

Já tinha testando tudo, tudo, tudo só faltava isso rsrsrs...

9 Março, 2016

Em 11/02/2016 at 16:27, Carbox disse:

Consegui instalar corretamente apos limpar a versão antiga..

Estou usando agora o Fortes Report... Só uma dúvida se poder me responder!

O que é esse componete PoSPrinter? Diz que preciso ter um POSPRINTER associado

O que seria?

É um componente para impressão, que imprime em Impressoras térmicas usando dll do fabricante.
Fica na Aba ACBR Serial, no componente vc seleciona o modelo da sua impressora Térmica Não fiscal e o componente imprime um Danfe da NFC-e muito charmoso e mto rápido tbm, aproveitando todo o potencial das impressoras, pois como não se usa windows para gerenciar o trabalho de impressão ganha velocidade e qualidade.

15 Dezembro, 2015

Boa tarde, estou notando a uns dias algo meio estranho no envio das NFC-e em contingencia ao enviar uma NFC-e muitas vezes por motivos diversos não é possivel salvar no banco o XML do retorno do envio, para solucionar isso utilizo ACBrNFe.Consultar e caso no retorno ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt vier alguma informação eu sei que essa nota ja foi enviada e se tentar enviar de novo óbvio que vai haver duplicidade, então eu apenas ignoro a função enviar e logo o ACBR vai atualizar o meu XML e tbm Posso grava-lo no banco com a informação do Protocolo de autorização.

Porem quando a nota e enviada normalmente na contingencia sem erro algum o retorno que tenho é mais ou menos assim. " <infProt Id="ID151150000911705"> ".
Agora quando tenho problema em gravar o retorno de primeira e faço a consulta da nota antes o retorno dessa tag é mais ou menos assim
" <infProt id="ID51151222486132000108650020000020209000020207"> "
Quando uso validador da sefaz RS para verificar a validade do XML tenho erro na Tag Id que são diferentes.
Schema XML: The 'id' attribute is not declared.

Caminho: id

19 Março, 2015

Uma outra dica para ajudar tbm alem da do Regis , vc pode tbm utilizar a impressao direta tbm , assim :

1 - Instale normalmente o Driver da impressora (Isso serve para qualquer impressora , não só Bematech !) .

2 - Compartilhe ela com o nome desejado .

rotina no delphi :

var print : textfile ;

begin

AssignFile ( print , '\\nome_computador_local\nome_compartilhado_impressora' ) ; // A impressão é no proprio computador onde esta instalado a impressora ou na rede tbm se quizer !!!

Rewrite (print);

WriteLn (print , 'Linha impressa 1');

WriteLn (print , 'Linha impressa 2');

WriteLn (print , 'Linha impressa 3');

CloseFile (print);

end ;

obs : existem Comandos WriteLn para acionamento de guilhotina , acionamento de gaveta , etc... funciona tudo !

Abraço !

Solução rápida e eficaz parceiro, obrigado...

11 Fevereiro, 2015

Bom Dia

Senhores

Fiz uma alteração para contemplar a questao do troco, na DANFECe do Fortes

Segue:

procedure TACBrNFeDANFCeFortesFr.rlbTrocoBeforePrint(Sender: TObject;

var PrintIt: boolean);

var

Troco : Currency;

begin

PrintIt := (ACBrNFeDANFCeFortes.vTroco > 0);

if PrintIt then

lTroco.Caption := DFeUtil.FormatFloat(ACBrNFeDANFCeFortes.vTroco,'#,###,##0.00');;

end;

Se estiver correto, e de acordo, favor subir pro SVN

Abraços

Bacana, o problema é que aqui ficou assim, uma venda de R$ 2,60 e pagando com R$ 5,00.

VALOR TOTAL R$ 2,60

Dinheiro R$ 2,60

Troco R$ 2,40

Ficou meio confuso no meu ponto de vista, em parte resolve em parte não :/

att,

26 Janeiro, 2015

Mas se quiser meter a mão na massa fique a vontade, acredito que vá utilizar o mesmo.

depois anexa os fontes que com certeza será analisado e subido ao trunk do svnQuote

Marchetti, Alguém se prontificou a implementar bombas?

Interessante a possibilidade de integração com os principais concentradores!

Se existir algum tópico informa ai, vlw.

14 Novembro, 2014

Bom dia Italo Jr,
Eu cabei de ler a NT2014/003 NFC-e e fiquei um pouco preocupado quanto ao MT adotar ou não o modelo EPEC, pois temos muitos clientes de pequeno porte com provedores de internet ruim e até clientes médio com o mesmo problema, Caso a SEFAZ/MT adotar o modelo EPEC e não aceitar mais o modelo OffLine qual seria a alternativa neste caso de o cliente não ter uma conexão com a internet?
Obrigado pela atenção.

Cleiton.

10 Janeiro, 2014

Pessoal venho a agradecer aqui a todos que postaram duvidas/resolucoes de problemas apresentado no desenvolvimento do NFC-e.

baseando-se nisso consegui efetuar os testes em homologacao de primeira =D.

agora estou efetuando as validacoes de campos e alguns detalhes, mais ja esta ok a NFC-e ( MT ) .

Muito obrigado a todos.

O meu projeto NFC-e esta rodando 100% em produção, tbm fiquei muito grato e satisfeito com o forum do Projeto, parabéns a todos e estou a disposição para ajudar a quem ainda esta desenvolvendo...

11 Dezembro, 2013

Bom dia, agora sem fazer quaisquer alteração nos fontes a tela de consulta mudou, agora mostra que o token não existe para o CNPJ.

ERRO
Codigo do TOKEN inexistente para o CNPJ 07212380 e cIdToken 000002

DADOS INFORMADOS Chave de Acesso: 51-1312-07.212.380/0001-77-65-001-000.000.083-100.000.083-7 Versão: 100 Ambiente: PRODUÇÃO Doc. Identificação do Consumidor: 96778865253 Data Hora Emissão: 2013-12-11T08:36:51-03:00 Valor Total da NF R$: 0.12 Valor Total do ICMS R$: 0.00 Código do XML: 3LE+5D2a2lALGWcCZAvkLS3GeGc= ID Token do Contribuinte: 000002 Código Hash dos Parâmetros: A80406FB209932AF9330C4CA4E2627470E43B051

© Copyright 2001-2013 Secretaria de Estado de Fazenda de Mato Grosso - Todos os direitos reservados

Boa noite amigos.

Apos enviar um email para [email protected] com o erro e os tokens que estava usando o problema se resolveu só.

Agora não sei se foi por intervenção da sefaz ou se o problema era generalizado e voltou a funcionar e isso foi uma consciência...

o importante é que resolveu.

11 Dezembro, 2013

Boa tarde Régys,

Procurei muito no forum e não achei nada que pudesse me ajudar na formação do TOKEN em produção, estou usando a rotina abaixo, em homologação o QR Code esta 100% vai direto pro portal e mostra o DANFE, mais quando inseri o TOKEN valido para produção o QR Code não gera correto, visualizo na pagina apenas "Mensagem de erro não especificada".

Agradeço qualquer ajuda, obrigado.

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then

begin

FIdToken := '000001';

end;

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then

begin

FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+IntToStr(YearOf(Now))+'0001';

end;

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then

begin

FIdToken := '000001'

end;

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then

begin

FToken := 'gg1c75db59f4afb2fe792a0b6f2e1685';

end;

s_aux :='chNFe=<chaveacesso>'+

'&nVersao=100'+

'&tpAmb=<ambiente>'+

IIf(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF<>'', '&cDest=<cnpj_dest>', '')+

'&dhEmi=<data_hora>'+

'&vNF=<valor>'+

'&vICMS=<valor_icms>'+

'&digVal=<digito_val>'+

'&cIdToken=<id_token><token>';

s_aux := StringReplace(s_aux, '<chaveacesso>', SomenteNumeros(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID), []);

s_aux := StringReplace(s_aux, '<ambiente>', TpAmbToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb), []);

s_aux := StringReplace(s_aux, '<data_hora>', dh_emi, []);

s_aux := StringReplace(s_aux, '<valor>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF),',','.',[]),[] );

s_aux := StringReplace(s_aux, '<valor_icms>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS),',','.',[]),[] );

s_aux := StringReplace(s_aux, '<digito_val>', StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.signature.DigestValue), []);

s_aux := StringReplace(s_aux, '<id_token>', FIdToken, []);

s_aux := StringReplace(s_aux, '<cnpj_dest>', ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, []);

with TACBrEAD.Create(nil) do

try

s_hash := StringReplace(s_aux,'<token>',FToken,[]);

s_hash := CalcularHash(s_hash, dgstSHA1);

finally

Free;

end;

s_aux := StringReplace(s_aux,'<token>', '',[]) + '&cHashQRCode='+s_hash;

s_aux := GetSiteConsulta( CodigoParaUF(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF), ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb ) +'?'+ s_aux;

Bom dia, agora sem fazer quaisquer alteração nos fontes a tela de consulta mudou, agora mostra que o token não existe para o CNPJ.

ERRO

Codigo do TOKEN inexistente para o CNPJ 07212380 e cIdToken 000002

DADOS INFORMADOS Chave de Acesso: 51-1312-07.212.380/0001-77-65-001-000.000.083-100.000.083-7 Versão: 100 Ambiente: PRODUÇÃO Doc. Identificação do Consumidor: 96778865253 Data Hora Emissão: 2013-12-11T08:36:51-03:00 Valor Total da NF R$: 0.12 Valor Total do ICMS R$: 0.00 Código do XML: 3LE+5D2a2lALGWcCZAvkLS3GeGc= ID Token do Contribuinte: 000002 Código Hash dos Parâmetros: A80406FB209932AF9330C4CA4E2627470E43B051

10 Dezembro, 2013

Respondido em:

Por favor, pergunto somente em um lugar e aguarde.

Boa tarde Régys,

Procurei muito no forum e não achei nada que pudesse me ajudar na formação do TOKEN em produção, estou usando a rotina abaixo, em homologação o QR Code esta 100% vai direto pro portal e mostra o DANFE, mais quando inseri o TOKEN valido para produção o QR Code não gera correto, visualizo na pagina apenas "Mensagem de erro não especificada".

Agradeço qualquer ajuda, obrigado.

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then

begin

FIdToken := '000001';

end;

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then

begin

FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+IntToStr(YearOf(Now))+'0001';

end;

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then

begin

FIdToken := '000001'

end;

if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then

begin

FToken := 'gg1c75db59f4afb2fe792a0b6f2e1685';

end;

s_aux :='chNFe=<chaveacesso>'+

'&nVersao=100'+

'&tpAmb=<ambiente>'+

IIf(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF<>'', '&cDest=<cnpj_dest>', '')+

'&dhEmi=<data_hora>'+

'&vNF=<valor>'+

'&vICMS=<valor_icms>'+

'&digVal=<digito_val>'+

'&cIdToken=<id_token><token>';

s_aux := StringReplace(s_aux, '<chaveacesso>', SomenteNumeros(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID), []);

s_aux := StringReplace(s_aux, '<ambiente>', TpAmbToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb), []);

s_aux := StringReplace(s_aux, '<data_hora>', dh_emi, []);

s_aux := StringReplace(s_aux, '<valor>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF),',','.',[]),[] );

s_aux := StringReplace(s_aux, '<valor_icms>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS),',','.',[]),[] );

s_aux := StringReplace(s_aux, '<digito_val>', StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.signature.DigestValue), []);

s_aux := StringReplace(s_aux, '<id_token>', FIdToken, []);

s_aux := StringReplace(s_aux, '<cnpj_dest>', ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, []);

with TACBrEAD.Create(nil) do

try

s_hash := StringReplace(s_aux,'<token>',FToken,[]);

s_hash := CalcularHash(s_hash, dgstSHA1);

finally

Free;

end;

s_aux := StringReplace(s_aux,'<token>', '',[]) + '&cHashQRCode='+s_hash;

s_aux := GetSiteConsulta( CodigoParaUF(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF), ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb ) +'?'+ s_aux;

9 Dezembro, 2013

Caro colega, o problema está na construção da sua URL, você passou a usar o token em produção mas não definiu no parametro tpAmb=2 que deve ser 2 e não 1.

Veja a Nota clicando aqui

Att. Solivan

Bom dia, Solivan.

Acredito que tenha confundido, realmente se mudar o tpAmb=2 o danfe aparece no link com "erro 100", pois tpAmb=2 é homologação.

Identificação do Ambiente (1 – Produção, 2 – Homologação)

Nesse caso se eu transmitir a NFC-e com tpAmb=2 não ira funcionar o token de produção, e tbm não tera validade fiscal o documento.

Refiz alguns testes hoje de manhã, com token sem formatação como recebi da sefaz e com Formatação da forma que mostra na NT.

Os resultados foram os mesmos.

Mensagem de erro não especificada.

FIdToken := '000001'

FToken := 'ff1c75db59f4afb2fe792a0b6f2e1685';

--------

FIdToken := '000001'

FToken := 'FF1C75DB-59F4-AFB2-FE79-2A0B6F2E1685';

7 Dezembro, 2013

ja tentei a formatação, uppercase com formatação, mais nada, continua não mostrando o danfe na URL.
estou aguardando pois teste o envio assim que o contador criou o token, vou testar na segunda talvez precisa de um tempo apos a criação do token.
Esse manual tem poucas informações quanto a essa parte do token, lamentável.

Aguardando novidades quanto a isso. não tenho muito oque fazer, seguindo a nt ta osso.

7 Dezembro, 2013

Pessoal, bom dia.
estava utilizando o TOKEN de homologação formado pelo CNPJ+ANO+0001, meu QRCode estava 100% visualizava o danfe normalmente no site.
Hoje recebi o Token de produção do contador nesse padrão: df1c75db59f4afb2fe792a0b6f2e1685.

Apenas substitui o Token que antes era:

FIdToken := '000001';

FToken:= Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+IntToStr(YearOf(Now))+'0001';

Ficando dessa forma:
FIdToken := '000001';
FToken:= 'df1c75db59f4afb2fe792a0b6f2e1685';

E a partir da mudança o QR code não esta mais válido.
Alguém já esta utilizando o token em produção para dar uma força.

URL da NFC-e:
http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131207212380000177650010000000711000000712&nVersao=100&tpAmb=1&cDest=96778865253&dhEmi=323031332D31322D30375430393A33313A30392D30333A3030&vNF=0.35&vICMS=0.00&digVal=4C35414269322B6E4D556331794E2F75587A67635764684876796B3D&cIdToken=000001&cHashQRCode=AE8ED0A5F4CD2C0A4FCFABFFA59F28A7463C9074

Danfe Report Builder.

Att,
Cleiton Ferreira.

7 Dezembro, 2013

como vc consegui tirar o erro 100 do qrcode

Amigo post sua tela de erro, mais se for a mesma do udenilson, na URL dele os valores da NF e ICMS estavam formatados com "," ao envés de '.' verifique se o seu URL tbm não contem virgulas, mais ontem o WS tava meio doido, pq deu erro, depois voltou a funcionar...

6 Dezembro, 2013

Para quem ainda esta com problemas pra gerar o qrCode vou postar aqui da maneira que esta funcionando, pelo menos para o MT:

procedure TfrmDanfeECF.GerarQrCode;
var
  s_aux, dh_emi, s_hash: string;
begin
  dh_emi := GetUTC( CodigoParaUF(facbr.NotasFiscais.Items[0].NFe.Ide.cUF),
              StrToDateTime(FormatDateTime('dd/mm/yyyy',facbr.NotasFiscais.Items[0].NFe.Ide.dEmi)+' '+
              FormatDateTime('hh:mm:ss', facbr.NotasFiscais.Items[0].NFe.Ide.dEmi)));
  dh_emi := StrToHex( FormatDateTime('yyyy-mm-dd',facbr.NotasFiscais.Items[0].NFe.Ide.dEmi)+'T'+
              FormatDateTime('hh:mm:ss', facbr.NotasFiscais.Items[0].NFe.Ide.dEmi)+dh_emi );

  if (FAcbr.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then
  begin
    FIdToken := '000001';
  end;
  if (FAcbr.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then
  begin
    FToken := Copy(FAcbr.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+IntToStr(YearOf(Now))+'0001';
  end;

  s_aux :='chNFe=<chaveacesso>'+
          '&nVersao=100'+
          '&tpAmb=<ambiente>'+
          IIf(facbr.NotasFiscais.Items[0].NFe.Dest.CNPJCPF<>'', '&cDest=<cnpj_dest>', '')+
          '&dhEmi=<data_hora>'+
          '&vNF=<valor>'+
          '&vICMS=<valor_icms>'+
          '&digVal=<digito_val>'+
          '&cIdToken=<id_token><token>';

  s_aux := StringReplace(s_aux, '<chaveacesso>', SomenteNumeros(facbr.NotasFiscais.Items[0].NFe.infNFe.ID), []);
  s_aux := StringReplace(s_aux, '<ambiente>', TpAmbToStr(facbr.NotasFiscais.Items[0].NFe.Ide.tpAmb), []);
  s_aux := StringReplace(s_aux, '<data_hora>', dh_emi, []);
  s_aux := StringReplace(s_aux, '<valor>', StringReplace(FormatFloat('##,##0.00',facbr.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF),',','.',[]),[] );
  s_aux := StringReplace(s_aux, '<valor_icms>', StringReplace(FormatFloat('##,##0.00',facbr.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS),',','.',[]),[] );
  s_aux := StringReplace(s_aux, '<digito_val>', StrToHex(facbr.NotasFiscais.Items[0].NFe.signature.DigestValue), []);
  s_aux := StringReplace(s_aux, '<id_token>', FIdToken, []);
  s_aux := StringReplace(s_aux, '<cnpj_dest>', facbr.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, []);

  with TACBrEAD.Create(nil) do
  try
    s_hash := StringReplace(s_aux,'<token>',FToken,[]);
    s_hash := CalcularHash(s_hash, dgstSHA1);
  finally
    Free;
  end;

  s_aux :=  StringReplace(s_aux,'<token>', '',[]) + '&cHashQRCode='+s_hash;
  s_aux := GetSiteConsulta( CodigoParaUF(FAcbr.NotasFiscais.Items[0].NFe.Ide.cUF), FAcbr.NotasFiscais.Items[0].NFe.Ide.tpAmb ) +'?'+ s_aux;

  MontarQrCode(s_aux);

end;

Notem que, quando for gerar o hash, deve ser feito com IdToken e Com o Token, para homologação deve ser IdToken = '000001',

e Token, (primeiros 8 digitos do CNPJ)+Ano+0001. Quando for gerar o qrCode deve remover o "token" e deixar apenas o IdToken senão não vai fechar e vai retornar o erro 100.

pra quem tiver interesse segue uma string do qr_code funcionando.

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131115319954000139650050000001031175076630&nVersao=100&tpAmb=2&dhEmi=323031332D31312D30375431363A33343A35322D30333A3030&vNF=111.01&vICMS=19.98&digVal=486256502F3478596278784230314470377466474E4151356949553D&cIdToken=000001&cHashQRCode=56A39A17537CAB21C1632887C332BE95CD1BD51F

Abaixo a string sob a qual foi gerado o hash

STRING:
chNFe=51131115319954000139650050000001031175076630&nVersao=100&tpAmb=2&dhEmi=323031332D31312D30375431363A33343A35322D30333A3030&vNF=111.01&vICMS=19.98&digVal=486256502F3478596278784230314470377466474E4151356949553D&cIdToken=0000011531995420130001


HASH: 
56A39A17537CAB21C1632887C332BE95CD1BD51F

Bom dia, ate ontem meu QRCode estava 100% em faze de homologação, ja estou imprimindo o DANFE em Report Builder com uma certa adaptação que fiz usando um componente de QR Code (ZIntQRCode), Porem hoje tentei ler o QRCode do DANFE e a mesma nota que mostrou o danfe certinho ontem hoje aparece essa tela...

MENSAGEM Campo digVal(Digest Value da NFC-e) do QR Code deve conter no máximo 56 bytes

DADOS INFORMADOS Chave de Acesso: 51-1312-07.212.380/0001-77-65-001-000.000.023-100.000.023-5 Versão: 100 Ambiente: HOMOLOGAÇÃO Doc. Identificação do Consumidor: 96778865253 Data Hora Emissão: 2013-12-02T18:26:53-03:00 Valor Total da NF R$: 7.83 Valor Total do ICMS R$: 0.00 Código do XML: F/JHat7iFcdOuOT24mkaVz5zwKU= ID Token do Contribuinte: 000001 Código Hash dos Parâmetros: A5C3D2B0A2FAE03F7E0F0E2DF4EA589962B27765

Se tentar visualizar a mesma URL do Roberto, tbm vai apresentar a mesma tela, diferente da tela qual apresentava anteriormente..

http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51131115319954000139650050000001031175076630&nVersao=100&tpAmb=2&dhEmi=323031332D31312D30375431363A33343A35322D30333A3030&vNF=111.01&vICMS=19.98&digVal=486256502F3478596278784230314470377466474E4151356949553D&cIdToken=000001&cHashQRCode=56A39A17537CAB21C1632887C332BE95CD1BD51F

Editando ( Voltou a funcionar, acredito que tenha sido algum evento do ws, obg..)

Att,

Cleiton Ferreira.

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por Cleiton Ferreira

Sobre nós...

Informação Importante