From 014bb24e1ff4ef59eda8d0df230b8752f2b1c02f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 7 Dec 2023 13:11:59 -0700
Subject: [PATCH] =?UTF-8?q?-=20activaci=C3=B3n=20guia,=20E119?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntregaAlmacen.aspx    |  2 +-
 Inventarios/EntregaAlmacen.aspx.vb | 13 ++++++++-----
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 80305b09f..4f63bc076 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -211,7 +211,7 @@
                                                 </div>
                                             </td>
                                         </tr>
-                                        <tr style="display: none;">
+                                        <tr runat="server" id="trGuia" visible="false">
                                             <td>Guía:</td>
                                             <td>
                                                 <asp:TextBox ID="TxtGuia" runat="server" CssClass="form-control input-sm" MaxLength="20" Width="320px"></asp:TextBox>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 9fc025498..1bb3a4ea3 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -381,11 +381,16 @@ Partial Class Inventarios_EntregaAlmacen
 
         DdlFolio.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        TxtFechaPendientes.Text = NowADS().ToShortDateString
-        'TxtFechaCaducidad.Text = NowADS().ToShortDateString
+        TxtFechaPendientes.Text = NowADS().ToShortDateString
         TxtFecha.Text = NowADS().ToShortDateString
         RVFecha.MaximumValue = MaxFecha.ToShortDateString
-        If UsuarioActual.CveEmpresa.Contiene(119) Then RVFecha.MinimumValue = NowADS().ToShortDateString : CEFecha.StartDate = NowADS() Else RVFecha.MinimumValue = MinFecha.ToShortDateString
+        If UsuarioActual.CveEmpresa.Contiene(119) Then
+            RVFecha.MinimumValue = NowADS().ToShortDateString
+            CEFecha.StartDate = NowADS()
+            trGuia.Visible = True
+        Else
+            RVFecha.MinimumValue = MinFecha.ToShortDateString
+        End If
 
         If Not UsuarioActual.TienePermisoProceso(190) Then
             'CARGA SOLO LAS SUCURSALES DE LOS ALMCENES QUE TIENE ASIGNADO EL USUARIO
@@ -406,8 +411,6 @@ Partial Class Inventarios_EntregaAlmacen
         CreaDtDetalle()
         CreaDtDetalleLote()
         CargaPendientes()
-
-
         LimpiaCampos()
     End Sub