diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fe3846255..7b394c0fd 100644 --- a/OC/OC.aspx.vb +++ b/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() - ChkCotizacion.Checked = CveConfianzaProveedor > 0 - ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 + If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then + Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").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 + + ChkCotizacion.Checked = CveConfianzaProveedor > 0 + ChkCotizacion.Enabled = CveConfianzaProveedor <= 0 + End If + End If End If