From 9f8f0da5d2e79f686b6dde8d80ace3005ed99024 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 Nov 2021 07:59:39 -0700
Subject: [PATCH] - filtro por fecha

---
 App_Code/ClsGenerales.vb               | 33 ++++----------------------
 Inventarios/EntregaAlmacenRuta.aspx    | 31 ++++++++++++++++++++++++
 Inventarios/EntregaAlmacenRuta.aspx.cs |  4 +++-
 3 files changed, 39 insertions(+), 29 deletions(-)

diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 7c65c91cc..16c9f5209 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2969,30 +2969,6 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-
-    Public Function GetPaqueteriasGuiasRuta(CveSubProyecto As Integer, Estatus As Integer, CveEmpresa As Integer) As Boolean
-
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Gral_PaqueteriasGuiasRutaGet")
-
-        With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las entregas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
     Public Function UpdatePaqueteriasGuias(CvePaqueteriaGuia As Integer, CvePaqueteriaGuiaTipo As Integer, CveSubProyecto As Integer, CvePaqueteria As Integer, CveEstatus As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer, Peso As Double,
                                             Dimensiones As String, FechaEstimada As String, Observaciones As String, Optional ImplicaCosto As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
@@ -3068,15 +3044,14 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1, Optional Orden As Integer = 0) As Boolean
+    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
             .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
             .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
-            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
-            .Add("@Orden", SqlDbType.Int).Value = Orden
+            .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -3836,7 +3811,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function GetInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
+    Public Function GetInvEntregaAlmacenRuta(CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Opcion As Integer) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -3845,6 +3820,8 @@ Public Class ClsGenerales
         With SqlAdapter.SelectCommand.Parameters
 
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
 
diff --git a/Inventarios/EntregaAlmacenRuta.aspx b/Inventarios/EntregaAlmacenRuta.aspx
index 3ab5e09e7..5621a2da1 100644
--- a/Inventarios/EntregaAlmacenRuta.aspx
+++ b/Inventarios/EntregaAlmacenRuta.aspx
@@ -40,6 +40,37 @@
                             <div class="col-sm-2">
                                 <asp:DropDownList runat="server" Id="DdlSubProyecto" CssClass="select2me" Width="100%"  DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList>
                             </div>
+<label class="col-md-1 " style="width: 90px;">Fecha Inicial:</label>
+                        <div class="col-md-2">
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                <asp:TextBox ID="TxtFechaI" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgCalendarioI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="TxtFechaI" PopupButtonID="ImgCalendarioI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                            <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="TxtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                        </div>
+
+                        <label class="col-md-1 " style="width: 80px;">Fecha Final:</label>
+                        <div class="col-md-2">
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 138px !important; padding: 0px; margin-bottom: -10px;">
+                                <asp:TextBox ID="TxtFechaF" runat="server" CssClass="form-control" CausesValidation="true" Width="98%" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                            </div>
+                            <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                            <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="TxtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                            <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="TxtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                        </div>
                         </div>
                     </div>
                 </div>
diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs
index 1fb6357f7..2325d16c7 100644
--- a/Inventarios/EntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/EntregaAlmacenRuta.aspx.cs
@@ -213,7 +213,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
     private void CargaDatos()
     {
         ClsGenerales ObjGeneral = new ClsGenerales();
-        if (ObjGeneral.GetInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, 1))
+        if (ObjGeneral.GetInvEntregaAlmacenRuta(DdlSubProyecto.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa,  1))
         {
             GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados;
             DTDatosConsulta = ObjGeneral.DtResultados;
@@ -239,6 +239,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
         DdlUnidadCamion.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlUnidadCamion.DataBind();
 
+        TxtFechaI.Text = DateTime.Now.AddDays(-1).ToShortDateString();
+        TxtFechaF.Text = DateTime.Now.ToShortDateString();
 
         ClsAcarreos ObjAcar = new ClsAcarreos();