Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsPaginas.vb

@@ -1457,14 +1457,14 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
             'sino existe, recarga los datos
-            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
-                Dim ObjBancos As New ClsBancos
-                If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
-                    Application(AppNombre) = ObjBancos.DtResultados
-                Else
-                    Application(AppNombre) = Nothing
-                End If
-                ObjBancos.Dispose()
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Using ObjBancos As New ClsBancos
+                    If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
+                        Application(AppNombre) = ObjBancos.DtResultados
+                    Else
+                        Application(AppNombre) = Nothing
+                    End If
+                End Using
             End If
 
             Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)

Bancos/IE.aspx.vb

@@ -3800,6 +3800,9 @@ Partial Class Bancos_IE
         Else
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgAdvertencia)
+            If Opcion = "INGPC" Then
+                CveIE = -1
+            End If
         End If
 
         If Msg.ToString <> "" Then

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")))