找到
28
篇与
richfan
相关的结果
-
VBA网抓上海期货交易所数据 代码 Sub get_shfe_price_XMLHTTP60_NoDTS() Dim nowdate As String Dim yestoday As String Dim deliverymonthdate As String Dim URL As String Dim http As Object ' MSXML2.XMLHTTP60 对象 Dim sourcecode As String Dim dom As Object ' DOM解析对象 Dim tableNodes As Object ' 表格节点集合 Dim tableNode As Object ' 单个表格节点 Dim trNodes As Object ' 行节点集合 Dim trNode As Object ' 单个行节点 Dim tdNodes As Object ' 单元格节点集合 Dim tdNode As Object ' 单个单元格节点 Dim xpathQuery As String ' XPath查询语句 Dim rowIndex As Integer ' 行索引 Dim colIndex As Integer ' 列索引 Dim dataDate As String Dim cufClosingPrice As Single Dim znfClosingPrice As Single Dim pbfClosingPrice As Single Dim agfClosingPrice As Single ' 1. 生成日期和URL deliverymonthdate = Format(Date + 60, "yymm") nowdate = Format(Date, "yyyymmdd") yestoday = Format(Date - 1, "yyyymmdd") URL = "https://www.shfe.com.cn/data/tradedata/future/dailydata/kx" & yestoday & ".dat" Debug.Print "请求URL：" & URL Debug.Print "请求日期：" & yestoday ' 2. 初始化MSXML2.XMLHTTP60对象 On Error Resume Next Set http = CreateObject("MSXML2.XMLHTTP.6.0") On Error GoTo 0 If http Is Nothing Then MsgBox "无法创建XMLHTTP60对象！请安装MSXML 6.0组件。", vbCritical Exit Sub End If ' 3. 发送HTTP请求 With http .Open "GET", URL, False On Error Resume Next .setOption 2, 13056 On Error GoTo 0 .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/141.0.0.0 Safari/537.36 Edg/141.0.0.0" .setRequestHeader "Accept", "application/json, text/javascript, */*; q=0.01" ' 修改为接受JSON .setRequestHeader "Accept-Language", "zh-CN,zh;q=0.9,en;q=0.8" .setRequestHeader "Referer", "https://www.shfe.com.cn/" .send If .Status <> 200 Then MsgBox "请求失败！状态码：" & .Status & vbCrLf & "响应文本：" & Left(.responseText, 500), vbCritical Set http = Nothing Exit Sub End If sourcecode = .responseText End With Set http = Nothing Debug.Print "页面源码长度：" & Len(sourcecode) Application.Wait Now + TimeValue("00:00:01") ' 4. 检查数据 If Len(sourcecode) = 0 Then MsgBox "未获取到数据！", vbExclamation Exit Sub End If Set oDom = CreateObject("htmlfile") Set oWindow = oDom.parentWindow ' 修正JSON解析代码 On Error Resume Next oWindow.execScript "var jsonString = " & sourcecode & "; var s = JSON.parse(jsonString);" oWindow.execScript "var s = " & sourcecode Dim arrLength As Integer arrLength = oWindow.eval("s.o_curinstrument.length") Debug.Print "找到 " & arrLength & " 个品种:" Dim i As Integer For i = 0 To arrLength - 1 ' 检查当前元素是否符合条件 Dim currentProductId As String Dim currentDeliveryMonth As String currentProductId = oWindow.eval("s.o_curinstrument[" & i & "].PRODUCTID") currentDeliveryMonth = oWindow.eval("s.o_curinstrument[" & i & "].DELIVERYMONTH") ' 如果找到匹配的数据 If currentProductId = "cu_f" And currentDeliveryMonth = deliverymonthdate Then cufClosingPrice = oWindow.eval("s.o_curinstrument[" & i & "].CLOSEPRICE") End If If currentProductId = "pb_f" And currentDeliveryMonth = deliverymonthdate Then pbfClosingPrice = oWindow.eval("s.o_curinstrument[" & i & "].CLOSEPRICE") End If If currentProductId = "zn_f" And currentDeliveryMonth = deliverymonthdate Then znfClosingPrice = oWindow.eval("s.o_curinstrument[" & i & "].CLOSEPRICE") End If If currentProductId = "ag_f" And currentDeliveryMonth = deliverymonthdate Then agfClosingPrice = oWindow.eval("s.o_curinstrument[" & i & "].CLOSEPRICE") End If Next i Debug.Print "铜收盘价: " & cufClosingPrice Debug.Print "铅收盘价: " & pbfClosingPrice Debug.Print "锌收盘价: " & znfClosingPrice Debug.Print "银收盘价: " & agfClosingPrice ' 释放对象 Set records = Nothing Set json = Nothing Set tdNodes = Nothing Set trNodes = Nothing Set tableNodes = Nothing Set dom = Nothing End Sub
-
VBA网抓上海黄金交易所 简 Sub get_sge_price_XMLHTTP60_NoDTS() Dim nowdate As String Dim yestoday As String Dim URL As String Dim http As Object ' MSXML2.XMLHTTP60 对象 Dim sourcecode As String Dim dom As Object ' DOM解析对象 Dim tableNodes As Object ' 表格节点集合 Dim tableNode As Object ' 单个表格节点 Dim trNodes As Object ' 行节点集合 Dim trNode As Object ' 单个行节点 Dim tdNodes As Object ' 单元格节点集合 Dim tdNode As Object ' 单个单元格节点 Dim xpathQuery As String ' XPath查询语句 Dim rowIndex As Integer ' 行索引 Dim colIndex As Integer ' 列索引 Dim dataDate As String ' Dim contract As String ' Dim openingPrice As Single ' Dim highestPrice As Single ' Dim lowestPrice As Single Dim autdClosingPrice As Single Dim agtdClosingPrice As Single ' Dim riseAndFall As Single ' Dim priceRange As Single ' Dim weightedAveragePrice As Single ' Dim tradingVolume As Single ' Dim tradingAmount As Single ' 1. 生成日期和URL（保留原逻辑） nowdate = Format(Date, "yyyy-mm-dd") yestoday = Format(Date - 1, "yyyy-mm-dd") URL = "https://www.sge.com.cn/sjzx/quotation_daily_new?start_date=" & yestoday & "&end_date=" & yestoday Debug.Print "请求URL：" & URL Debug.Print "请求日期：" & yestoday ' 2. 初始化MSXML2.XMLHTTP60对象（补充错误处理） On Error Resume Next Set http = CreateObject("MSXML2.XMLHTTP.6.0") On Error GoTo 0 If http Is Nothing Then MsgBox "无法创建XMLHTTP60对象！请安装MSXML 6.0组件。", vbCritical Exit Sub End If ' 3. 发送HTTP请求（补充SSL忽略配置） With http .Open "GET", URL, False On Error Resume Next .setOption 2, 13056 ' 仅XMLHTTP60支持，失败不报错 On Error GoTo 0 .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/141.0.0.0 Safari/537.36 Edg/141.0.0.0" .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" .setRequestHeader "Accept-Language", "zh-CN,zh;q=0.9,en;q=0.8" .setRequestHeader "Referer", "https://www.sge.com.cn/" .send If .Status <> 200 Then MsgBox "请求失败！状态码：" & .Status & vbCrLf & "响应文本：" & Left(.responseText, 500), vbCritical Set http = Nothing Exit Sub End If sourcecode = .responseText End With Set http = Nothing Debug.Print "页面源码长度：" & Len(sourcecode) If InStr(sourcecode, "daily_new_table") = 0 Then MsgBox "获取的源码中无'daily_new_table'，可能页面结构变更！", vbExclamation Exit Sub End If ' 4. 初始化HTMLFile解析对象（补充错误处理） On Error Resume Next Set dom = CreateObject("HTMLFile") On Error GoTo 0 If dom Is Nothing Then MsgBox "无法创建HTMLFile解析对象！", vbCritical Exit Sub End If ' 5. 解析HTML源码（修正解析逻辑） dom.write "<!DOCTYPE html><html><body>" & sourcecode & "</body></html>" dom.Close Application.Wait Now + TimeValue("00:00:01") ' 短暂延迟确保解析完成 Debug.Print "使用HTMLFile引擎解析（自动禁用DTS）" ' 定位目标表格（class+关键词兜底） Set tableNodes = dom.getElementsByClassName("daily_new_table") If tableNodes.Length = 0 Then Debug.Print "按class未找到，尝试按关键词定位表格..." Set tableNodes = dom.getElementsByTagName("table") For Each tableNode In tableNodes If InStr(tableNode.innerText, "开盘价") > 0 And InStr(tableNode.innerText, "收盘价") > 0 Then Set tableNodes = dom.createDocumentFragment tableNodes.appendChild tableNode Exit For End If Next tableNode If tableNodes.Length = 0 Then MsgBox "未找到目标表格！可能页面结构已变更。", vbExclamation Set dom = Nothing Exit Sub End If End If ' 取第一个目标表格的tbody Set tableNode = tableNodes(0) Set tableNodes = tableNode.getElementsByTagName("tbody") MsgBox tableNodes.Length ' 显示tbody数量 ' 统计数据行数并遍历所有行和单元格（核心新增逻辑） rowIndex = 0 If tableNodes.Length > 0 Then Set trNodes = tableNodes(0).getElementsByTagName("tr") rowIndex = trNodes.Length ' 新增：遍历所有行（trNode）和对应单元格（tdNode） Debug.Print vbCrLf & "=== 表格数据详情 ===" For Each trNode In trNodes Set tdNodes = trNode.getElementsByTagName("td") ' 获取当前行的所有单元格 colIndex = 0 For i = 1 To 5 Select Case Trim(tdNodes(i).innerText) Case "Au(T+D)" dataDate = tdNodes(0).innerText autdClosingPrice = tdNodes(5).innerText Case "Ag(T+D)" agtdClosingPrice = tdNodes(5).innerText End Select Next i ' 遍历当前行的单元格并打印到立即窗口 Next trNode End If Debug.Print autdClosingPrice Debug.Print agtdClosingPrice ' 释放对象 Set tdNodes = Nothing Set trNodes = Nothing Set tableNodes = Nothing Set dom = Nothing MsgBox "数据提取完成！共提取 " & rowIndex & " 行数据，请按Ctrl+G打开【立即窗口】查看详情。", vbInformation End Sub原 Sub get_sge_price_XMLHTTP60_NoDTS() Dim nowdate As String Dim yestoday As String Dim URL As String Dim http As Object ' MSXML2.XMLHTTP60 对象 Dim sourcecode As String Dim dom As Object ' DOM解析对象 Dim tableNodes As Object ' 表格节点集合 Dim tableNode As Object ' 单个表格节点 Dim trNodes As Object ' 行节点集合 Dim trNode As Object ' 单个行节点 Dim tdNodes As Object ' 单元格节点集合 Dim tdNode As Object ' 单个单元格节点 Dim xpathQuery As String ' XPath查询语句 Dim rowIndex As Integer ' 行索引 Dim colIndex As Integer ' 列索引 Dim dataDate As String ' Dim contract As String ' Dim openingPrice As Single ' Dim highestPrice As Single ' Dim lowestPrice As Single Dim autdClosingPrice As Single ' Dim riseAndFall As Single ' Dim priceRange As Single ' Dim weightedAveragePrice As Single ' Dim tradingVolume As Single ' Dim tradingAmount As Single ' 1. 生成日期和URL（保留原逻辑） nowdate = Format(Date, "yyyy-mm-dd") yestoday = Format(Date - 1, "yyyy-mm-dd") URL = "https://www.sge.com.cn/sjzx/quotation_daily_new?start_date=" & yestoday & "&end_date=" & yestoday Debug.Print "请求URL：" & URL Debug.Print "请求日期：" & yestoday ' 2. 初始化MSXML2.XMLHTTP60对象（补充错误处理） On Error Resume Next Set http = CreateObject("MSXML2.XMLHTTP.6.0") On Error GoTo 0 If http Is Nothing Then MsgBox "无法创建XMLHTTP60对象！请安装MSXML 6.0组件。", vbCritical Exit Sub End If ' 3. 发送HTTP请求（补充SSL忽略配置） With http .Open "GET", URL, False On Error Resume Next .setOption 2, 13056 ' 仅XMLHTTP60支持，失败不报错 On Error GoTo 0 .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/141.0.0.0 Safari/537.36 Edg/141.0.0.0" .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" .setRequestHeader "Accept-Language", "zh-CN,zh;q=0.9,en;q=0.8" .setRequestHeader "Referer", "https://www.sge.com.cn/" .send If .Status <> 200 Then MsgBox "请求失败！状态码：" & .Status & vbCrLf & "响应文本：" & Left(.responseText, 500), vbCritical Set http = Nothing Exit Sub End If sourcecode = .responseText End With Set http = Nothing Debug.Print "页面源码长度：" & Len(sourcecode) If InStr(sourcecode, "daily_new_table") = 0 Then MsgBox "获取的源码中无'daily_new_table'，可能页面结构变更！", vbExclamation Exit Sub End If ' 4. 初始化HTMLFile解析对象（补充错误处理） On Error Resume Next Set dom = CreateObject("HTMLFile") On Error GoTo 0 If dom Is Nothing Then MsgBox "无法创建HTMLFile解析对象！", vbCritical Exit Sub End If ' 5. 解析HTML源码（修正解析逻辑） dom.write "<!DOCTYPE html><html><body>" & sourcecode & "</body></html>" dom.Close Application.Wait Now + TimeValue("00:00:01") ' 短暂延迟确保解析完成 Debug.Print "使用HTMLFile引擎解析（自动禁用DTS）" ' 定位目标表格（class+关键词兜底） Set tableNodes = dom.getElementsByClassName("daily_new_table") If tableNodes.Length = 0 Then Debug.Print "按class未找到，尝试按关键词定位表格..." Set tableNodes = dom.getElementsByTagName("table") For Each tableNode In tableNodes If InStr(tableNode.innerText, "开盘价") > 0 And InStr(tableNode.innerText, "收盘价") > 0 Then Set tableNodes = dom.createDocumentFragment tableNodes.appendChild tableNode Exit For End If Next tableNode If tableNodes.Length = 0 Then MsgBox "未找到目标表格！可能页面结构已变更。", vbExclamation Set dom = Nothing Exit Sub End If End If ' 取第一个目标表格的tbody Set tableNode = tableNodes(0) Set tableNodes = tableNode.getElementsByTagName("tbody") MsgBox tableNodes.Length ' 显示tbody数量 ' 统计数据行数并遍历所有行和单元格（核心新增逻辑） rowIndex = 0 If tableNodes.Length > 0 Then Set trNodes = tableNodes(0).getElementsByTagName("tr") rowIndex = trNodes.Length ' 新增：遍历所有行（trNode）和对应单元格（tdNode） Debug.Print vbCrLf & "=== 表格数据详情 ===" For Each trNode In trNodes Set tdNodes = trNode.getElementsByTagName("td") ' 获取当前行的所有单元格 colIndex = 0 Debug.Print "第 " & (rowIndex - trNodes.Length + 1) & " 行：" ' 行号输出 ' 遍历当前行的单元格并打印到立即窗口 For Each tdNode In tdNodes colIndex = colIndex + 1 Debug.Print " 列" & colIndex & "：" & Trim(tdNode.innerText) Next tdNode dataDate = Trim(tdNodes(0).innerText) Next trNode End If ' 释放对象 Set tdNodes = Nothing Set trNodes = Nothing Set tableNodes = Nothing Set dom = Nothing MsgBox "数据提取完成！共提取 " & rowIndex & " 行数据，请按Ctrl+G打开【立即窗口】查看详情。", vbInformation End Sub
-
行政事业单位审计常见问题—01贯彻落实国家重大政策措施方面 常见问题 对国家重大政策措施贯彻落实不到位,执行不及时,有禁不止。案例1 通过政府信息平台违规向企事业单位收费 案情简介 2017年审计发现:(1)ZZ市xxxxx局要求,投标单位每次通过ZZ市xxxxx网上交易系统下载电子标书时,需向交易平台的软件开发公司缴纳"平台交易使用费"100元;(2)HZ市xxxxx局要求,投标单位每次使用HZ市xxxxx网投标时,需向交易平台的软件开发公司缴纳"平台交易使用费"40元。 问题认定 早在1990年中共中央、国务院就颁布了《关于坚决制止乱收费、乱罚款和各种摊派的决定》,近年来国务院多次曝光乱收费典型案例,对有关人员进行问责处理。上述事项不符合《财政部发展改革委工业和信息化部关于规范电子政务平台收费管理的通知》(财综函〔2011〕14号)中"各级行政机关、代行政府职能的事业单位、社会团体及其他组织通过电子政务平台提供政府公开信息和办理有关业务……不得以技术维护费、服务费、电子介质成本费等名义向企事业单位和个人收取任何经营服务性费用"的规定。 处理意见 上述单位应当立即停止错误做法,其违规收取的费用应当限期退还企业。 延伸阅读 "乱收费、乱罚款和各种摊派"虽然治理这么多年,实际上现在也没有完全根除,仍存在搭车收费、变相收费、中介乱收费等不正常现象,除了政府治理外,企事业单位也需要拿起法律武器保障自己的合法权益,财务审计部门也需要发挥其应有的作用,倒逼单位职能部门拒绝不合理、不合规的收费要求。 案例2 专项转移支付资金未按规定进行测算分配 案情简介 2016年,xxxxx(中央单位)在分配1.2亿元xxxxx专项转移支付资金时,未按2015年该中央单位与财政部联合制定的该专项资金管理办法确定的测算方式进行测算。2017年,该单位在分配2.6亿元上述专项转移支付资金时,仍未按2015年确定的测算方式进行测算。 问题认定 为了开展xxxxx综合治理,国务院做出重要决策,拨付xxxxx专项转移支付资金。上述事项不符合该中央部门与财政部联合制定的管理制度的规定。 处理意见 上述xxxxx(中央单位)应当改进专项资金的分配方式,加强对专项资金的分配管理,提高资金分配的科学性。如2016年确定的专项资金分配方法需要完善,应向有关部门报告修订该办法,否则不得随意改变测算方法。 延伸阅读 随着财政工作精细化的深入推进,资金分配要求更加规范,部门预算资金分配应当依规实施,包括本部门制定的政策规范,也应得到有效贯彻落实。 案例3 事业单位违规开展中介服务 案情简介 xxxxx(中央单位)所属NJ中心的xxxxx鉴定资质有效期至2016年12月31日。2015年3月在国务院办公厅明确要求对部门行政审批中介服务进行清理规范后,该中心仍继续开展相关xxxxx鉴定服务。资质到期后,该业务仍未停止。2015年4月至2017年12月,该中心开展xxxxx鉴定服务取得收入495万元。 问题认定 上述事项不符合《国务院办公厅关于清理规范国务院部门行政审批中介服务的通知》(国办发〔2015〕31号)第二条中"切断中介服务利益关联。审批部门所属事业单位、主管的社会组织及其举办的企业,不得开展与本部门行政审批相关的中介服务,需要开展的应转企改制或与主管部门脱钩"的规定。 处理意见 上述xxxxx(中央单位)应当严格执行相关规定,责成NJ中心停止开展xxxxx鉴定业务或与xxxxx(中央单位)脱钩,对系统内的类似中介服务机构进行全面清查,坚决落实国务院有关决策部署。 案例4 相关企业违规开展中介服务 案情简介 xxxxx(中央主管部门)相关企业开展与该部门行政审批相关的中介服务,其中,该中央主管部门所属xx研究院投资700万元成立的全资企业AC公司,与xxxxx研究院是"一套人马,两块牌子"。2016年该公司开展xxxxx中介服务取得收入884万元;KX管理顾问有限公司是该中央主管部门管理的xxxxx协会投资500万元成立的全资公司,2016年KX管理顾问有限公司开展xxxxx中介服务取得收入658万元。 问题认定 上述事项不符合《国务院办公厅关于清理规范国务院部门行政审批中介服务的通知》(国办发〔2015〕31号)第二条中"切断中介服务利益关联。审批部门所属事业单位、主管的社会组织及其举办的企业,不得开展与本部门行政审批相关的中介服务,需要开展的应……与主管部门脱钩"的规定。 处理意见 上述xxxxx(中央主管部门)今后应严格执行相关规定,责成相关企业停止开展xxxxx中介服务或与xxxxx(中央主管部门)脱钩。 案例5 利用部门权力影响有关单位开展中介服务 案情简介 2003年,国务院取消了xxxxx(中央部门)AQPJ行政审批项目,要求移交行业组织或社会中介机构自律管理。xxxxx办公室作为中介组织继续承担上述AQPJ项目的审核、发放和日常管理工作。2005年,上述xxxxx(中央部门)决定对AQPJ实施管理,并授权上述xxxxx办公室具体负责审核、发放和日常管理工作。2006年该办公室以xxxxx中心"的名称注册成为全民所有制企业,后改制为有限责任公司C。2011年,xxxxx(中央部门)仍通过授权的方式指定C公司承担AQPJ的审核、发放与监督管理工作,使其继续作为唯一承担该项业务的中介机构。截至审计日,在xxxxx(中央部门)官网办事大厅中,AQPJ仍作为一项企业办事项目保留,并直接提供C公司网站链接。经抽查,2015年至2017年,C公司开展AQPJ中介服务取得收入1.8亿元。 2015年,xxxxx(中央部门)陆续发文废止了AB管理制度,停止使用AB标志,且不再指定xx研究院AB中心开展相关工作。但xxxxx(中央部门)未对AB中心在以第三方自愿方式继续开展相关工作过程中,仍然使用已要求停止使用的相关标志的行为予以制止,并曾发文鼓励用人单位购买、使用获得AB标志的用品。截至审计日,在xxxxx(中央部门)官网办事大厅中,AB仍作为一项企业办事项目保留,并以平台"方式直接提供AB中心网站链接。经抽查,2015年至2017年,AB中心开展xxxxx工作共取得服务收入900万元。 问题认定 清理行政审批中介服务是党中央、国务院做出的重大决策部署,是深化行政审批制度改革的需要,上述事项不符合《工商行政管理机关制止滥用行政权力排除、限制竞争行为的规定》(国家工商行政管理总局令第55号)第三条"行政机关和法律、法规授权的具有管理公共事务职能的组织不得滥用行政权力,从事下列行为:(一)以明确要求、暗示或者拒绝、拖延行政许可以及重复检查等方式限定或者变相限定单位或者个人经营、购买、使用其指定的经营者提供的商品或者限定他人正常的经营活动……"的规定。 处理意见 上述xxxxx(中央部门)应正确行使行政权力,进一步改进对AQPJ和AB的监督检查工作,取消利用行政权力对相关中介服务的影响,并对上述问题进行纠正。 案例6 行政审批中介服务违规由企业负担费用 案情简介 F省xxxxx局负责xxxxx生产单位鉴定(行政审批),在鉴定前需委托中介机构进行评审,该局委托F省xxxxx研究院、xx市xxxxx研究院、F省xxxxx协会3家中介机构提供评审等技术服务,中介机构实施评审并向企业收费,2016年1月至2017年8月累计收费744万元。 问题认定 上述事项不符合《国务院办公厅关于清理规范国务院部门行政审批中介服务的通知》(国办发〔2015〕31号)第二条中"规范中介服务收费……审批部门在审批过程中委托开展的技术性服务活动,必须通过竞争方式选择服务机构,服务费用一律由审批部门支付并纳入部门预算"的规定。 处理意见 上述承担xxxxx生产单位鉴定技术服务的F省xxxxx研究院、xx市xxxxx研究院、F省xxxxx协会不得直接向企业收取费用,F省xxxxx局应当将需要委托中介机构技术服务费用纳入单位预算,直接向中介机构支付,不得转嫁给企业。 案例7 部门规章与国务院清理行政审批中介服务要求不符 案情简介 2007、2009和2012年,xx(中央部门)分别颁布了《xxxxx机构管理规定》《xx机构管理规定》和《xx机构监督管理暂行办法》,对甲、乙、丙不同资质机构的工作地域、范围做出了限制性规定。 问题认定 上述事项不符合《国务院办公厅关于清理规范国务院部门行政审批中介服务的通知》(国办发〔2015〕31号)第二条"清理规范的措施"中"破除中介服务垄断……各部门设定的区域性、行业性或部门间中介服务机构执业限制一律取消"的规定。 处理意见 上述xx(中央部门)应当按照国家相关要求,对不符合国务院行政审批中介服务清理要求的规章进行修订。 案例8 已脱钩协会违规占用行政办公用房 案情简介 根据行业协会商会相关脱钩文件要求,A协会和B协会分别被纳入xxxxx(中央部门)行业协会商会与行政机关脱钩工作第一批、第二批试点名单。截至2017年12月31日,上述两个协会已完成脱钩,但2018年4月仍占用上述中央部门行政办公用房440平方米。 问题认定 上述事项不符合《全国性行业协会商会脱钩改革有关行政办公用房管理办法(试行)》(国管房地〔2015〕398号文件发布)第十条"全国性行业协会商会使用的符合核定面积的行政办公用房,2017年底前按《中共中央办公厅、国务院办公厅关于党政机关停止新建楼堂馆所和清理办公用房的通知》(中办发〔2013〕17号)及有关规定清理腾退,原则上应实现办公场所独立。确实难以腾退的,经机关事务主管部门核准后,2019年底前可以继续使用……"的规定。 处理意见 上述xxxxx(中央部门)应责成两家已脱钩协会按国家有关要求腾退办公用房,若确实难以腾退应按规定办理核准手续,最迟使用至2019年底。 案例9 违规发放津贴补贴和绩效工资 案情简介 审计发现,(中央部门)所属研究院2015年至2016年未按规定冻结津贴补贴和绩效工资,在在编人数比2014年分别少5人和10人的情况下,发放的津贴补贴和绩效工资比2014年分别高出494万元和677万元。通过对该中央部门所属其他事业单位的延伸审计发现,该问题在该中央部门其他事业单位也同样存在。 问题认定 上述事项不符合《国务院办公厅转发人力资源社会保障部 财政部关于调整机关事业单位工作人员基本工资标准和增加机关事业单位离退休人员离退休费三个实施方案的通知》(国办发〔2015〕3号)中"自本通知印发之日起,冻结规范津贴补贴(绩效工资,下同)的增长,各地区、各部门不得自行提高津贴补贴水平和调整津贴补贴标准"的规定。 处理意见 上述(中央部门)应认真落实国务院有关文件精神,严格按照要求加强工资管理,严禁违规发放津贴补贴,对违规发放的一律进行清退,并追究相关人员的责任。 案例10 未按规定时间完成信息系统清理整合工作 案情简介 2017年,xxx(中央部门)在建和在用的信息系统共计67个,其中以司局和处室名义存在的独立政务信息系统60个。截至2017年底,该单位已完成33个信息系统的清理整合工作,完成率55%。 问题认定 上述事项不符合《国务院办公厅关于印发政务信息系统整合共享实施方案的通知》(国办发〔2017〕39号)第二条中"推进整合,加快部门内部信息系统整合共享……2017年12月底前,各部门原则上将分散的、独立的信息系统整合为一个互联互通、业务协同、信息共享的'大系统',对以司局和处室名义存在的独立政务信息系统原则上必须整合"的规定。 处理意见 上述xxxxx(中央部门)应当按要求加快推进信息系统整合共享工作。对于不符合共建共享要求的政务信息系统,原则上不得安排后续建设及运营维护经费;对于新建政务信息系统建设经费,通过申请基本建设投资解决。
-
离退休人员再任职的税务处理 一、政策要点问答 （一）退休工资、离休工资、离休生活补助费要缴个人所得税吗？ 答：不需要。《中华人民共和国个人所得税法》第四条第七款规定：按照国家统一规定发给干部、职工的安家费、退职费、基本养老金或者退休费、离休费、离休生活补助费免征个人所得税。 需要提醒的是，退休人员如还取得返聘工资，不需要合并退休工资、离休工资和离休生活补助费计算缴纳个税；退休人员取得退休工资、离休工资和离休生活补助费不需要汇总到综合所得计算缴纳个税。 （二）离退休人员从原任职单位取得离退休工资或养老金以外的各类补贴要按工薪所得缴纳个人所得税吗？ 答：需要。《国家税务总局关于离退休人员取得单位发放离退休工资以外奖金补贴征收个人所得税的批复》(国税函〔2008〕723号)规定：离退休人员除按规定领取离退休工资或养老金外，另从原任职单位取得的各类补贴、奖金、实物，不属于《中华人民共和国个人所得税法》第四条规定可以免税的退休工资、离休工资、离休生活补助费。根据《中华人民共和国个人所得税法》及其实施条例的有关规定，离退休人员从原任职单位取得的各类补贴、奖金、实物，按“工资、薪金所得”应税项目缴纳个人所得税。 通俗的说，原任职单位给离退休人员“发的”各类补贴、奖金、实物，需要按照《国家税务总局关于发布<个人所得税扣缴申报管理办法（试行）>的公告》（税务总局公告2018年第61号）相关规定，按照“工资、薪金所得”预扣预缴个人所得税，离退休人员自行按照综合所得税决定是否需要汇算清缴。 （三）离退休人员再任职取得的收入要缴个人所得税吗？ 答：需要。《国家税务总局关于个人兼职和退休人员再任职取得收入如何计算征收个人所得税问题的批复》(国税函〔2005〕382号)规定，个人兼职取得的收入应按照“劳务报酬所得”应税项目缴纳个人所得税；退休人员再任职取得的收入，在减除按个人所得税法规定的费用扣除标准后，按“工资、薪金所得”应税项目缴纳个人所得税。 《国家税务总局关于个人所得税有关问题的公告》(国家税务总局公告2011年第27号)规定，国税函〔2006〕526号第三条中，单位是否为离退休人员缴纳社会保险费，不再作为离退休人员再任职的界定条件。 通俗的说，离退休人员再任职要根据具体情况分析，判断是否按“工资、薪金所得”还是“劳务报酬所得”应税项目缴纳个人所得税。 （四）退休返聘人员如何计算缴纳个人所得税？ 答： 如果返聘的退休人员属于兼职的形式，按“劳务报酬所得”缴纳个税。 《国家税务总局关于个人兼职和退休人员再任职取得收入如何计算征收个人所得税问题的批复》（国税函〔2005〕382号）规定，个人兼职取得的收入应按照“劳务报酬所得”应税项目缴纳个人所得税。 如果返聘的退休人员属于与公司签订劳动合同再任职的，按如下规定： （1）退休人员再任职取得的收入，在减除按个人所得税法规定的费用扣除标准后，按“工资、薪金所得”应税项目缴纳个人所得税。 （2）退休人员再任职，应同时符合下列条件： ① 受雇人员与用人单位签订一年以上（含一年）劳动合同（协议），存在长期或连续的雇用与被雇用关系； ② 受雇人员因事假、病假、休假等原因不能正常出勤时，仍享受固定或基本工资收入； ③ 受雇人员与单位其他正式职工享受同等福利、培训及其他待遇； ④ 受雇人员的职务晋升、职称评定等工作由用人单位负责组织。 对于退休人员取得的退休费、基本养老金根据《中华人民共和国个人所得税法》第四条相关规定：按照国家统一规定发给干部、职工的安家费、退职费、基本养老金或者退休费、离休费、离休生活补助费免征个人所得税。 （五）离退休年龄的高级专家从所在单位取得的工资、补贴等视同离退休工资要缴个人所得税吗？ 答：不需要。《财政部国家税务总局关于高级专家延长离休退休期间取得工资薪金所得有关个人所得税问题的通知》(财税〔2008〕7号)规定：延长离休退休年龄的高级专家是指享受国家发放的政府特殊津贴的专家、学者和中国科学院、中国工程院院士。延长离休退休年龄的高级专家按下列规定征免个人所得税： （1）对高级专家从其劳动人事关系所在单位取得的，单位按国家有关规定向职工统一发放的工资、薪金、奖金、津贴、补贴等收入，视同离休、退休工资，免征个人所得税； （2）除上述1项所述收入以外各种名目的津补贴收入等，以及高级专家从其劳动人事关系所在单位之外的其他地方取得的培训费、讲课费、顾问费、稿酬等各种收入，依法计征个人所得税。 （六）退休人员取得工资薪金所得要按照综合预扣预缴和汇算清缴缴纳个税吗？ 答：需要。 居民个人取得综合所得（工资、薪金所得、劳务报酬所得、稿酬所得、特许权使用费所得），按纳税年度合并计算个人所得税。居民个人的综合所得，以每一纳税年度的收入额减除费用六万元以及专项扣除（包括居民个人按照国家规定的范围和标准缴纳的基本养老保险、基本医疗保险、失业保险等社会保险费和住房公积金等）、专项附加扣除（包括子女教育、继续教育、大病医疗、住房贷款利息或者住房租金、赡养老人等支出）和依法确定的其他扣除后的余额，为应纳税所得额。 通俗的说，离退休人员再任职取得工资薪金/劳务报酬，可以按规定预扣预缴/汇算清缴时扣除子女教育、继续教育、大病医疗、住房贷款利息或者住房租金、赡养老人等专项附加扣除支出。 （七）个人提前退休取得的一次性补贴收入要缴个人所得税吗？ 答：需要。《财政部、国家税务总局关于个人所得税法修改后有关优惠政策衔接问题的通知》（财税〔2018〕164号）规定：个人办理提前退休手续而取得的一次性补贴收入，应按照办理提前退休手续至法定离退休年龄之间实际年度数平均分摊，确定适用税率和速算扣除数，单独适用综合所得税率表，计算纳税。 计算公式：应纳税额={〔（一次性补贴收入÷办理提前退休手续至法定退休年龄的实际年度数）－费用扣除标准〕×适用税率－速算扣除数}×办理提前退休手续至法定退休年龄的实际年度数。 （八）个人办理内部退养手续而取得的一次性补贴收入要缴纳个人所得税吗？ 答： 《国家税务总局关于个人所得税有关政策问题的通知》（国税发〔1999〕58号）规定：实行内部退养的个人在其办理内部退养手续后至法定离退休年龄之间从原任职单位取得的工资、薪金，不属于离退休工资，应按“工资、薪金所得”项目计征个人所得税。 个人在办理内部退养手续后从原任职单位取得的一次性收入，应按办理内部退养手续后至法定离退休年龄之间的所属月份进行平均，并与领取当月的“工资、薪金”所得合并后减除当月费用扣除标准，以余额为基数确定适用税率，再将当月工资、薪金加上取得的一次性收入，减去费用扣除标准，按适用税率计征个人所得税。 个人在办理内部退养手续后至法定离退休年龄之间重新就业取得的“工资、薪金”所得，应与其从原任职单位取得的同一月份的“工资、薪金”所得合并，并依法自行向主管税务机关申报缴纳个人所得税。 （九）离退休人员的其他应税所得如何缴纳个人所得税？ 答：根据个人所得税法的规定，离退休人员取得的个体户生产经营所得、对企事业单位的承包经营承租经营所得、劳务报酬所得、稿酬所得、财产租赁所得、财产转让所得、利息股息红利所得、偶然所得以及其他所得均应依法缴纳个人所得税。 （十）离退休人员的工资、福利可以在税前扣除吗？ 答：不能。根据《国家税务总局办公厅关于强化部分总局定点联系企业共性税收风险问题整改工作的通知》（税总办函〔2014〕652号）中关于“一、离退休人员的工资、福利等与取得收入不直接相关的支出的税前扣除问题”规定：按照《中华人民共和国企业所得税法》第八条及《中华人民共和国企业所得税法实施条例》第二十七条的规定，与企业取得收入不直接相关的离退休人员工资、福利费等支出，不得在企业所得税前扣除。 （十一）返聘离退休人员工资薪金支出和职工福利费支出可以税前扣除吗？ 答：可以。根据《国家税务总局关于企业所得税应纳税所得额若干税务处理问题的公告》（国家税务总局公告2012年第15号）的有关季节工、临时工等费用税前扣除问题规定，企业因雇用季节工、临时工、实习生、返聘离退休人员所实际发生的费用，应区分为工资薪金支出和职工福利费支出，并按《中华人民共和国企业所得税法》规定在企业所得税前扣除。其中属于工资薪金支出的，准予计入企业工资薪金总额的基数，作为计算其他各项相关费用扣除的依据。 （十二）发放给退休返聘人员的劳务报酬如何取得税前扣除凭证？ 答：根据《企业所得税税前扣除凭证管理办法》(国家税务总局公告2018年第28号)第九条、第十条规定，企业在境内发生的支出项目属于增值税应税项目的，对方为已办理税务登记的增值税纳税人，其支出以发票（包括按照规定由税务机关代开的发票）作为税前扣除凭证；对方为依法无需办理税务登记的单位或者从事小额零星经营业务的个人，其支出以税务机关代开的发票或者收款凭证及内部凭证作为税前扣除凭证，收款凭证应载明收款单位名称、个人姓名及身份证号、支出项目、收款金额等相关信息。税务总局对应税项目开具发票另有规定的，以规定的发票或者票据作为税前扣除凭证。 企业在境内发生的支出项目不属于应税项目的，对方为单位的，以对方开具的发票以外的其他外部凭证作为税前扣除凭证；对方为个人的，以内部凭证作为税前扣除凭证。企业在境内发生的支出项目虽不属于应税项目，但按税务总局规定可以开具发票的，可以发票作为税前扣除凭证。 二、案例 2019年5月，符合提前退休条件的老李，办理了退休手续，并拿到一次性补偿金20万元。退休后，老李的退休金为每月6000元。自6月起，老李再任职，每月获得工资6000元。 （一）老李提前退休取得的一次性补偿金要缴纳个人所得税吗？ 答：需要。根据《财政部 国家税务总局关于个人所得税法修改后有关优惠政策衔接问题的通知》（财税〔2018〕164号）第五条第一款规定:个人办理提前退休手续而取得的一次性补贴收入,应按照办理提前退休手续至法定离退休年龄之间实际年数平均分摊,确定适用税率和速算扣除数,单独适用综合所得税率表,计算纳税。 （二）老李提前退休取得的一次性补偿金缴纳税额的计算公式是什么？ 答：应纳税额={〔（一次性补贴收入÷办理提前退休手续至法定退休年龄的实际年度数）－费用扣除标准〕×适用税率－速算扣除数}×办理提前退休手续至法定退休年龄的实际年度数。 老李按照60周岁退休的年限还有4年退休，一次性补贴收入为20万元， 2019、2020、2021、2022四个纳税年度，平摊到每年为5万元，按照费用扣除标准6万元看，扣除费用后，应纳税所得额为0，应纳税额为0。 （三）老李的一次性补偿金在自然人税收管理系统扣缴客户端中，应该归在哪一类？ 答：综合所得。2019年1月20日升级后，综合所得新增解除劳动合同一次性补偿金、提前退休一次性补贴、个人股权激励收入所得。 （四）若公司给老李的一次性补偿金为28万元，需要缴税吗？如何缴纳？ 答：4个纳税年度，平摊到每年的收入额为7万元，按照费用扣除标准6万元后，根据税率表应适用3%的税率征税。其应纳税额为： （28÷4-6）×3%×4=0.12万元。 （五）老李退休后，每月6000元的退休金需要缴纳个税吗？ 答：不需要。按照《中华人民共和国个人所得税法》规定，国家统一规定发给干部、职工的安家费、退职费、基本养老金或者退休费、离休费、离休生活补助费免征个人所得税。 （六）若2019年12月，原单位按照实际出勤天数给老李一笔本年的年终奖，该笔收入需要缴纳个税吗？如何计税？ 答：需要。根据《国家税务总局关于离退休人员取得单位发放离退休工资以外奖金补贴征收个人所得税的批复》（国税函〔2008〕723号）规定：“离退休人员除按规定领取离退休工资或养老金外，另从原任职单位取得的各类补贴、奖金、实物，不属于《中华人民共和国个人所得税法》第四条规定可以免税的退休工资、离休工资、离休生活补助费。 根据《中华人民共和国个人所得税法》及其实施条例的有关规定，离退休人员从原任职单位取得的各类补贴、奖金、实物，应在减除费用扣除标准后，按工资、薪金所得应税项目缴纳个人所得税。 （七）老李再任职取得的每月6000元的收入是否可以享受个税专项扣除、专项附加扣除？ 答：可以。根据《个人所得税法》，无论将退休返聘人员薪酬界定为工资薪金所得还是劳务报酬所得，都是属于综合所得范畴，可以享受专项附加扣除。 老李的情况若符合国税函〔2005〕382号、国税函﹝2006﹞526号文的，退休人员再任职取得的收入，在减除按个人所得税法规定的费用扣除标准后，按“工资、薪金所得”应税项目缴纳个人所得税。 在预扣预缴个税时采用累计扣除处理；若不符合相关条件，则应作为劳务报酬处理，在年度汇算清缴期间办理。 三、政策依据 《中华人民共和国个人所得税法》 《中华人民共和国个人所得税法实施条例》 《国家税务总局关于个人兼职和退休人员再任职取得收入如何计算征收个人所得税问题的批复》（国税函〔2005〕382号） 《国家税务总局关于离退休人员再任职界定问题的批复》（国税函〔2006〕526号） 《国家税务总局关于个人所得税有关问题的公告》（国家税务总局公告2011年第27号） 《财政部 国家税务总局关于个人所得税法修改后有关优惠政策衔接问题的通知》（财税〔2018〕164号） 《国家税务总局关于企业所得税应纳税所得额若干税务处理问题的公告》（国家税务总局公告2012年第15号） 《国家税务总局关于企业工资薪金和职工福利费等支出税前扣除问题的公告》（国家税务总局公告2015年第34号） 《企业所得税税前扣除凭证管理办法》(国家税务总局公告2018年第28号)
-
Toboyoo Sales Dashboard 当一个 Power BI 报告充满了赛博朋克的美学，用 VR 和元宇宙的元素包裹着数据，你首先会想到什么？ “惊艳”、“炫酷”、“技术大神”？ 没错，这些都是第五届 Power BI 可视化大赛中国区冠军作品 《Toboyoo Sales Dashboard》 给人的第一印象。但如果我们仅仅停留在视觉的震撼，那就错过了这幅作品真正的“杀手锏”。 今天，就让我们撕开其“赛博朋克”的炫酷外壳，深入其分析的内核，看看一个冠军级的 BI 报告，是如何将复杂的业务问题，拆解为清晰、深刻、可执行的数据洞察的。 设计是外壳，商业分析才是灵魂 作品选择了一个极具前瞻性的主题，赛博朋克风。这并非单纯的炫技，而是作者深思熟虑后的战略选择。 营造沉浸感： 赛博朋克风格的深色背景、流光溢彩的霓虹线条、充满科技感的图标和动效，共同构建了一个“数字驾驶舱”的氛围。这让使用者在打开报告的瞬间，就能从繁杂的日常工作中抽离，沉浸到对数据的探索中。 隐喻未来： “赛博朋克”本身就代表着对未来的探索。这与 BI 的终极目标，“洞察先机，预测未来”不谋而合。设计风格与作品内核形成了完美的呼应。 统一视觉语言： 从首页到详情页，所有的视觉元素，如图标、配色、字体、图表样式，都严格遵循了这一设计语言，使得整个作品高度统一、专业且极具辨识度。 整个作品的核心，是为企业经营者打造一个可以实时交互的“数字驾驶舱”。接下来，就让我们坐上驾驶位，逐一启动仪表盘上的每一个功能模块。 Home - 驾驶舱概览 这是整个驾驶舱的入口。它用最显眼的方式，呈现了企业经营者最关心的四大核心指标（KPIs）：净销售额、毛利率、门店数 和 SKU 数。每一个 KPI 卡片都设计成了富有科技感的悬浮模块，用简洁的数字和同比箭头，让管理者在 30 秒内就能对业务健康度有一个宏观的判断。这完美诠释了优秀仪表板的原则：信息降噪，要事优先。 多维度下钻分析，常规视角下的视觉创新 在对全局有所了解后，驾驶舱提供了从不同业务视角进行下钻探索的模块。这部分最能体现作者作为“最佳可视化”得主的功力，即便是常规分析，也能做出新意。 Geo（地理分析）： 核心是回答“我们的钱从哪里来？”。视觉上，一个巨大的、富有光泽的 3D 地球仪占据了 C 位，不同区域的销售表现用深浅不一的颜色渲染，极具视觉冲击力。右侧的条形图和散点图则作为补充，清晰、直观。 Product（产品分析）： 核心是回答“我们该卖什么？”。最亮眼的设计是顶部的图片式导航栏，用户可以点击“电脑”、“相机”等具象化的图标进行品类切换，比传统的下拉菜单有趣得多。下方的分解树，则清晰地展示了产品层级关系。 Store（门店分析）： 核心是回答“哪些门店在 C 位？”。左侧是门店类型的筛选，中间是 Mapbox 的门店分布地图，右侧则创造性地使用了条形进度图来展示各门店的目标达成情况，一目了然。 MFG（制造商分析）： 核心是回答“谁是我们的最佳拍档？”。作者在这里放弃了传统的条形图，大胆地使用了气泡图和弦图。中央巨大的气泡代表核心供应商，周围的小气泡是次要供应商，大小代表销售额，非常直观。右侧的弦图则精妙地展示了供应商与产品品类之间的复杂供货关系。 三大硬核高级分析模块 如果说前面的页面是“看现状”，那么接下来的三个模块，则是“探本质、见未来”，也是这幅作品真正的封神之处。在这里，可视化成为了简化复杂模型的利器。 OG（有机增长分析），诊断增长的“含金量” 本页面旨在回答“增长是否健康？”。视觉上，作者将复杂的有机增长公式（OG = RIG + Pricing）直接呈现在页面顶部，用一个简洁的面积图展示了三者的关系。右侧的两个散点图，则分别从“产品”和“门店”两个维度，将RIG影响与Pricing影响进行交叉分析，帮助管理者快速定位增长驱动的关键因素。 Quads（四象限分析），指明资源投入的“主战场” 本页面旨在回答“资源该投给谁？”。作者将经典的“二八法则”可视化为四个色彩分明的信息看板，每个看板清晰地展示了该象限的销售额、利润、客单价等核心信息。左侧的定义区和下方的行动计划区，则用图文并茂的方式，让管理者不仅知道“是什么”，更知道“该怎么做”。 Discount（折扣分析），科学规划“营销预算” 本页面旨在回答“营销预算怎么花才科学？”。视觉上，两个带滑块的交互式曲线图是核心。管理者只需拖动“目标销售额”的滑块，右侧的预算曲线就会实时变化，直观地展示出达成目标所需的“理想折扣预算”范围。这是将复杂的回归模型，用最简单直接的可视化交互呈现出来的典范。 我们与冠军的差距，到底在哪里？ 再次回顾这幅冠军作品，我们可以得出结论：“第五届 Power BI 可视化大赛冠军”颁给它，不仅仅因为其炫酷的外表，更是因为它做到了设计的“形”与分析的“神”的完美统一。 冠军选手思考的，不是“这个图表好不好看”，而是“这个图表能否最高效、最准确地传递我想表达的业务洞察”。他将经典的商业分析框架，与前沿的视觉设计语言、Power BI 的工具能力完美结合，最终打造出的，已经不是一个简单的“报表”，而是一个能够与管理者对话、辅助其决策的数字驾驶舱。 这提醒我们，学习 Power BI，技术是基础，但真正的天花板，在于你是否能用视觉的语言，清晰地表达你对业务的深度思考。 希望这次深度的复盘，能为你打开一扇新的大门。 作品截图 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 图片 内嵌作品
