También puedes tratar de ver cual es la parte donde se toma más tiempo.
- Una forma de hacerlo es con el debuger de Delphi, poniendo un breakpoint y luego con F8 paso a paso ver cual/es línea/s tardan más.
- Otra forma es poniendo mensajes (si no tienes el Delphi en el XP)
Código Delphi
[-]
...
FDM1.database1.Connected:=true;
ShowMessage('Paso 1');
FDM1.database2.Connected:=true;
ShowMessage('Paso 2');
FDM1.database3.Connected:=true;
ShowMessage('Paso 3');
FDM1.tempresa.active:=true;
ShowMessage('Paso 4');
empresa;
ShowMessage('Paso 5');
FDM1.testado.active:=true;
ShowMessage('Paso 6');
FDM1.Testado.indexname:='PK_estado';
ShowMessage('Paso 7');
ex_estado:=FDM1.Testado.findkey([cod_emp,ano_ing,mes_ing]);
ShowMessage('Paso 8');
if not(ex_estado) then
begin
showmessage('No existe Estado para año '+inttostr(ano_ing) + ' mes ' + inttostr(mes_ing));
exit;
end;
ShowMessage('Paso 9');
FDM1.tclacta.Filter:='anopro_clacta='+inttostr(ano_ing);
FDM1.tclacta.Filtered:=true;
ShowMessage('Paso 10');
FDM1.tcuenta.active:=true;
ShowMessage('Paso 10');
FDM1.tdocgen.Filter:='tipiet_docgen = '+''''+Uctb_tipiet.docum+'''';
FDM1.tdocgen.Filtered:=true;
FDM1.tdocgen.active:=true;
ShowMessage('Paso 11');
FDM1.tdocdet.active:=true;
ShowMessage('Paso 12');
FDM1.tdocgen1.active:=true;
ShowMessage('Paso 13');
FDM1.tcencos.active:=true;
ShowMessage('Paso 14');
FDM1.ttipmov.active:=true;
ShowMessage('Paso 15');
FDM1.TConobj.active:=true;
ShowMessage('Paso 16');
FDM1.tclacta.active:=true;
ShowMessage('Paso 17');
FDM1.tconcep.active:=true;
ShowMessage('Paso 18');
FDM1.tproyec.active:=true;
ShowMessage('Paso 19');
FDM1.tsujeba.active:=true;
ShowMessage('Paso 20');
FDM1.testado.active:=true;
ShowMessage('Paso 21');
FDM1.ttipdoc.active:=true;
ShowMessage('Paso 22');
FDM1.Trectcp.active:=true;
ShowMessage('Paso 23');
FDM1.Tparanu.active:=true;
ShowMessage('Paso 24');
FDM1.Tparser.active:=true;
ShowMessage('Paso 25');
FDM1.Trecccp.active:=true;
ShowMessage('Paso 26');
FDM1.Trectcp.active:=true;
ShowMessage('Paso 27');
FDM1.Tbloqueo.active:=true;
ShowMessage('Paso 28');
FDM1.Tmnedia.active:=true;
ShowMessage('Paso 29');
FDM1.Tnumtra.active:=true;
ShowMessage('Paso 30');
end
Si por ejemplo entre el mensaje "Paso 4" y "Paso 5" ha tardado mucho, el problema estará en el procedimeinto "empresa".