Importaciones

This commit is contained in:
rakcsle
2023-09-02 11:10:47 -07:00
parent 246e49e4f0
commit b7a31013a9
9 changed files with 147 additions and 60 deletions

View File

@@ -132,6 +132,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, ddlclasificacion.SelectedValue.ToEntero()) Then
DTDatos = ObjPersonal.DtResultados

View File

@@ -324,11 +324,40 @@
<label for="<%= TxtEstado.ClientID.ToString()%>">Estado: </label>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
<label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
<i></i>
<div class="row">
<div class="col-md-12" runat="server" id="DVTxtTelefono">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
<label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
<i></i>
</div>
</div>
<div class="col-md-6" runat="server" id="DVDdlTipoSangre" visible="false">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList CssClass="form-control select2me" ID="DdlTipoSangre" runat="server" >
<asp:ListItem Value="-1">Seleccione Uno </asp:ListItem>
<asp:ListItem Value="A+">A+ </asp:ListItem>
<asp:ListItem Value="A-">A- </asp:ListItem>
<asp:ListItem Value="B+">B+ </asp:ListItem>
<asp:ListItem Value="B-">B- </asp:ListItem>
<asp:ListItem Value="AB+">AB+</asp:ListItem>
<asp:ListItem Value="AB-">AB-</asp:ListItem>
<asp:ListItem Value="O+">O+</asp:ListItem>
<asp:ListItem Value="O-">O-</asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlTipoSangre.ClientID.ToString()%>">Tipo de Sangre:</label>
<i></i>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox CssClass="form-control" ID="TxtTelefonoEmergencia" runat="server" MaxLength="70"></asp:TextBox>
<label for="<%= TxtTelefonoEmergencia.ClientID.ToString()%>">Contacto en caso de emergencia (nombre y teléfono):</label>
@@ -879,7 +908,8 @@
<i></i>
</div>
<div runat="server" id="DivSuperiorInmediato" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlSupervisorOrganigrama" runat="server" Width="100%" AppendDataBoundItems="True" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:DropDownList ID="DdlSupervisorOrganigrama" runat="server" Width="100%" AppendDataBoundItems="True"
DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Sin Asignar" Value="-1"></asp:ListItem>
<asp:ListItem Text="Cabecera" Value="0"></asp:ListItem>
</asp:DropDownList>
@@ -5211,12 +5241,14 @@
</tr>
<tr>
<td style="width: 33% !important; vertical-align: top !important">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtTelefonoBuzonCalidad" runat="server" CausesValidation="true" MaxLength="10" Visible="true" CssClass="form-control" Width="200px"></asp:TextBox>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtTelefonoBuzonCalidad" FilterType="Numbers,Custom" InvalidChars=".*-" />
<label for="<%= TxtTelefonoBuzonCalidad.ClientID.ToString()%>">Teléfono:</label>
<i></i>
</div>
</td>
<td style="width: 33% !important; vertical-align: top !important">
<div class="form-group form-md-line-input input-iconright">

View File

@@ -1037,8 +1037,10 @@ Partial Class RH_Personal
End If
If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
If UsuarioActual.Empresa.Funcionalidad(712) = "1" Or UsuarioActual.CveEmpresa = 1 Then
DvRuta.Visible = True
DVTxtTelefono.Attributes.Add("class", "col-md-6")
DVDdlTipoSangre.Visible = True
End If
End If
@@ -1701,6 +1703,7 @@ Partial Class RH_Personal
TxtTelefonoExtension.Text = ObjPersonal.TelefonoExtension
TxtCelularPersonal.Text = ObjPersonal.CelularPersonal
TxtTelefonoMarcadoRapido.Text = ObjPersonal.TelefonoMarcadoRapido
DdlTipoSangre.SelectedValueExist(ObjPersonal.TipoSangre)
'TxtContactoAlterno.Text = ObjPersonal.ContactoAlterno
@@ -2012,7 +2015,7 @@ Partial Class RH_Personal
UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, 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, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then
CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
If Archivo.Exists Then
@@ -2098,7 +2101,7 @@ Partial Class RH_Personal
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), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal) Then
Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
'Funcion usa RH Familiares
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then