This commit is contained in:
2022-07-13 18:07:26 -07:00
5 changed files with 78 additions and 14 deletions

View File

@@ -1563,7 +1563,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer, CveEstadoCivil As Integer, CveGenero As Integer,
CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer,
CveTipoPeriodo As Integer, CveMetodoPago As Integer, CveTipoContrato As Integer, CveMotivoBaja As Integer, CveProyecto As Integer,
FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, CveEmpresa As Integer) As Boolean
FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, CveEmpresa As Integer, Optional EsReserva As Integer = -1) As Boolean
Dim Retorno As Boolean = False
SqlDataAdapter("PA_RH_PersonalGet")
@@ -1597,7 +1597,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@FechaFIngreso", SqlDbType.VarChar).Value = FechaFIngreso
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@ISSIG", SqlDbType.Int).Value = 1
.Add("@EsReserva", SqlDbType.Int).Value = EsReserva
End With

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">

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)

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>

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