diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ad2efb2f1..c6570ec94 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1940,7 +1940,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, - Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean + Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean Dim Retorno As Boolean = False Dim noguardoXcurp = False @@ -2029,6 +2029,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado + .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador @@ -2074,7 +2075,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1, - Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean + Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2169,6 +2170,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@EsReserva", SqlDbType.Int).Value = EsReserva .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable + .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador End With @@ -7583,7 +7585,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #Region "TipoTrabajador" #Region "CRUD_TiposTrabajador" - Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveEmpresa As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_TiposTrabajadorGet", CommandType.StoredProcedure) addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 63926a0a9..f9192e73b 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -932,6 +932,7 @@ Partial Class RH_Personal divBitacora.Visible = True CargaGvBitacora() Else + cargatipoTrabajador() MostrarOcultarFechasEstatus() LoadDefaultValues() 'Configuración de Modalidad Insert @@ -1080,29 +1081,43 @@ Partial Class RH_Personal Public Sub cargatipoTrabajador() Using objrh As New ClsRH() - 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" + If UsuarioActual.CveEmpresa <> 158 Then + If (objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa)) Then + Dim dt As DataTable = objrh.DtResultados + Dim drow As DataRow = dt.NewRow() + drow("CveTipoTrabajador") = "-1" + drow("TipoTrabajadorB") = "Seleccione" dt.Rows.InsertAt(drow, 0) + 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() + 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) + + ' 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 @@ -1938,7 +1953,7 @@ Partial Class RH_Personal DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text, DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(), TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), - Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then + Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then If Archivo.Exists Then @@ -2023,7 +2038,7 @@ Partial Class RH_Personal DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(), TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), - CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1)) Then + CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then 'Funsion usa RH Familiares If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then