Ver Mensaje Individual
  #1  
Antiguo 23-08-2013
sac sac is offline
Miembro
 
Registrado: abr 2007
Posts: 109
Reputación: 18
sac Va por buen camino
Problema para borrar desde DBLookUpListBox

Amigos a ver si me pueden ayudar.
Cada vez que un cliente compra mas de un articulo Se va sumando la compra para saber cuanto cobrar cuando termine de comprar. Ésto lo identifico de una compra anterior con un "Cod_Ventas".
Quiero que me ayuden a saber como hacer para borrar cuando se arrepienten de comprar un articulo sumado.
Estoy tratando de ver todos los articulos de ese "Cod_Ventas" en un DBLookuplistbox para seleccionarlo y borrarlo para después seguir con éste cliente.
Mi Consulta SQL es ésta:

Código Delphi [-]
  Q_Borrar.Close;
  Q_Borrar.SQL.Clear;
  Q_Borrar.SQL.Add('Select Cod_Ventas, Vta_Articulo, Cantidad, Total_Gasto');
  Q_Borrar.SQL.Add('From Libreria_Venta');

  Q_Borrar.sql.add('where Cod_Ventas =:PCod');
  Q_Borrar.sql.add('order by Vta_Articulo');
  if not Q_Borrar.Prepared then
           Q_Borrar.Prepare;
  Q_Borrar.parambyname('PCod').asInteger:= StrToint(edit3.text);
  Q_Borrar.Open;
  Q_Borrar.First;
  DBLookUpListBox1.ListSource:=DS_Borrar;
  DBLookUpListBox1.KeyField:='Cod_Ventas';

Gracias.
Responder Con Cita