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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-12-26 06:34:04 -07:00
parent cbce8b231b
commit 02c8626c42
8 changed files with 673 additions and 579 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
RH/Personal.aspx.vb
View File

@@ -1094,30 +1094,30 @@ Partial Class RH_Personal
Else
'If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
' Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
' Dim drow As DataRow = dt.NewRow()
' If UsuarioActual.CveEmpresa <> 158 Then
' drow = dt.NewRow()
' drow("CveTipoTrabajador") = "2"
' drow("TipoTrabajadorB") = "Operativo"
' dt.Rows.InsertAt(drow, 0)
' drow = dt.NewRow()
' drow("CveTipoTrabajador") = "3"
' drow("TipoTrabajadorB") = "Administrativo"
' dt.Rows.InsertAt(drow, 0)
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
Dim drow As DataRow = dt.NewRow()
If UsuarioActual.CveEmpresa <> 158 Then
drow = dt.NewRow()
drow("CveTipoTrabajador") = "2"
drow("TipoTrabajadorB") = "Operativo"
dt.Rows.InsertAt(drow, 0)
drow = dt.NewRow()
drow("CveTipoTrabajador") = "3"
drow("TipoTrabajadorB") = "Administrativo"
dt.Rows.InsertAt(drow, 0)
' End If
' drow = dt.NewRow()
' drow("CveTipoTrabajador") = "-1"
' drow("TipoTrabajadorB") = "Seleccione"
' dt.Rows.InsertAt(drow, 0)
' If DdlTipoTrabajador.Items.Count() > 0 Then
' DdlTipoTrabajador.SelectedValueExist("-1")
' End If
' DdlTipoTrabajador.DataSource = dt
' DdlTipoTrabajador.DataBind()
'End If
End If
drow = dt.NewRow()
drow("CveTipoTrabajador") = "-1"
drow("TipoTrabajadorB") = "Seleccione"
dt.Rows.InsertAt(drow, 0)
If DdlTipoTrabajador.Items.Count() > 0 Then
DdlTipoTrabajador.SelectedValueExist("-1")
End If
DdlTipoTrabajador.DataSource = dt
DdlTipoTrabajador.DataBind()
End If
End If
End Using
End Sub
@@ -1125,7 +1125,7 @@ Partial Class RH_Personal
Protected Sub cargaagrodeptos()
Using objrh As New ClsRH()
If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue.ToEntero()))
Dim drow As DataRow = dt.NewRow()
drow("CveDepartamento") = "-1"
drow("Departamento") = "Seleccione"