-

2023-12-07 13:20:41 -07:00
parent b7cef51a62 c216178154
commit a05f75c9d2
19 changed files with 1758 additions and 752 deletions
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -771,7 +771,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