- activación guia, E119

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