Nivel de confianza predeterminado

OC/OC.aspx.vb

@@ -1234,6 +1234,10 @@ Partial Class OC
 
             If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                 CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero
+                'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
+                If CveConfianzaProveedor <= 0 Then
+                    CveConfianzaProveedor = 2
+                End If
             End If
 
             'Anticipos
@@ -5335,9 +5339,17 @@ Partial Class OC
             If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                 If Objeto.DtResultados.Rows.Count > 0 Then
 
-                    Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
+                    If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
-                    ChkCotizacion.Checked = CveConfianzaProveedor > 0
+                        Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
-                    ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
+                        'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
+                        If CveConfianzaProveedor <= 0 Then
+                            CveConfianzaProveedor = 2
+                        End If
+
+                        ChkCotizacion.Checked = CveConfianzaProveedor > 0
+                        ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
+                    End If
+
                 End If
             End If