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)