常见的违规行为一、应招未招，依法必须进行招标的项目而不招标，直接发包。按照《必须招标的工程项目规定》（国家发改委16号令）要求“施工单项合同估算价在400万元人民币以上；重要设备、材料等货物的采购，单项合同估算价在200万元人民币以上；勘察、设计、监理等服务的采购，单项合同估算价在100万元人民币以上。同一项目中可以合并进行的勘察、设计、施工、监理以及与工程建设有关的重要设备、材料等的采购，合同估算价合计达到前款规定标准的，必须招标”。
审计中经常发现达到招标标准未进行招标，或者肢解项目规避招标的情况。工作中应搜集发包单位的招标台账、合同台账和财务电子账，将财务账和合同台账进行对比，检查是否有漏登合同、错登合同或补充合同的情况；将合同台账和招标台账进行对比，分析是否存在合同金额达到招标要求而未进行招标的情况。
二、以暂估价形式，属于依法必须招标的范围且达到国家规定的规模标准，不依法进行招标。
按照《房屋建筑和市政基础设施项目工程总承包管理办法》（ 建市规〔2019〕12号）第二十一条“工程总承包单位可以采用直接发包的方式进行分包。但以暂估价形式包括在总承包范围内的工程、货物、服务分包时 ...
JsonConverter
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719 ...
b表单处理
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158Dim aarr(1 To 20), bbrr(1 To 30, 1 To 30) '多列调整Sub 单表_一键调整(control As IRibbonControl) '单表-格式 '功能：光标在表格中处理当前表格 ...
a段落处理
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002 ...
e大纲
123456789101112131415161718192021222324252627282930Sub 大纲一级(control As IRibbonControl) '大纲调整-一级 With Selection .Paragraphs.OutlineLevel = wdOutlineLevel1 End WithEnd SubSub 大纲二级(control As IRibbonControl) '大纲调整-二级 With Selection .Paragraphs.OutlineLevel = wdOutlineLevel2 End WithEnd SubSub 大纲三级(control As IRibbonControl) '大纲调整-三级 With Selection .Paragraphs.OutlineLevel = wdOutlineLevel3 End WithEnd SubSub 大纲四级(control As IRibbonControl) ...
d文字
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126Sub 宋体宋体(control As IRibbonControl) '选中范围字体为宋体+宋体 With Selection.Font .NameFarEast = "宋体" .NameAscii = "宋体" .NameOther = "宋体" End WithEnd SubSub 宋体罗马(control As ...
h行列校验
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283Sub 选行校验(control As IRibbonControl) '行列校验-选行校验 i = 0 x = 0 n = 0 If Selection.Type = wdSelectionColumn Then For Each Acell In Selection.Cells '求所选列合计数 If Acell.ColumnIndex > n Then n = Acell.ColumnIndex End If Set CR1 = ActiveDocument.Range(Acell.Range.Sta ...
j页面设置
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273Sub 附注页面(control As IRibbonControl) '页面-页面设置 With ActiveDocument.PageSetup .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2.54) .BottomMargin = CentimetersToPoints(2.54) .LeftMargin = CentimetersToPoints(3.17) .RightMargin = CentimetersToPoints(2.7) .HeaderDistance = CentimetersToPoints( ...
k访谈提纲
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556Sub 插入访谈(x) Path = ActiveDocument.AttachedTemplate.FullName Application.Templates(Path).BuildingBlockEntries(x).Insert Where:=Selection.Range, RichText:=True With ActiveDocument.PageSetup .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2.54) .BottomMargin = CentimetersToPoints(2.54) .LeftMargin = CentimetersToPoints(3.17) .Righ ...
g批注
123456789101112131415161718192021222324252627Sub 添加批注(control As IRibbonControl) '批注-添加批注 '添加批注 Application.ScreenUpdating = False '关闭屏幕更新 Selection.Collapse Direction:=wdCollapseEnd ActiveDocument.Comments.Add _ Range:=Selection.Range, Text:="" Application.ScreenUpdating = True '恢复屏幕更新End SubSub 删除批注(control As IRibbonControl) '批注-删除批注 '删除批注 On Error GoTo err_msgbox Selection.Comments(1).Delete Exit Suberr_msgbox: ...
