correccion para que no truene transaccion

RH/Personal.aspx.vb

@@ -1936,9 +1936,10 @@ Partial Class RH_Personal
 
         Dim EnviarCorreoNomina As Boolean = False
         'System.Threading.Thread.Sleep(3000)
-        Dim ObjPersonal As New ClsRH()
-        Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
-        Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
+        Using ObjPersonal As New ClsRH()
+            Using ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL())
+                Using ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL())
+
 
                     Dim Extension As String = Path.GetExtension(UsuarioActual.Empresa.Ruta & "Temp\RH\" & ViewState("Archivo").ToString())
                     Dim URL As String = If(Extension.Trim().Length > 0, CvePersonal & Extension, "")
@@ -2019,7 +2020,7 @@ Partial Class RH_Personal
                             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
                                 ProcesaDTFamiliares(ObjPersonal)
                             End If
-                If TempDTCuentasBancos.Rows.Count > 0 Then
+                            If TempDTCuentasBancos IsNot Nothing AndAlso TempDTCuentasBancos.Rows.Count > 0 Then
 
                                 For Each row As DataRow In TempDTCuentasBancos.Rows
                                     If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero(), UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then
@@ -2145,9 +2146,9 @@ Partial Class RH_Personal
                     Session("FileUpload") = ""
 
                     ViewState("Archivo") = ""
-        ObjPersonal.Dispose()
-        ObjCuentasDeposito.Dispose()
-        ObjAF.Dispose()
+                End Using
+            End Using
+        End Using
         UpDatos.Update()
         CargaGvBitacora()