PRoveedores.aspx acomodo de controles

Compras/Proveedores.aspx.vb

@@ -633,12 +633,17 @@ Partial Class Compras_Proveedores
 
             If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                 TrConfianzaProveedor.Visible = True
+                CondiguraConfiazaProveedor()
             End If
 
             If UsuarioActual.TienePermisoProceso(273) Then
                 GvA.Columns(5).Visible = True
             End If
 
+
+
+
+
         End If
 
         Dim script As String = String.Format("$({0}).removeClass({1});$({0}).removeClass({2}); $({0}).addClass({3});$({0}).text(""{4}"");", """#CXPContador""", """badge-success""", """badge-danger""", If(CountCuentasxPagar > 0, """badge-danger""", """badge-success"""), CountCuentasxPagar.ToString)
@@ -650,6 +655,19 @@ Partial Class Compras_Proveedores
         RegisterPostBackControl()
     End Sub
 
+    Private Sub CondiguraConfiazaProveedor()
+
+        '1 Dedicado
+        '2 Proveedor que requiere Cotización
+
+        If Not UsuarioActual.TienePermisoProceso(355) Then
+            If Not DdlConfianzaProveedor.SelectedValue.ToEntero = 1 Then
+                DdlConfianzaProveedor.Items.Remove(New ListItem("Proveedor dedicado", "1"))
+            End If
+        End If
+
+    End Sub
+
     Private Sub CargaRegimenFiscal()
         DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
         DdlRegimenFiscal.DataBind()