[einarcito]

hola chicos como les va. bueno tengo un pequeño problema..

Código Delphi [-]
  with dm.qVentasStock do begin
                  active:=false;
                  sql.Add('SELECT *FROM deposito WHERE codigo=editcodigo');
                  ParamByname('peditcodigo').AsString:=editcodigo.Text;
                  active:=true;
               
                 edit1.Text:=dm.qVentasStock['stock'];
                stockdisp:=strtofloat(edit1.Text);
                cantidad:=strTofloat(editcantidad.Text);
                dm.qVentasStock.Active:=false;

                if(stockdisp < cantidad) then begin showmessage('stock insuficiente. Revisar el deposito'); editcantidad.SetFocus;
                                        end else begin

bueno lo unico q hace esta porcion de codigo es. consultar a un deposito para ver si hay stock suficiente si lo hay lo agregar a la venta actual si no no lo agrega. Cuando hago la primera pasada para un agregar un X producto lo agrega a la linea de la venta perfecto pero cuando quiero agregar otro producto a la linea de la venta me da error. el cual es el siguiente.

SELECT *FROM deposito WHERE codigo:= 'XX' (XX es un codigo cualquiera)