Cita:
Empezado por paulina_puentes
Código Delphi [-]
procedure TFDM1.DataModuleCreate(Sender: TObject);
var
i:integer;
begin
FDM1.tclacta.Filter:='anopro_clacta='+inttostr(ano_ing);
FDM1.tclacta.Filtered:=true;
FDM1.tcuenta.active:=true;
FDM1.tdocgen.Filter:='tipiet_docgen = '+''''+Uctb_tipiet.docum+'''';
FDM1.tdocgen.Filtered:=true;
FDM1.tdocgen.active:=true;
FDM1.tdocdet.active:=true;
FDM1.tdocgen1.active:=true;
FDM1.tcencos.active:=true;
FDM1.ttipmov.active:=true;
FDM1.TConobj.active:=true;
FDM1.tclacta.active:=true;
FDM1.tconcep.active:=true;
FDM1.tproyec.active:=true;
FDM1.tsujeba.active:=true;
FDM1.testado.active:=true;
FDM1.ttipdoc.active:=true;
FDM1.Trectcp.active:=true;
FDM1.Tparanu.active:=true;
FDM1.Tparser.active:=true;
FDM1.Trecccp.active:=true;
FDM1.Trectcp.active:=true;
FDM1.Tbloqueo.active:=true;
FDM1.Tmnedia.active:=true;
FDM1.Tnumtra.active:=true;
end;
|
Tengo una duda, ¿es necesario que abras todas tus tablas desde el principio?
Desconozco la estructura de tu sistema, pero pienso que podrías abrir las tablas solo cuando las necesitas acceder y no de la forma como lo estas haciendo.
Salud OS