--concepto de surtido en pedidos

2023-12-06 22:31:40 -07:00
parent 758042cd8f
commit 69187cd261
2 changed files with 5 additions and 1 deletions
--- 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