-- option strict on

Compras/Compras.aspx.vb

@@ -14959,10 +14959,8 @@ Partial Class Compras_Compras
             GVServicios.Visible = False
         End If
 
-        If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.CvePlataforma <> 2 Then
-            'liServicios.Visible = True
-            liFletesImportaciones.Visible = True
-        End If
+        If UsuarioActual.Empresa.Funcionalidad(155) <> "" Then LnkFletesImportaciones.Visible = True ' FNC Importaciones
+        If UsuarioActual.Empresa.Funcionalidad(158) <> "" Then LnkFletesImportaciones.Visible = True ' FNC Indirectos
 
     End Sub
 
@@ -15877,22 +15875,22 @@ Partial Class Compras_Compras
 
     Private Sub CargaFletes()
 
-        If UsuarioActual.CveEmpresa <> 125 Or CveCompra > 0 Then
-            Exit Sub
-        End If
+        'If UsuarioActual.CveEmpresa <> 125 Or CveCompra > 0 Then
+        '    Exit Sub
+        'End If
 
-        HLModalFletes.Visible = True
+        'HLModalFletes.Visible = True
 
-        Dim ObjVentas As New ClsVentas
+        'Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
-            GVFletes.DataSource = ObjVentas.DtResultados
-            GVFletes.DataBind()
-        End If
+        'If ObjVentas.GetFletes(UsuarioActual.CveEmpresa) Then
+        '    GVFletes.DataSource = ObjVentas.DtResultados
+        '    GVFletes.DataBind()
+        'End If
 
-        UpFletes.Update()
+        'UpFletes.Update()
 
-        ObjVentas.Dispose()
+        'ObjVentas.Dispose()
     End Sub