From 4174dd86b1939e8005fd75d18a0a29935a8604d8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 8 Feb 2023 08:32:02 -0700
Subject: [PATCH] =?UTF-8?q?--=20activ=C3=B3=20iva=20para=20importaci=C3=B3?=
 =?UTF-8?q?n=20a=20empresas=20citr=C3=ADcolas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 2c13b4900..7830626a9 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1667,17 +1667,14 @@ Partial Class Compras_Compras
 
         'RegistraScript("ScrollVentanaAddProducto();")
 
-        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'cuando es llantera. y citrícola
             divImportacion.Visible = True
             chkImportacion.Attributes.Add("onclick", "ChkImportacion(this);")
 
         End If
 
-
-
         MostrarOcultarColumnaIEPS()
 
-
     End Sub
 
 #Region "C A R G A S"
@@ -3198,13 +3195,12 @@ Partial Class Compras_Compras
                 End If
 
                 'Tiene Importacion
-                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                    If dr("EsImportacion").ToString = "True" Then
+
+                If dr("EsImportacion").ToString = "True" Then
                         chkImportacion.Checked = True
                     Else
                         chkImportacion.Checked = False
                     End If
-                End If
                 CargaComplementosPago()
                 CargaGvBitacora()
                 InventarioMov()
@@ -12280,6 +12276,7 @@ Partial Class Compras_Compras
                 End Select
                 romCreditosTabla.Visible = False
             Case "4"
+                EsContado = False
                 CargaCreditosDisponibles()
                 Exit Select
         End Select