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; }