Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- essage('Erro: ' + E.Message);
- end;
- end;
- // Se o processo chamado for executado com sucesso este campo retornará 1. Em caso de falha retornará 0.
- if (RetornoNota.Resultado = 0) then // Falha
- begin
- for intCount := Low(DescricaoErros) to High(DescricaoErros) do
- ShowMessage('Id: ' + IntToStr(DescricaoErros[intCount].id) + #13 + #13 +
- 'Processo: ' + DescricaoErros[intCount].DescricaoProcesso + #13 + #13 +
- 'Descrição: ' + DescricaoErros[intCount].DescricaoErro);
- end
- else // Sucesso
- begin
- VarLink:=RetornoNota.LinkImpressao;
- ShellExecute(0, nil, PChar(VarLink), nil, nil, 1);
- tabNFSe.Edit;
- tabNFSeNumeroNota.Value:= RetornoNota.Nota;
- tabNFSeHash_autenticidade.AsString:= RetornoNota.autenticidade;
- tabNFSeLink_NFse.AsString:= RetornoNota.LinkImpressao;
- tabNFSe.Post;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement