-

2025-05-06 09:13:54 -07:00
parent 92f29627a9
commit 82d05bbe51
1 changed files with 3 additions and 5 deletions
--- 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