SHARE
TWEET

Untitled

a guest Nov 19th, 2019 90 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. essage('Erro: ' + E.Message);
  2.  
  3. end;
  4.  
  5. end;
  6.  
  7.  
  8.  
  9. // Se o processo chamado for executado com sucesso este campo retornará 1. Em caso de falha retornará 0.
  10.  
  11. if (RetornoNota.Resultado = 0) then // Falha
  12.  
  13. begin
  14.  
  15. for intCount := Low(DescricaoErros) to High(DescricaoErros) do
  16.  
  17. ShowMessage('Id: ' + IntToStr(DescricaoErros[intCount].id) + #13 + #13 +
  18.  
  19. 'Processo: ' + DescricaoErros[intCount].DescricaoProcesso + #13 + #13 +
  20.  
  21. 'Descrição: ' + DescricaoErros[intCount].DescricaoErro);
  22.  
  23. end
  24.  
  25. else // Sucesso
  26.  
  27. begin
  28.  
  29. VarLink:=RetornoNota.LinkImpressao;
  30.  
  31. ShellExecute(0, nil, PChar(VarLink), nil, nil, 1);
  32.  
  33.  
  34.  
  35. tabNFSe.Edit;
  36.  
  37. tabNFSeNumeroNota.Value:= RetornoNota.Nota;
  38.  
  39. tabNFSeHash_autenticidade.AsString:= RetornoNota.autenticidade;
  40.  
  41. tabNFSeLink_NFse.AsString:= RetornoNota.LinkImpressao;
  42.  
  43. tabNFSe.Post;
  44.  
  45. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top