Jump to content

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

Recommended Posts

  • Membros Pro
Posted

Postado 07 February 2014 - 11:56 AM

Meu cliente recebeu uma notificacao de qrcode faltando informacoes,

Informar codigo de segurnaca TOKEN

 

eu sei ate qual é esse codigo,

exsite o numero do token e o codigo token,

mais onde colocar quando zero o qrcode ?

 

em amexo carta da SEFAZ-MT

e o conteudo do QRCode

 

 

 

  try
 

 

    if trim( dm.Client_NNFCeNUMEROTOKEM.text )<> '' then
    tokem :=  FormatFloat('000000',dm.Client_NNFCeNUMEROTOKEM.asinteger) else
    tokem := '000001';


      if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then
        URL := 'http://www.sefaz.mt..../consultanfce?'
      else
        URL := 'http://homologacao.s...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;

post-4970-0-17753800-1392320841_thumb.jp

post-4970-0-45129600-1392320849_thumb.jp

×
×
  • 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.

The popup will be closed in 10 seconds...