- parmetro empresa en actualización de cuenta

App_Code/ClsGenerales.vb

@@ -1653,7 +1653,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
+    Public Function UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_CuentasDepositosPersonalUpdate")

RH/Personal.aspx.vb

@@ -2014,11 +2014,11 @@ Partial Class RH_Personal
                     Next
                 End If
 
-                If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-                    GlobalDTGralColectivas(-1) = ObjPersonal.DtResultados
-                Else
-                    TieneError = True
-                End If
+                'If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+                '    GlobalDTGralColectivas(-1) = ObjPersonal.DtResultados
+                'Else
+                '    TieneError = True
+                'End If
 
                 Mensaje = "El Personal se guardó correctamente."
                 Accion = If(Request("CveFactura") Is Nothing, "document.location.href=""/RH/CatPersonal.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")
@@ -2055,7 +2055,7 @@ Partial Class RH_Personal
                CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
                CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then
 
-                'Funsion usa RH Familiares
+                'Funcion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
                     ProcesaDTFamiliares(ObjPersonal)
                 End If
@@ -2093,12 +2093,6 @@ Partial Class RH_Personal
 
         End If
 
-
-
-
-
-
-
         If TieneError Then
             ObjPersonal.RollBack()
             Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia)
@@ -2106,14 +2100,12 @@ Partial Class RH_Personal
             ObjPersonal.Commit()
             Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
 
-
-
-
             CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
             'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
             '    ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
             'End If
             GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
+            GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa) = Nothing
 
             If CvePersonal > 0 Then
                 Dim strquery As String = String.Format("UPDATE RH_Personal SET CveEstadoDomicilio = {2},CiudadOrigen ='{3}' WHERE CvePersonal ={1} AND CveEmpresa = {0} ",
@@ -3269,7 +3261,8 @@ Partial Class RH_Personal
     Protected Sub LbActualizarCuentaBanco_Click(sender As Object, e As EventArgs)
         Using ObjCuentasBancos As New ClsGenerales
             Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
-            If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero()) Then
+
+            If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
                 'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
                 Alert("Cuenta actualizada")
             End If
@@ -3397,7 +3390,7 @@ Partial Class RH_Personal
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
-        If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
         Else
             Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)