Sefas Notificacao Para O Cliente Erro Qrcode

[Hetosoft Sistemas]

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;