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

11
App_Code/ClsRH.vb
View File

@@ -1594,6 +1594,7 @@ Public Class ClsRH
End Property
Public Property TipoSangre As String
Public Property CodigoDispersionVale As String = ""
#End Region
#Region "Personal"
@@ -1753,6 +1754,7 @@ Public Class ClsRH
CveSubproyectoZona = -1
End If
Me.CodigoDispersionVale = Data.Rows(0)("CodigoDispersionVale").ToString
End If
Retorno = True
@@ -1979,7 +1981,8 @@ Public Class ClsRH
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, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, 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, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1, Optional AreaGeografica As String = "A") 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, Optional NetoPeriodo As Decimal = -1,
Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1, Optional AreaGeografica As String = "A", Optional CodigoDispersionVale As String = "-1") As Boolean
Dim Retorno As Boolean = False
Dim noguardoXcurp As Boolean = False
@@ -2070,6 +2073,8 @@ Public Class ClsRH
.Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
.Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica
.Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
.Add("@CodigoDispersionVale", SqlDbType.VarChar).Value = CodigoDispersionVale
'.Add("@ErrorMostrarADS", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
@@ -2133,7 +2138,7 @@ Public Class ClsRH
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, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1,
Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1, Optional AreaGeografica As String = "") As Boolean
Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1, Optional AreaGeografica As String = "", Optional CodigoDispersionVale As String = "-1") As Boolean
Dim Retorno As Boolean = False
@@ -2231,7 +2236,7 @@ Public Class ClsRH
.Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica
.Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
.Add("@CodigoDispersionVale", SqlDbType.VarChar).Value = CodigoDispersionVale
End With
Try

29
CRM/RepAcercamientos.aspx
View File

@@ -166,31 +166,39 @@
<asp:Label ID="lblMedioCaptacion" runat="server" Text='<%# Eval("MedioCaptacion")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--4--%>
<%--4--%>
<asp:TemplateField HeaderText="Empresa" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblEmpresa" runat="server" Text='<%# Eval("EmpresaCRM")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--5--%>
<asp:TemplateField HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Label ID="lblVendedor" runat="server" Text='<%# Eval("Vendedor")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--5--%>
<%--6--%>
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:Label ID="LblImporte" runat="server" Text='<%# Eval("Importe","{0:c2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--6--%>
<%--7--%>
<asp:TemplateField HeaderText="Apertura" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="LblFechaApertura" runat="server" Text='<%# Eval("FechaApertura","{0:d}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--7--%>
<%--8--%>
<asp:TemplateField HeaderText="Cierre" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Label ID="LblFechaCierre" runat="server" Text='<%# Eval("FechaCierre","{0:d}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<%--8--%>
<%--9--%>
<asp:TemplateField HeaderText="Producto/Servicio" ItemStyle-HorizontalAlign="Left" Visible="false">
<ItemTemplate>
<asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
@@ -209,6 +217,13 @@
</ItemTemplate>
</asp:TemplateField>
<%--12--%>
<asp:TemplateField HeaderText="Clasificación" ItemStyle-HorizontalAlign="Left" Visible="false">
<ItemTemplate>
<asp:Label ID="LblClasificacion" runat="server" Text='<%# Eval("Clasificacion")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns>
@@ -280,7 +295,9 @@
<td style="text-align: left;">
<asp:CheckBox runat="server" ID="ChkGiro" Text="Giro" />
</td>
<td style="text-align: left;"></td>
<td style="text-align: left;">
<asp:CheckBox runat="server" ID="ChkClasificacion" Text="Clasificación" />
</td>
</tr>
</tbody>

17
CRM/RepAcercamientos.aspx.cs
View File

