Jump to content

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Procnfe.digval


  • Este tópico foi criado há 2942 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Estou gerando o brcode asim

 

 

 

    Form_NFe.ACBrNFe1.NotasFiscais.Clear;
    Form_NFe.ACBrNFe1.NotasFiscais.LoadFromFile(RAIZ+'\SQL_PDV\NFe\EnvioDeResposta\'+chave+'-nfe.xml');

      if Form_NFe.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 Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
        tpAmb := '1'
      else
        tpAmb := '2';
      cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, '');

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

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



      Barcode2D_QRCode1.Barcode:= Memo1.Text;

 

 

 

 

 

 

////////////////////////

e a nota off assim

 

Form_NFe.ACBrNFe1.Configuracoes.Geral.FormaEmissao := teOffLine;

 

       Ide.tpEmis := teOffLine;
       Ide.dhCont := Now;
       Ide.xJust  := 'Problemas Técnicos';

 

 

 

quando consutlo nao mostra nada na consulta é claro ainda nao ta na sefaz,

mais quando envior blz,

 

nao era para o mesmo qrcode , mostrar o conteudo na conulta da sefaz.

 

se eu manda imprmir o qrcode pelo novo xml enviado ai da certo.

Link to comment
Share on other sites

  • Membros Pro

Blz,

fiz um nfce em off , o cliente que a impressao , ai impirmo e sai cupom com qrcode no cupom blz,

se eu consulta via internet nao vai min mostra o cupom no site da sefaz porque eu nao enviei ainda ok,

 

quando eu envio este cupom - xml (sem modificacoes) para sefaz,

e tento consultar o qrcode pelo cupom impresso , nao min mostrar nada.

 

a pergunta é : não era para o grcode feito off , quando enviar, mostra a consulta.

 

------------------

mais se eu impirmir o cupom de novo com o xml ja enviado ele consulta blz.

 

e eu acho que a unica diferenca entre o xml criado off e enviado é o 

Procnfe.digval

----------------------------

se for isto mesmo, o cliente ta levando um cupom invalido é isso.?.

Edited by hetoandrade
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.