AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2023-05-15 17:38:58 -07:00
parent 02ffcfc764
commit fbd7609b12
1 changed files with 35 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
RH/Personal.aspx.vb
View File

@@ -914,7 +914,7 @@ Partial Class RH_Personal
ViewState("CvePersonal") = Request("CvePersonal") ViewState("CvePersonal") = Request("CvePersonal")
DdlFormapagovacaciones_SelectedIndexChanged(Nothing, Nothing) DdlFormapagovacaciones_SelectedIndexChanged(Nothing, Nothing)
'CvePersonal = ViewState("CvePersonal").ToString().ToEntero() 'CvePersonal = ViewState("CvePersonal").ToString().ToEntero()
CargaDatos() If CargaDatos() Then
CargaDocumentacionFirmaDecontratos() CargaDocumentacionFirmaDecontratos()
CargaPersonalIncapacidad() CargaPersonalIncapacidad()
CargaMovtoPermanente() CargaMovtoPermanente()
@@ -943,6 +943,8 @@ Partial Class RH_Personal
divBitacora.Visible = True divBitacora.Visible = True
CargaGvBitacora() CargaGvBitacora()
End If
Else Else
cargatipoTrabajador() cargatipoTrabajador()
MostrarOcultarFechasEstatus() MostrarOcultarFechasEstatus()
@@ -956,11 +958,11 @@ Partial Class RH_Personal
BtnEliminar.Visible = False BtnEliminar.Visible = False
CarcaConceptosNomina() CarcaConceptosNomina()
CargaFonacot() CargaFonacot()
CargaCuentasBancarias()
'Inicia Permisos 'Inicia Permisos
'Fin Permisos 'Fin Permisos
End If End If
CargaCuentasBancarias()
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -1613,11 +1615,13 @@ Partial Class RH_Personal
End If End If
ObjInventario.Dispose() ObjInventario.Dispose()
End Sub End Sub
Private Sub CargaDatos() Private Function CargaDatos() As Boolean
Dim Retorno As Boolean = False
Dim ObjPersonal As New ClsRH() 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.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 If ObjPersonal.DtResultados.Rows.Count > 0 Then
Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0) Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
Retorno = True
ChkEstemporal.Checked = drow("esTemporal").ToString() = "1" ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1" CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE") 'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE")
@@ -1909,7 +1913,8 @@ Partial Class RH_Personal
End If End If
End If End If
ObjPersonal.Dispose() ObjPersonal.Dispose()
End Sub Return Retorno
End Function
Private Sub CargaCuentasConceptos() Private Sub CargaCuentasConceptos()
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad