[[Lepe]]

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