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-07-12 02:41:28 -07:00
parent 668c70a6c2
commit 5c754961ed
5 changed files with 78 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
RH/CatPersonal.aspx
View File

@@ -313,6 +313,17 @@
</div>
</div>
</div>
</div>
<div class="row">
<label class="col-md-1 truncate">clasificacación:</label>
<div class="col-md-2">
<asp:DropDownList ID="ddlclasificacion" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="Genero" DataValueField="CveGenero" ValidationGroup="GrpGuardar">
<asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Selected="True" Text="Activos" Value="0"></asp:ListItem>
<asp:ListItem Text="Reserva" Value="1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<%-- <div class="row">
@@ -738,22 +749,30 @@
<asp:CheckBox ID="ChkSalarioDiarioPago" Visible="false" runat="server" Text="SalarioDiarioPago" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkSalarioDiario" runat="server" Text="SalarioDiario" />
<asp:CheckBox ID="ChkRiesgoPuesto" runat="server" Text="Riesgo de puesto" Checked="false" />
</div>
</div>
<div class="row" runat="server" Visible="false">
<div class="col-md-3">
<asp:CheckBox ID="ChkSDI" runat="server" Text="SDI" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkSalarioDiarioSS" runat="server" Text="SalarioDiarioSS" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkBono" runat="server" Text="Bono" />
</div>
</div>
<div class="row">
<div class="col-md-3">
<asp:CheckBox ID="ChkSDI" runat="server" Text="SDI" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkNumDiasAguinaldo" runat="server" Text="NumDiasAguinaldo" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkSalarioDiario" runat="server" Text="SalarioDiario" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" Checked="true" />
</div>
</div>
<div class="row">
<div class="col-md-3">
@@ -804,12 +823,6 @@
<div class="col-md-3">
<asp:CheckBox ID="ChkClienteAsignado" runat="server" Text="ClienteAsignado" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" Checked="true" />
</div>
<div class="col-md-3">
<asp:CheckBox ID="ChkRiesgoPuesto" runat="server" Text="Riesgo de puesto" Checked="false" />
</div>
</div>
</div>
<div class="modal-footer">

3
RH/CatPersonal.aspx.vb
View File

@@ -130,7 +130,7 @@ Partial Class RH_CatPersonal
If FechaFIngreso = Nothing Then
FechaFIngreso = "-1"
End If
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, UsuarioActual.CveEmpresa) Then
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, UsuarioActual.CveEmpresa, ddlclasificacion.SelectedValue.ToEntero()) Then
DTDatos = ObjPersonal.DtResultados
'filtro por usuario subproyecto/sucursal vsh
@@ -1267,6 +1267,7 @@ Partial Class RH_CatPersonal
DdlTipoTrabajador.DataBind()
End If
RfvTxtCURP.Visible = Not DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero().Contiene(11881, 11882)
If DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero().Contiene(11954, 11884, 11883) Then
Dim objgenerales As New ClsGenerales()
objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, 1, -1, -1, -1)

15
RH/Personal.aspx
View File

@@ -588,6 +588,12 @@
</asp:DropDownList>
<asp:Label AssociatedControlID="DDlAgroDepartamento" runat="server" Text="Depto:"></asp:Label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList Width="100%" ID="DdlMedioTransporte" CssClass="form-control input-sm select2me" runat="server"
DataTextField="Nombre" DataValueField="CveOrigen" ValidationGroup="GrpGuardar">
</asp:DropDownList>
<asp:Label AssociatedControlID="DdlMedioTransporte" runat="server" Text="Medio transporte:"></asp:Label>
</div>
<div class="row">
<div class="col-md-6">
@@ -615,6 +621,13 @@
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<asp:Label AssociatedControlID="chkEsReserva" CssClass="lblforchk" runat="server" Text="Es reserva:"></asp:Label>
<asp:CheckBox ID="chkEsReserva" CssClass="chksino " Text=" " runat="server" />
</div>
</div>
<div class="row" style="display: none;">
<div class="col-md-6">
<asp:Label AssociatedControlID="CHKRFCValidado" CssClass="lblforchk" runat="server" Text="¿RFC Validado ante el SAT?:"></asp:Label></div>
@@ -662,7 +675,7 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" Style="margin-bottom: unset; color: #888888">SubProyecto: </asp:Label>
<asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" AutoPostBack="True" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:DropDownList Width="100%" ID="DdlSubProyectoAsignado" AutoPostBack="True" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar" OnSelectedIndexChanged="DdlSubProyectoAsignado_SelectedIndexChanged1">
<asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlSubProyectoAsignado" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoAsignado" ValidationGroup="GrpGuardar" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>

37
RH/Personal.aspx.vb
View File

@@ -1684,6 +1684,9 @@ Partial Class RH_Personal
DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString()
If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs())
DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString()
DdlSubProyectoAsignado_SelectedIndexChanged1(Nothing, Nothing)
DdlMedioTransporte.SelectedValueExist(drow("CveMedioTransporte").ToString())
chkEsReserva.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE"))
cargatipoTrabajador()
DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString())
cargaagrodeptos()
@@ -7038,5 +7041,39 @@ Partial Class RH_Personal
Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged1(sender As Object, e As EventArgs)
Using objrh As New ClsRH()
If DdlSubProyectoAsignado.SelectedValue.ToEntero().Contiene(11954, 11884, 11883) Then
Dim objgenerales As New ClsGenerales()
objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, 1, -1, -1, -1)
DdlMedioTransporte.Items.Clear()
Dim drow As DataRow = objgenerales.DtResultados.NewRow
drow("CveOrigen") = -1
drow("Nombre") = "Seleccione"
objgenerales.DtResultados.Rows.InsertAt(drow, 0)
DdlMedioTransporte.DataSource = objgenerales.DtResultados
DdlMedioTransporte.DataBind()
Else
Dim objgenerales As New ClsGenerales()
objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero(), -1, -1)
DdlMedioTransporte.Items.Clear()
Dim drow As DataRow = objgenerales.DtResultados.NewRow
drow("CveOrigen") = -1
drow("Nombre") = "Seleccione"
objgenerales.DtResultados.Rows.InsertAt(drow, 0)
DdlMedioTransporte.DataSource = objgenerales.DtResultados
DdlMedioTransporte.DataBind()
End If
End Using
End Sub
End Class