[[BlueSteel]]

Hola a todos..

Tengo un problemita.. que no se como solucionar... a ver si me pueden ayudar un poquito...

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....