From 550ae176d9c71c1a10eaae61ba0d6bcb669d4dfe Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 8 Feb 2024 09:10:04 -0700
Subject: [PATCH] -- mejora

---
 Inventarios/EntradasSalidas.aspx.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 23e2e03a7..3eff34079 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -83,7 +83,7 @@ Partial Class Inventarios_EntradasSalidas
     End Property
     Public Property CveConcepto() As Integer
         Get
-            Return ViewState("CveConcepto").ToString.ToEntero
+            Return IfNull(ViewState("CveConcepto"), "").ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveConcepto") = value
@@ -1249,6 +1249,8 @@ Partial Class Inventarios_EntradasSalidas
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlAlmacen.DataBind()
         DdlAlmacen.SelectedIndex = 1 'toma el primer renglón
+        DdlConcepto.Items.Insert(0, New ListItem("Entrada Usados", "42"))
+        DdlConcepto.SelectedValue = "42"
 
         Dim ObjGenerales As New ClsGenerales()