RH/ActualizacionMasiva.aspx.vb

@@ -195,6 +195,7 @@ Partial Class RH_ActualizacionMasiva
         Dim OcurrioError As Boolean = False
 
         Using ObjPersonal As ClsRH = New ClsRH()
+            ObjPersonal.IniciaTransacSQL()
             For Each Row As GridViewRow In GvDatos.Rows
                 If Row.DataKey("CvePersonal") <> "" Then
                     'If Not ObjPersonal.UpdatePersonalMasivo(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero,
@@ -217,7 +218,7 @@ Partial Class RH_ActualizacionMasiva
 
             Next
             If Not OcurrioError Then
-                'ObjPersonal.Commit()
+                ObjPersonal.Commit()
                 Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
             Else
                 Alert("Ocurrió un error al guardar la información.", TipoMensaje.MsgError)
@@ -352,6 +353,8 @@ Partial Class RH_ActualizacionMasiva
             Dim OcurrioError As Boolean = False
             Dim contador As Integer = 0
             Using ObjPersonal As ClsRH = New ClsRH()
+                ObjPersonal.IniciaTransacSQL()
+
                 For Each Row As DataRow In DTEXcel.Rows
                     If Row("Codigo").ToString() <> "" Then
                         Dim drow As DataRow = DTEmpleados.FiltroPrimero(String.Format("Codigo='{0}'", Row("Codigo")))