diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index dcb6e6ec1..07a695bd1 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -876,7 +876,7 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim FiltroPS As String = ""
                     Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString()
                         Case "Ing"
-                            Filtro = "CveConcepto IN (3,40)"
+                            Filtro = "CveConcepto IN (3,40,35)"
                         Case "Dev"
                             'cuand es devolucionventa=1, es cancelación de la devolución
                             If EsDevolucionVenta = 1 Then