Código Delphi [-]if (not Provider.Avtive) then Provider.Open; CDS.Close; ...
if (not Provider.Avtive) then Provider.Open; CDS.Close; ...