-- si carga el personal, solo cargue los demás combos

RH/Personal.aspx.vb

@@ -914,35 +914,37 @@ Partial Class RH_Personal
                 ViewState("CvePersonal") = Request("CvePersonal")
                 DdlFormapagovacaciones_SelectedIndexChanged(Nothing, Nothing)
                 'CvePersonal = ViewState("CvePersonal").ToString().ToEntero()
-                CargaDatos()
+                If CargaDatos() Then
-                CargaDocumentacionFirmaDecontratos()
+                    CargaDocumentacionFirmaDecontratos()
-                CargaPersonalIncapacidad()
+                    CargaPersonalIncapacidad()
-                CargaMovtoPermanente()
+                    CargaMovtoPermanente()
-                'LnkAddLicencias.Visible = True
+                    'LnkAddLicencias.Visible = True
-                'TabLicencias.Visible = True
+                    'TabLicencias.Visible = True
-                'Configuración de Modalidad Update
+                    'Configuración de Modalidad Update
-                BtnGuardar.Text = "Guardar Cambios"
+                    BtnGuardar.Text = "Guardar Cambios"
-                LtlTitulo.Text = "Consulta de Personal:"
+                    LtlTitulo.Text = "Consulta de Personal:"
-                If UsuarioActual.CveRol = 1 Then
+                    If UsuarioActual.CveRol = 1 Then
-                    'ImgImprimir.Visible = True
+                        'ImgImprimir.Visible = True
-                    ImgImprimirExpediente.Visible = True
+                        ImgImprimirExpediente.Visible = True
+                    End If
+
+                    'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
+                    If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero() - 1
+
+                    'Inicia Permisos
+                    If UsuarioActual.TienePermisoProceso(228) Then
+                        GVAsistencia.Columns(10).Visible = True
+                    End If
+                    'Fin Permisos
+                    HlEvento.Visible = True
+                    HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
+
+                    CargaViaticosPersonal()
+
+                    divBitacora.Visible = True
+                    CargaGvBitacora()
                 End If
 
-                'ImgAddObs.Attributes.Add("onclick", "javascript: PosicionaObjeto(this.id,'DivEventoBitacora',null,-250,-250); $('#DivEventoBitacora').show(1000); ")
-                If Request("Opt") IsNot Nothing AndAlso IsNumeric(Request("Opt")) Then Tab.ActiveTabIndex = Request("Opt").ToEntero() - 1
-
-                'Inicia Permisos
-                If UsuarioActual.TienePermisoProceso(228) Then
-                    GVAsistencia.Columns(10).Visible = True
-                End If
-                'Fin Permisos
-                HlEvento.Visible = True
-                HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CvePersonal=" & CvePersonal & "&TB_iframe=true&height=370&width=600;"
-
-                CargaViaticosPersonal()
-
-                divBitacora.Visible = True
-                CargaGvBitacora()
             Else
                 cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
@@ -956,11 +958,11 @@ Partial Class RH_Personal
                 BtnEliminar.Visible = False
                 CarcaConceptosNomina()
                 CargaFonacot()
+                CargaCuentasBancarias()
 
                 'Inicia Permisos
                 'Fin Permisos
             End If
-            CargaCuentasBancarias()
 
             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
 
@@ -1613,11 +1615,13 @@ Partial Class RH_Personal
         End If
         ObjInventario.Dispose()
     End Sub
-    Private Sub CargaDatos()
+    Private Function CargaDatos() As Boolean
+        Dim Retorno As Boolean = False
         Dim ObjPersonal As New ClsRH()
         If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
             If ObjPersonal.DtResultados.Rows.Count > 0 Then
                 Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
+                Retorno = True
                 ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
                 CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
                 'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE")
@@ -1909,7 +1913,8 @@ Partial Class RH_Personal
             End If
         End If
         ObjPersonal.Dispose()
-    End Sub
+        Return Retorno
+    End Function
 
     Private Sub CargaCuentasConceptos()
         Dim ObjConta As New ClsContabilidad