-- mejora

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()