[[BlueSteel]]

Suata...

entonce que puedo hacer para solucionar mi problema... me explico...

Es un sistema de Ordenes de Compra... en donde un modulo es para modificar Ordenes que estan en Garantía....

La idea es poder agregar o quitar items de la orden (Tabla : DOrden), y actualizar los respectivos valores netos y de Iva (Tabla:Orden), para lo cual realizo el siguiente procedimiento:

Agrega Item (Tabla DOrden)

vTot.Text := FloatToStr(RoundN(StrToFloat(vCtd.Text)*StrToFloat(vUni.Text)));
IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Insert Into "DOrden" ("Ord_Numero","Dor_Descripcion",	   "Dor_Cantidad","Dor_Valor_Unitario")');
IBQ_Edit.SQL.Add('Values (:P1,:P2, :P3, :P4)');
IBQ_Edit.Params[0].AsString := nOrd.Text;
IBQ_Edit.Params[1].AsString := vDes.Text;
IBQ_Edit.Params[2].AsInteger := StrToInt(vCtd.Text);
IBQ_Edit.Params[3].AsFloat := StrToFloat(vUni.Text);
IBQ_Edit.ExecSQL;
vTot_Bru.Text := IntToStr(StrToInt(vTot.Text)+StrToInt(vTot_Net.Text));
 
Actualiza_Orden;

Elimina (Tabla DOrden)

IBQ_Edit.SQL.Clear;
IBQ_Edit.SQL.Add('Delete From "DOrden"');
IBQ_Edit.SQL.Add('Where "Dor_Numero"=:Var1');
IBQ_Edit.Params[0].AsString := IBQ_Items['Dor_Numero'];
IBQ_Edit.ExecSQL;
vTot_Bru.Text := FloatToStr(StrToFloat(vTot_Bru.Text)-Total_Item);

Procedimiento para actualizar calculos y Tabla :Orden

procedure TModifica_OC.Actualiza_Orden;
begin
  vTot_Net.Text := FloatToStr(StrToFloat(vTot_Bru.Text)-StrToFloat(vTot_Des.Text));
  If CB_Factura.Checked = True Then
	 vTot_Iva.Text := '0'
  Else
	 vTot_Iva.Text := FloatToStr(RoundN(StrToFloat(vTot_Net.Text)*vIva));
  vTot_Fin.Text := FloatToStr(RoundN(StrToFloat(vTot_Iva.Text)+StrToFloat(vTot_Net.Text)));
  IBQ_Edit.SQL.Clear;
  IBQ_Edit.SQL.Add('Update "Orden" Set "Ord_Neto"=:Var1,"Ord_Descuento"=:Var2, "Ord_Iva"=:Var3');
  IBQ_Edit.SQL.Add('Where "Ord_Numero"=:Var4');
  IBQ_Edit.Params[0].AsFloat := StrToFloat(vTot_Bru.Text);
  IBQ_Edit.Params[1].AsFloat := StrToFloat(vTot_Des.Text);
  IBQ_Edit.Params[2].AsFloat := StrToFloat(vTot_Iva.Text);
  IBQ_Edit.Params[3].AsString := Ordenes.Num_Orden;
  IBQ_Edit.ExecSQL;
 
  IBT_Edit.Commit;	 // Actualiza cambios en Tabla :Dorden
  IBT_Items.Commit; // Actualiza cambios en Tabla :Orden
end;

Bueno... cada vez que elimino o agrego un item a la Orden de Compra, estos datos se actualizan en la Tabla Dorden, pero se supone que tambien los actualizo en la Tabla Orden, pero cuando salgo del modulo y reviso la orden que habia modificado, solo estan las actualizaciones de los items (Tabla Dorden), pero los valores totales no se han modificados (Tabla Orden), que podrá ser....