diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index e160dd5c8..e8976f18d 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2142,7 +2142,7 @@ Partial Class Inventarios_EntradasSalidas
                                     CveConceptoContable = 78
                                     EsContabilizable = True
                                 Case 28, 31
-                                    CveConceptoContable = 51
+                                    CveConceptoContable = 290
                                     If DdlConcepto.SelectedValue.ToEntero = 28 Then
                                         ''cuando es 28, es otros ingresos.78
                                         CveConceptoContable = 78
@@ -2154,7 +2154,7 @@ Partial Class Inventarios_EntradasSalidas
                                     If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
 
                                 Case 34
-                                    CveConceptoContable = 51
+                                    CveConceptoContable = 290
                                     EsContabilizable = True
                                 Case 13, 29
                                     CveConceptoContable = 69
@@ -2165,7 +2165,7 @@ Partial Class Inventarios_EntradasSalidas
                                         CveClasificacion = drr("CveClasificacion").ToString.ToEntero
                                     End If
                                 Case 3
-                                    CveConceptoContable = 51
+                                    CveConceptoContable = 290
                                     EsContabilizable = True
                                 Case Else
                                     CveConceptoContable = 95
@@ -2179,7 +2179,7 @@ Partial Class Inventarios_EntradasSalidas
                             Else
 
                                 'Dim Total As Decimal = 0
-                                If CveConceptoContable.Contiene(181, 78, 51, 69) Then
+                                If CveConceptoContable.Contiene(181, 78, 290, 69) Then
                                     Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
 
                                     For Each Dr As DataRow In Dt.Rows