--concepto de surtido en pedidos

Inventarios/EntradasSalidas.aspx.vb

@@ -5528,6 +5528,10 @@ Partial Class Inventarios_EntradasSalidas
                         End If
 
                     End If
+                Else
+                    ErrorMovInv = True
+                End If
+            End If
         Catch ex As Exception
             ErrorMovInv = True
         End Try

Inventarios/EntregaAlmacen.aspx.vb

@@ -768,7 +768,7 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString().Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
                     Dim FiltroPS As String = ""
                     Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString()
-                        Case "Ing", "Ped"
+                        Case "Ing"
                             Filtro = "CveConcepto IN (3,40)"
                         Case "Dev"
                             'cuand es devolucionventa=1, es cancelación de la devolución