diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index eb8f9e463..f2dfcfd8d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6793,6 +6793,7 @@ Partial Class Compras_Compras
                                                                 '    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
                                                                 'Else
 
+
                                                                 For Each drowdis As DataRow In DTDistinct.Rows
                                                                     If drowdis("CveTipoGasto").ToString = "" Then
                                                                         drowdis("CveTipoGasto") = 0
@@ -6811,7 +6812,7 @@ Partial Class Compras_Compras
                                                                 End If
 
                                                                 Dim tTipoMovimiento As Boolean = TipoMovimiento
-                                                                If DTDistinct.Rows.Count > 0 Then
+                                                                If DTDistinct.Rows.Count > 0 AndAlso Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145, 13, 83) Then
                                                                     For Each Row2 As DataRow In DTDistinct.Rows
                                                                         tTipoMovimiento = TipoMovimiento
                                                                         'DETERMINA IMPORTE