From f787f8b855dab4b610a6f2bd0fdc8e16a7dd2d2a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 23 Apr 2024 15:54:22 -0700
Subject: [PATCH] --- excluir empresas de vsh, par el tema del gasto

---
 Compras/Compras.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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