[kainchu3102]

Buenas gente estoy trabajando de hacer un delete con a dos tablas Venta y detalle_venta, pero a las vez en detalle_venta necesito que me devuelva los produtos en stock, intenten hacer con ciclo por pero parece que no pego una, por favor necesitaria que me orienten un poco desde ya muy agradecido

Código Delphi [-]
   with MDATOS_SAGA.FDQSEL_ABM_VEN2 Do
              Begin
              SQL.Clear;
              SQL.Add('SELECT * FROM det_venta WHERE id_ven_detven = :ID_DETVEN');
              ParamByName('ID_DETVEN').AsInteger := ID_VENTA;
              open;
             C := MDATOS_SAGA.FDQSEL_ABM_VEN2.Fields.FieldByName('can_detven').AsInteger;
             end;

             With MDATOS_SAGA.FDQABM_DET_VENTA do
               Begin
               SQL.Clear;
               SQL.Add ('DELETE FROM det_venta WHERE id_ven_detven = :ID_DETVENE');
               Params.ParamByName('ID_DETVENE').AsInteger := ID_VENTA;
               ExecSQL
               end;

               I:= MDATOS_SAGA.FDQSEL_ABM_VEN2.Fields.FieldByName('id_pro_detven').AsInteger;

              for I :=0  to DBGDET_VENTA.SelectedRows.Count -1 do

              begin
               with MDATOS_SAGA.FDQACTUAL_STOCK do
                begin
                SQL.Clear;
                SQL.Add('UPDATE producto SET producto.sto_prod = producto.sto_prod + :CANT1  WHERE producto.id_prod = :PROD');
                Params.ParamByName('CANT1').AsInteger := C;
                Params.ParamByName('PROD').AsInteger := I;
                ExecSQL;
                end;
                end;

               MDATOS_SAGA.FDTDET_VENTA.Refresh;
               FORMABMVENTA.DBGABMVENTA.DataSource.DataSet.Refresh;

               ID_VENTA := 0;

               MessageDlg('SU REGISTRO FUE ELIMINADO CON EXITO!.', mtInformation,[mbOk], 0, mbOk);
             end;   }