Buenas mi consulta es la siguiente, necesito actualizar un precio de bolivares a dolares de forma masiva en un sistema de gestión, el fabricante nos proporciona una libreria que trae dos funciones una que e devuelve un precio y otra que la uso para enviar nuevos precios, como lo quiero hacer de forma masiva lo que hago es realizar una consulta a la base de datos y la recorro para enviar los parametros paso a paso pero el sistema se coloca en no responde y ala final no hace nada
la consulta es la siguente
Código Delphi
[-]begin;
with datosa2.Sqajuste do
begin
Close;
ParamByName('categoria').AsString:=listafpago.LookupValue; Open;
end;
if not datosa2.Sqajuste.IsEmpty then
while not datosa2.Sqajuste.Eof do
begin
codigo:=datosa2.Sqajuste.FieldByName('FI_CODIGO').AsString; LocalSt:=traercostostprecios(1,ComboPrecio.ItemIndex,codigo,EdtLote.Text,EdtRandom.Text); if LocalST<>'' then
PrepareListBox(LocalST);
p1:=StrToCurr(ListBox1.Items[4]);
imp:=StrToCurr(ListBox1.Items[3]);
np1:=p1*StrToCurr(EdtTasa.Text);
nprecio:=CurrToStr(np1);
pfinal:=('1000,01;1000,02;'+nprecio+';0;0;0;0;0');
actualizarPrecio(0,ComboPrecio.ItemIndex,codigo,EdtLote.Text,EdtRandom.Text,pfinal); end;
datosa2.Sqajuste.Next;
end;