try

GetWebService_SigISSPortType.GerarNota(DescricaoRps, RetornoNota, DescricaoErros);

except

on E: Exception do

begin

ShowMessage('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;