Error con Consulta!!
 

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=:peditcodigo');
                  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)

Hola iancirdo, el error te da porque no estas limpiando la propiedad Sql a parte le falta un espacio entre el * y el from.

Código Delphi [-]
 active:=false;
 sql.Clear; //esto falta
 sql.Add('SELECT * FROM deposito WHERE codigo= : peditcodigo');
 ParamByname('peditcodigo').AsString:=editcodigo.Text;
 active:=true;

 //en vez de utilizar Add también puedes utilizar Text, así ya no necesitas limpiar
 
 active:=false;
 sql.Text := 'SELECT * FROM deposito WHERE codigo= : peditcodigo';
 ParamByname('peditcodigo').AsString:=editcodigo.Text;
 active:=true;

Saluditos

:
 

che cual es el error que te da? algo mas?
en cualquier caso fijate que despues del where tenes codigo:= esos ":" (dos puntos) estan de mas puede ser eso.

Gracias carooooooo!!! una vez mas me sacas de los problemas :) byebye