diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb
index 88bc69fb7..d6f6cf9ab 100644
--- a/Inventarios/RecepcionEntrega.aspx.vb
+++ b/Inventarios/RecepcionEntrega.aspx.vb
@@ -625,10 +625,10 @@ Partial Class Inventarios_RecepcionEntrega
                     Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString.Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
                     Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString
                         Case "Ing", "Ped"
-                            Filtro = "CveConcepto = 3"
+                            Filtro = "CveConcepto IN (3,40)"
                         Case "Dev"
                             'cuand es devolucionventa=1, es cancelación de la devolución
-                            If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto = 3"
+                            If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)"
                         Case Else
                             Filtro = "CveConcepto = 9"
                     End Select