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

RH CodigoDispersionvales, CRM VSH, Contratos Observaciones

Browse Source
This commit is contained in:
rakcsle
2024-07-04 12:25:27 -07:00
parent 5e62eef3a5
commit 41f41c7189
6 changed files with 73 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
RH/Personal.aspx
View File

@@ -1615,12 +1615,28 @@
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVNetoPeriodo" visible="false" >
<asp:TextBox CssClass="form-control" ID="TxtNetoPeriodo" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtNetoPeriodo" Text="Neto Periodo:"></asp:Label>
<i></i>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVNetoPeriodo" visible="false">
<asp:TextBox CssClass="form-control" ID="TxtNetoPeriodo" runat="server" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtNetoPeriodo" Text="Neto Periodo:"></asp:Label>
<i></i>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVCodigoDispersionVale" visible="false">
<asp:TextBox CssClass="form-control" ID="TxtCodigoDispersionVale" runat="server" MaxLength="25"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtNetoPeriodo" Text="Código Dispersion Vale:"></asp:Label>
<i></i>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlMetodoPago" Width="100%" runat="server" AppendDataBoundItems="true" CausesValidation="true" CssClass="form-control input-sm select2me" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>

7
RH/Personal.aspx.vb
View File

@@ -1057,6 +1057,7 @@ Partial Class RH_Personal
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario = 100 Then
DVNetoPeriodo.Visible = True
DVCodigoDispersionVale.Visible = True
End If
@@ -1878,6 +1879,8 @@ Partial Class RH_Personal
DdlRegistroPatronal.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveRegistroPatronal").ToString)
DdlEmpresaAsignada.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveEmpresaAsignado").ToString)
TxtCodigoDispersionVale.Text = ObjPersonal.CodigoDispersionVale
'Carga Incidencias
BtnConsultarAsistencia_Click(Me, New System.EventArgs)
@@ -2053,7 +2056,7 @@ Partial Class RH_Personal
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, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo,
AreaGeografica:=DdlAreageografica.SelectedValue) Then
AreaGeografica:=DdlAreageografica.SelectedValue, CodigoDispersionVale:=TxtCodigoDispersionVale.Text.Trim) Then
If Archivo.Exists Then
@@ -2140,7 +2143,7 @@ Partial Class RH_Personal
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, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo,
AreaGeografica:=DdlAreageografica.SelectedValue) Then
AreaGeografica:=DdlAreageografica.SelectedValue, CodigoDispersionVale:=TxtCodigoDispersionVale.Text.Trim) Then
'Funcion usa RH Familiares
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then