diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 8b913b6c3..3ff3dd52d 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1929,7 +1929,7 @@ Partial Class Inventarios_EntradasSalidas
                             Else
 
                                 'Dim Total As Decimal = 0
-                                If CveConceptoContable.Contiene(181, 78, 51) Then
+                                If CveConceptoContable.Contiene(181, 78, 51, 69) Then
                                     Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
                                     'Dim IdCuentaGasto As Integer = 0
                                     For Each Dr As DataRow In Dt.Rows