Buenas, tengo una dll que sirve de api a una aplicacion de un proveedor, estoy haciendo un envio masivo de datos, hasta ahora me funciona bien pero me gustaria las observaciones de optimizacion del mismo y asi puede servir de orientación a otros que tienen necesidades similares.
primero genero una consulta sql
Código Delphi
[-]with datos.Sqajuste do
begin
Close;
ParamByName('categoria').AsString:=listafpago.LookupValue;
Open;
end;
luego recorro esa consulta haciendo el envio de datos
Código Delphi
[-]
if not datos.Sqajuste.IsEmpty then
begin
while not datos.Sqajuste.Eof do
begin
codigo:=datos.Sqajuste.FieldByName('CODIGO').AsString;
LocalSt:=Getdias(0,1,codigo,'','');
if LocalST<>'' then
PrepareListBox(LocalST);
vp:=StrToCurr(ListBox1.Items[4]);
vpd:=((vp/1.16)/StrToCurr(EdtTasa.Text));
vp1:=CurrToStr(vp1);
dias:='0'+';'+'0'+';'+vp1+';'+'0'+';'+'0'+';'+';'+'0'+';'+'0';
Updatedias(1,1,codigo,'','',dias);
datos.Sqajuste.Next;
end;
Application.MessageBox('Proceso Culminado ', 'Caption', MB_OK);
end;