From 661a2bb56f8b8760789c7a2acafd67b7a6703fca Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 4 Mar 2020 11:14:14 -0700
Subject: [PATCH]

---
 Inventarios/KardexAlmacenHorizontal.aspx.vb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index d85e92bbb..4366af744 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -13,7 +13,11 @@ Partial Class Inventarios_KardexAlmacen
             TxtFechaF.Text = Now.ToShortDateString
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
-            pnlOrden.Visible = UsuarioActual.CveEmpresa = 141
+            pnlOrden.Visible = False
+            If UsuarioActual.CveEmpresa = 141 Then
+                pnlOrden.Visible = True
+                DdlOrden.SelectedValue = 2
+            End If
             If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
         End If