Problema para borrar desde DBLookUpListBox

[sac]

suponiendo que el Cod_Venta sea 23 y el Vta_Articulo sea Lapiz, capaz que agregandole un AND a ese Where le pueda indicar:

Where el codigo = 23 (que lo traigo del edit)
AND Vta_articulo = lapiz. ( a lapiz lo traería del DBLooUpListBox) entonces borrar...

Si fuera correcto me tendrías que ayudar xq no tengo idea como sacar del DBLookUpListBox los datos del Vta_articulo

[ecfisa]

Hola sac.

Empezado por sac

suponiendo que el Cod_Venta sea 23 y el Vta_Articulo sea Lapiz, capaz que agregandole un AND a ese Where le pueda indicar:

Where el codigo = 23 (que lo traigo del edit)
AND Vta_articulo = lapiz. ( a lapiz lo traería del DBLooUpListBox) entonces borrar...

Creo que lo mejor es agregar un campo ID autoincremental para cada ítem, ya que en teoría es factible, por ejemplo, que en una venta se dé esta situación:

Descripcion | Cantidad | Subt.
------------+----------+--------
Lapiz       | 2        | 4
Fibrón      | 1        | 5
Folios      | 10       | 10
...
( A ver... Mejor deme cinco lápices mas. )
Lapiz       | 5        | 10

¿ Y en ese caso cual ítem de lápiz borramos, el de 2 unidades o el de 5 ?

Usando un campo único de identificación (transparente para el usuario) el borrado sería:

Código Delphi [-]
  with Q_Borrar do
  begin
    Close;
    SQL.Text := 'DELETE FROM LIBRERIA_VENTA WHERE ID = :PARAMID';
    ParamByName('PARAMID').AsInteger := Tu_DataSet.FieldByName('ID').AsInteger;
    ExecSQL;
  end;
  Tu_DataSet.Refresh;

Basta entonces, estar posicionado en el registro que se desea borrar en Tu_DataSet e invocar al código anterior para que se realize el borrado correcto.

Saludos

[sac]

Ahhh está bueno eso... es más prolijo porque de todas maneras en tu ejemplo borraba el lapiz, o los 5, o los dos, y creaba la nueva compra de lapices, pero así es más prolijo... probaremos...

Ah y por el lado del consejo Ecfisa, es sobre el diseño de clubdelphi. No se si soy yo pero ese color naranja sobre el gris en las respuestas (generalemente lo veo en las consultas sql) a mi me molesta un poco para poder leerlo fácil. Generalmente tengo que sombrearlo con el mouse para poder leerlo, pero como dije antes, es un consejo solamente para mejorar ClubDelphi.