@@ -173,13 +173,16 @@ public partial class CRM_RepAcercamientos : ClsPaginas
GVDatos.Columns[1].Visible = ChkAcercamiento.Checked;
GVDatos.Columns[2].Visible = ChkEtapa.Checked;
GVDatos.Columns[3].Visible = ChkMedioCaptacion.Checked;
GVDatos.Columns[4].Visible = ChkVendedor.Checked;
GVDatos.Columns[5].Visible = ChkImporte.Checked;
GVDatos.Columns[6].Visible = ChkApertura.Checked;
GVDatos.Columns[7].Visible = ChkCierre.Checked;
GVDatos.Columns[8].Visible = ChkPS.Checked;
GVDatos.Columns[9].Visible = ChkEnPausa.Checked;
GVDatos.Columns[10].Visible = ChkGiro.Checked;
GVDatos.Columns[4].Visible = ChkMedioCaptacion.Checked;
GVDatos.Columns[5].Visible = ChkVendedor.Checked;
GVDatos.Columns[6].Visible = ChkImporte.Checked;
GVDatos.Columns[7].Visible = ChkApertura.Checked;
GVDatos.Columns[8].Visible = ChkCierre.Checked;
GVDatos.Columns[9].Visible = ChkPS.Checked;
GVDatos.Columns[10].Visible = ChkEnPausa.Checked;
GVDatos.Columns[11].Visible = ChkGiro.Checked;
GVDatos.Columns[12].Visible = ChkClasificacion.Checked;
UPDatos.Update();

10
Contratos/Contrato.aspx.vb
View File

@@ -964,8 +964,9 @@ Partial Class Contratos_Default
TipoContrato = ObjContratos.CveContratoTipo
TxtPorcentajeComision.Text = ObjContratos.PorcentajeComision.ToString
CveContratoTipo = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero
TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString
TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString
If CveContratoTipo = 33 Then
TabContratosGastos.Visible = False
TabAF.Visible = False
@@ -1106,6 +1107,8 @@ Partial Class Contratos_Default
ChkFacAutomatica.Checked = CBool(ObjContratos.DtResultados.Rows(0)("FacturacionCiclicaAutomatico"))
DdlDiaFact.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("DiaMesFacturacion").ToString())
TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString
TxtObsGeneral.Text = ObjContratos.DtResultados.Rows(0)("ObservacionesGenerales").ToString
ChkAplicaFacCiclica_CheckedChanged(ChkAplicaFacCiclica, EventArgs.Empty)
If ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero() > 0 Then
@@ -1387,7 +1390,8 @@ Partial Class Contratos_Default
PorcentajeComision:=TxtPorcentajeComision.Text.ToEntero, TipoGarantia:=DdlTipoGarantia.SelectedValue.ToEntero, Folio:=TxtFolio.Text.ToEntero, FechaVenc:=txtFechaVenc.Text.ToDate, EstatusFianza:=DdlEstatusFianza.SelectedValue.ToEntero,
CvePeriodo:=DdlPeriodo.SelectedValue.ToEntero, CveCuentaEquipo:=DdlCuentaEquipo.SelectedValue.ToEntero, CveContratoPlantilla:=DdlPlantillaContrato.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero,
Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=DdlClienteDireccionEnvio.SelectedValue.ToEntero, AplicaImpuestosLocales:=ChkImpuestosLocales.Checked, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(),
FacturacionCicilica:=ChkAplicaFacCiclica.Checked, FacturacionCiclicaAutomatico:=ChkFacAutomatica.Checked, DiaMesFacturacion:=If(DdlDiaFact.SelectedValue.ToEntero() < 0, 0, DdlDiaFact.SelectedValue.ToEntero()))
FacturacionCicilica:=ChkAplicaFacCiclica.Checked, FacturacionCiclicaAutomatico:=ChkFacAutomatica.Checked, DiaMesFacturacion:=If(DdlDiaFact.SelectedValue.ToEntero() < 0, 0, DdlDiaFact.SelectedValue.ToEntero()),
ObservacionesGenerales:=TxtObsGeneral.Text.Trim)
TieneError = Not GuardaFianzas(ObjContratos)

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