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

RH/Personal.aspx.vb

@@ -914,7 +914,7 @@ Partial Class RH_Personal
                 ViewState("CvePersonal") = Request("CvePersonal")
                 DdlFormapagovacaciones_SelectedIndexChanged(Nothing, Nothing)
                 'CvePersonal = ViewState("CvePersonal").ToString().ToEntero()
-                CargaDatos()
+                If CargaDatos() Then
                     CargaDocumentacionFirmaDecontratos()
                     CargaPersonalIncapacidad()
                     CargaMovtoPermanente()
@@ -943,6 +943,8 @@ Partial Class RH_Personal
 
                     divBitacora.Visible = True
                     CargaGvBitacora()
+                End If
+
             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