[webmasterplc]

Empezado por webmasterplc

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; //aqui envio un parametro a la consulta sql
            Open;
          end;
             if not datosa2.Sqajuste.IsEmpty then
                 while not datosa2.Sqajuste.Eof do
                  begin
                    codigo:=datosa2.Sqajuste.FieldByName('FI_CODIGO').AsString; //Asigno el codigo que le pasare a la funcion
                    LocalSt:=traercostostprecios(1,ComboPrecio.ItemIndex,codigo,EdtLote.Text,EdtRandom.Text); //   La Salida es un String, separando los campos x el carácter ; (Punto y coma) trae 6 valores que coloco en un lisbox 
                    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);//esta es la funcion para actualizar precioa
                   end;
          datosa2.Sqajuste.Next;
       end;

aqui la dejo por fuera de begin y el end y no avanza