Código Delphi
[-]
With IBSP_Edit Do
Begin
StoredProcName := 'AGREGAR_CARGO';
Prepare;
For i:=0 to Asig_Costos.Costos_Paso.RowCount -1 Do
Begin
Params[0].AsString := IntToStr(IBQ_Select['ORD_NUM']);
Params[1].AsString := Asig_Costos.Costos_Paso.Cells[0,i];
Params[2].AsFloat := StrToFloat(Asig_Costos.Costos_Paso.Cells[2,i]);
Params[3].AsString := Asig_Costos.Costos_Paso.Cells[3,i];
ExecProc;
End
End;
IBT_SPEdit.Commit;
En principio debe funcionar. Aunque no sé el tema de transacciones, ya que solo veo el Commit pero no el inicio de transacción.
Saludos