-- activó iva para importación a empresas citrícolas

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