From d27cf078d256035216b7cfe2d44168ac413e1ff2 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 22 Jun 2022 01:29:59 -0700
Subject: [PATCH] E140, actualizar campos de recoleecion

---
 App_Code/ClsGenerales.vb               |  5 ++++-
 Inventarios/EntregaAlmacenRuta.aspx    |  2 +-
 Inventarios/EntregaAlmacenRuta.aspx.cs | 21 +++++++++++++++++----
 3 files changed, 22 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 069d43b09..81fd41899 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -3879,7 +3879,7 @@ Public Class ClsGenerales
 
     Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer,
                                                  Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1,
-                                                Optional CveConfigAutoTransporte As Integer = -1) As Boolean
+                                                Optional CveConfigAutoTransporte As Integer = -1, Optional FolioReferencia As String = "-1", Optional Referencia As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate")
 
@@ -3899,6 +3899,9 @@ Public Class ClsGenerales
             .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2
             .Add("@Distancia", SqlDbType.Int).Value = Distancia
             .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
+            .Add("@FolioReferencia", SqlDbType.VarChar).Value = FolioReferencia
+            .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
 
         End With
 
diff --git a/Inventarios/EntregaAlmacenRuta.aspx b/Inventarios/EntregaAlmacenRuta.aspx
index 41e4cb0a0..d444060b7 100644
--- a/Inventarios/EntregaAlmacenRuta.aspx
+++ b/Inventarios/EntregaAlmacenRuta.aspx
@@ -355,7 +355,7 @@
 
 
                                 <asp:GridView ID="gvR" runat="server" AutoGenerateColumns="False" OnRowDataBound="gvR_RowDataBound"
-                                    DataKeyNames="CveEntregaAlmacen,Orden,CveDireccionOrigen,CveSubProyecto,Estatus,CveTimbre"
+                                    DataKeyNames="CveEntregaAlmacen,Orden,CveDireccionOrigen,CveSubProyecto,Estatus,CveTimbre,CveCliente,FolioReferencia,Referencia"
                                     EmptyDataText="No se encontraron registros"
                                     CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                                     data-sort="true"
diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs
index 7830655a6..33d7a6cb2 100644
--- a/Inventarios/EntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/EntregaAlmacenRuta.aspx.cs
@@ -738,12 +738,14 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
         CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero();
         int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
         int CveClienteEnvio = -1;
+        string NombreCliente = "";
         ClsClientes ObjClientes = new ClsClientes();
         DataTable DtTempDirecciones = new DataTable();
 
         if (ObjClientes.DireccionEnvioGet(CveDireccionOrigen, -1, -1))
         {
-            CveClienteEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("CveCliente").ToEntero();
+            CveClienteEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("CveCliente").ToEntero();
+            NombreCliente = ObjClientes.DtResultados.FiltroPrimeroValor("NombreCliente");
 
             if (ObjClientes.DireccionEnvioGet(-1, CveClienteEnvio, -1))
             {
@@ -756,8 +758,12 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
         DdlmodalRecoleccionDireccion.Items.Add(new ListItem("Seleccione una", "-1"));
         DdlmodalRecoleccionDireccion.SelectedValueExist(CveDireccionOrigen);
 
-        //DdlModalRecoleccionCliente.SelectedValueExist(CveClienteEnvio);
+        DdlModalRecoleccionCliente.SelectedValue = CveClienteEnvio.ToString();
+        DdlModalRecoleccionCliente.SelectedText = NombreCliente;
 
+        DdlSubProyectoRecoleccion.SelectedValueExist(GvRow.DataKey("CveSubProyecto"));
+        TxtFolioReferencia.Text = GvRow.DataKey("FolioReferencia");
+        TxtReferencia.Text = GvRow.DataKey("Referencia");
 
         CargaDatosRecoleccionDetallePS();
 
@@ -778,7 +784,14 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
         DdlModalRecoleccionUnidad.Items.Clear();
         DdlModalRecoleccionUnidad.Items.Add(new ListItem("Seleccione una", "-1"));
         DdlProducto2.txtValue.Value = "";
-        DdlProducto2.txtText.Value = "";
+        DdlProducto2.txtText.Value = "";
+
+        DdlSubProyectoRecoleccion.SelectedValueExist("-1");
+        DdlModalRecoleccionCliente.SelectedValue = "-1";
+        DdlModalRecoleccionCliente.SelectedText = "Seleccione";
+
+        TxtFolioReferencia.Text = "";
+        TxtReferencia.Text = "";
 
         DTRecoleccion.Rows.Clear();
         GvModalPSRecoleccion.DataSource = DTRecoleccion;
@@ -843,7 +856,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
         }
         else
         {
-            ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa);
+            ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,FolioReferencia:TxtFolioReferencia.Text,Referencia: TxtReferencia.Text,CveSubProyecto: DdlSubProyectoRecoleccion.SelectedValue.ToEntero());
         }
 
         if (ProcesoOK)