From 69187cd261bc03ef44d66eb8d83c368248daf155 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 6 Dec 2023 22:31:40 -0700
Subject: [PATCH] --concepto de surtido en pedidos

---
 Inventarios/EntradasSalidas.aspx.vb | 4 ++++
 Inventarios/EntregaAlmacen.aspx.vb  | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 5c0405d79..024deedc3 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/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
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 9fc025498..589a8be73 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/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