Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Sefas Notificacao Para O Cliente Erro Qrcode


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

Recommended Posts

  • Membros Pro

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

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.