From 41f41c71897de738c25faddd02b96c435bf0b2a2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 4 Jul 2024 12:25:27 -0700
Subject: [PATCH] RH CodigoDispersionvales, CRM VSH, Contratos Observaciones

---
 App_Code/ClsRH.vb            | 11 ++++++++---
 CRM/RepAcercamientos.aspx    | 29 +++++++++++++++++++++++------
 CRM/RepAcercamientos.aspx.cs | 17 ++++++++++-------
 Contratos/Contrato.aspx.vb   | 10 +++++++---
 RH/Personal.aspx             | 24 ++++++++++++++++++++----
 RH/Personal.aspx.vb          |  7 +++++--
 6 files changed, 73 insertions(+), 25 deletions(-)

diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 10d97f41f..912ed24d9 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -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
diff --git a/CRM/RepAcercamientos.aspx b/CRM/RepAcercamientos.aspx
index ca7812381..2b1f94165 100644
--- a/CRM/RepAcercamientos.aspx
+++ b/CRM/RepAcercamientos.aspx
@@ -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>
diff --git a/CRM/RepAcercamientos.aspx.cs b/CRM/RepAcercamientos.aspx.cs
index d1459a74e..3047138ca 100644
--- a/CRM/RepAcercamientos.aspx.cs
+++ b/CRM/RepAcercamientos.aspx.cs
@@ -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();
 
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 1f9e235c0..fcfc33ffb 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -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)
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index c433299bf..cf8e23ddf 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -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>
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 4b10b8342..00414fc4a 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -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