DBGrid1.DataSource:=DataSource3;
QueryVisa.Active:=True;
With QueryVisa do begin
Active:=False;
with SQL do begin
clear;
Add('SELECT * FROM BASEVISA');
Add('ORDER BY AUTH ASC');
end;
ExecSQL;
Active:=True;
end;
DBGrid2.DataSource:=DataSource4;
QueryBanca.Active:=True;
With QueryBANCA do begin
Active:=False;
with SQL do begin
clear;
Add('SELECT * FROM BASEBANCA');
Add('ORDER BY AUTH ASC');
end;
ExecSQL;
Active:=True;
end;
end;