<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'><div><span style="font-size: 12pt;">Sr Héctor puede reducir el código, por ejemplo se puede hacer lo siguiente:</span></div><div><span style="font-size: 12pt;">(No analicé lo que hace el código pero veo que se puede reducir)</span></div><div><br></div><div><br></div><div><div><font face="Arial" size="2">var sqltext1,sqltext2,sqltext3,sqltext4,sqltext5,SQLText:string;</font></div><div><font face="Arial" size="2">WHERE: string;<br>begin</font></div><div><font face="Arial" size="2"></font> </div><div><font face="Arial" size="2"> fDM.tcProyPorActividad.FileName:=directory1+'\TablasCosto_'+anomes+'.db';<br> fDM.tcProyPorActividad.SQL:='cProyPorActividad.Delete'; //debe vaciarse la tabla</font></div><div><font face="Arial" size="2"></font> </div><div><font face="Arial" size="2"> fDM.tcProyPorActividad.Active:=false;<br> sqltext1:='SELECT Costos_1.ccosto,Costos_1.nombre,Costos_1.cantidad,Costos_1.Inventariable,Costos_1.ProcIniMN,Costos_1.ProcIniCUC,Costos_1.DirectosMN,Costos_1.DirectosCUC,Costos_1.IndirectosMN,Costos_1.IndirectosCUC,Costos_1.Terminado, ';<br> sqltext2:='Costos_1.ProdTerminadosMN,Costos_1.ProdTerminadosCUC,Costos_1.ProcFinMN,Costos_1.ProcFinCUC,Costos_1.CostoUnitarioMN,Costos_1.CostoUnitarioCUC ';<br> sqltext3:='FROM Costos_1 ';</font></div><div><font face="Arial" size="2"></font> </div><div><br></div><div><br></div><div><br></div><div><span style="font-size: 12pt;">WHERE:= '</span><span style="font-family: Arial; font-size: 10pt;">WHERE Costos_1.NoActividad="0</span><span style="font-size: 12pt;">';</span></div><div><span style="font-family: Arial; font-size: 10pt;">sqltext4:=WHERE + inttostr(Listbox1.itemindex)+'"';</span></div><div><br></div><div><br></div><div><font face="Arial" size="2"></font> </div><div><font face="Arial" size="2"> sqltext5:='ORDER BY Costos_1.ccosto ASC';<br> SQLText:=sqltext1+sqltext2+sqltext3+sqltext4+sqltext5;<br> fDM.tcProyPorActividad.SQL:=SQLText;</font></div><div><font face="Arial" size="2"></font> </div><div><font face="Arial" size="2"> fDM.tcProyPorActividad.Active:=true;</font></div></div><style><!--
--></style> </div></body>
</html>