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 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
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();