纳税信用级别动态调整方法和程序

一、关于税务机关对纳税人的纳税信用级别实行动态调整的方法和程序

(一)因税务检查等发现纳税人以前评价年度存在直接判为d级情形的，主管税务机关应调整其相应评价年度纳税信用级别为d级，并记录动态调整信息(附件1)，该d级评价不保留至下一年度。对税务检查等发现纳税人以前评价年度存在需扣减纳税信用评价指标得分情形的，主管税务机关暂不调整其相应年度纳税信用评价结果和记录。

(二)主管税务机关按月开展纳税信用级别动态调整工作。主管国税机关、地税机关应及时沟通，相互传递动态调整相关信息，协同完成动态调整工作，并为纳税人提供动态调整信息的自我查询服务。

(三)主管税务机关完成动态调整工作后，于次月初5个工作日内将动态调整情况层报至省税务机关备案，并发布a级纳税人变动情况通告。省税务机关据此更新税务网站公布的.纳税信用评价信息，于每月上旬将a级纳税人变动情况汇总报送税务总局(纳税服务司)。

(四)纳税信用年度评价结果发布前，主管税务机关发现纳税人在评价年度存在动态调整情形的，应调整后再发布评价结果。

二、关于税务机关对纳税信用评价状态发生变化的纳税人通知、提醒方式

纳税信用评价状态发生变化是指，纳税信用评价年度之中，纳税人的信用评价指标出现扣分且将影响评价级别下降的情形。

税务机关按月采集纳税信用评价信息时，发现纳税人出现上述情形的，可通过邮件、短信、微信等方式，通知、提醒纳税人，并视纳税信用评价状态变化趋势采取相应的服务和管理措施，促进纳税人诚信自律，提高税法遵从度。

三、关于部分评价指标扣分标准的优化调整

《指标和评价》中部分评价指标描述和扣分标准的优化调整情况详见附件2。此前规定与本公告附件2不一致的，按本公告执行。

以下两个方法分别实现可见性和只读属性的动态改变：

void SetPropertyVisibility(object obj, string propertyName, bool visible)

{

Type type = typeof(BrowsableAttribute)

PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj)

AttributeCollection attrs = props[propertyName].Attributes

FieldInfo fld = type.GetField("browsable", BindingFlags.Instance | BindingFlags.NonPublic)

fld.SetValue(attrs[type], visible)

}

void SetPropertyReadOnly(object obj, string propertyName, bool readOnly)

{

Type type = typeof(System.ComponentModel.ReadOnlyAttribute)

PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj)

AttributeCollection attrs = props[propertyName].Attributes

FieldInfo fld = type.GetField("isReadOnly", BindingFlags.Instance | BindingFlags.NonPublic | BindingFlags.CreateInstance)

fld.SetValue(attrs[type], readOnly)

}

'上面是cs的代码 以下是自己改的vb代码 测试通过

Function SetPropertyVisibility(ByVal obj As Object, ByVal propertyName As String, ByVal visible As Boolean)

Dim mytype As Type = GetType(BrowsableAttribute)

Dim props As PropertyDescriptorCollection = TypeDescriptor.GetProperties(obj) '得到一个属性集

Dim attrs As AttributeCollection = props(propertyName).Attributes

Dim fld As FieldInfo = mytype.GetField("browsable", BindingFlags.Instance Or BindingFlags.NonPublic)

fld.SetValue(attrs(mytype), visible)

Return Nothing

End Function

'同一个类中调用的话 如下就OK了

SetPropertyVisibility(Me, "属性名称", True)

---