From 82d05bbe512afbd940021adb794cf8ac942ba1bf Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 6 May 2025 09:13:54 -0700
Subject: [PATCH] -

---
 Inventarios/EntradasSalidas.aspx.vb | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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