Cambios para mostar informacion dependiendo del tipo de contabilidad

RH/Personal.aspx.vb

@@ -15,6 +15,7 @@ Partial Class RH_Personal
     Inherits ClsPaginas
 
 #Region "P R O P I E D A D E S"
+
     Private Property DTCuentasBancos As DataTable
         Get
             Return CType(ViewState("DTCuentasBancos"), DataTable)
@@ -1612,6 +1613,15 @@ Partial Class RH_Personal
                 DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19")
                 DdlAlmacenDestinoLiberarUniforme.DataBind()
 
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
             Else
                 Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnGuardar.Enabled = False
@@ -1620,6 +1630,16 @@ Partial Class RH_Personal
         ObjPersonal.Dispose()
     End Sub
 
+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then
+            GvCta.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+        UpCuentaConceptos.Update()
+    End Sub
+
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
         'System.Threading.Thread.Sleep(3000)
         Dim ObjPersonal As New ClsRH()