diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 412c2d84c..8de81b92f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -10114,9 +10114,9 @@ Partial Class Compras_Compras
 
                         Dim DTDistinct = DT.Copy
                         If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                            DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                            DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
                         Else
-                            DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                            DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
                         End If
 
                         If DTDistinct.Rows.Count > 0 Then
@@ -10143,12 +10143,12 @@ Partial Class Compras_Compras
                                     End If
                                 End If
 
-                                'SEGMENTO DE NEGOCIO
+                                ''SEGMENTO DE NEGOCIO
                                 Dim IdSegmentoNegocio As Integer = -1
-                                Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
-                                If drT IsNot Nothing Then
-                                    IdSegmentoNegocio = drT("IdSegNeg").ToString.ToEntero
-                                End If
+                                'Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
+                                'If drT IsNot Nothing Then
+                                '    IdSegmentoNegocio = drT("IdSegNeg").ToString.ToEntero
+                                'End If
 
                                 'AGREGA MOVIMIENTO
                                 If importeMovimiento <> 0 Then