diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index e8976f18d..56cf628f4 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2139,14 +2139,12 @@ Partial Class Inventarios_EntradasSalidas
                             Dim CveClasificacion As Integer = -1
                             Select Case DdlConcepto.SelectedValue.ToEntero
                                 Case 2, 32
+                                    EsContabilizable = True
+                                Case 28
                                     CveConceptoContable = 78
                                     EsContabilizable = True
-                                Case 28, 31
+                                Case 31
                                     CveConceptoContable = 290
-                                    If DdlConcepto.SelectedValue.ToEntero = 28 Then
-                                        ''cuando es 28, es otros ingresos.78
-                                        CveConceptoContable = 78
-                                    End If
                                     EsContabilizable = True
                                 Case 30
                                     CveConceptoContable = 181