易飞ERP体检工具

<?xml version="1.0" encoding="gb2312"?> <!DOCTYPE ACT [ <!ENTITY stdd "&amp;stdd;"> ]> <Item Id="Moc" CNName="会计总账子系统" ENName=""> <Hint></Hint> <SubItem Id="Document Type" CNName="一、基础信息" ENName=""> <Hint></Hint> <SQL Id="Text_1" OutputType="String" OutputContent="1.财务参数 "> </SQL> <SQL Id="" DataBase="Company" OutputFields="MC012,MC011,MC009,MC010" OutputType="String" OutputContent="凭证金额控制: @MC012&lt;br&gt;现金类凭证是否有做出纳管理: @MC011&lt;br&gt;是否启用现金流量表: @MC009&lt;br&gt;输入凭证指定现金流量表项目: @MC010&lt;br&gt;"> SELECT CASE MC012 WHEN '1' then '1.金额为零提示警告，仍可保存' else '2.金额为零不可保存' END MC012 ,MC011,MC009 ,CASE MC010 WHEN '1' then '1.必须指定才可保存' WHEN '2' then '2.未指定时提示警告，仍可保存' else '3.不做检查' END MC010 FROM $$ACTMC WITH (NOLOCK) </SQL> <SQL Id="Text_1" OutputType="String" OutputContent=""> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="2.会计科目 "> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="做了核算项目管理的科目:"> </SQL> <SQL Id="" DataBase="Company" OutputFields="MA001,MA003" OutputType="Table" OutputContent="科目编号,科目名称"> SELECT MA001,MA003 FROM $$ACTMA WITH (NOLOCK) WHERE ((MA009= 'Y') or (MA013&lt;&gt;'1') or (MA015&lt;&gt;'1')) AND MA016='Y' AND MA008='2' order by MA001 </SQL> <SQL Id="" DataBase="Company" OutputFields="MA002" OutputType="String" OutputContent="检测科目信息是否为2006会计制度要求: @MA002"> SELECT CASE WHEN EXISTS( SELECT COUNT(*) FROM $$ACTMA AS A WITH (NOLOCK) WHERE LEN(MA002)=2 HAVING COUNT(*)=6 ) THEN 'Y' ELSE 'N' END AS MA002 </SQL> </SubItem> <SubItem Id="Document Type" CNName="二、使用概况" ENName=""> <Hint></Hint> <SQL Id="Text_1" OutputType="String" OutputContent="1.单据性质及各交易单据 "> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="ACT单据性质清单:"> </SQL> <SQL Id="Document_Type" DataBase="Company" Parameters="CHECKDATE|CHECKDATE" OutputFields="MQ001,MQ002,MQ003,CREATEDATE,MQCOUNT,WSSL,TA003_TA013,DYCS,BDCOUNT" OutputType="Table" OutputContent="单别,单据名称,单据性质,最近一笔的录入日期,近2个月的总单据数量,近2个月未审核的单据张数,近2个月平均审核周期,近2个月单据的打印次数,近2个月补单的单据张数"> -2=@P1(这边是为了sql语句自己输入参数,再程序内部去做) </SQL> <SQL Id="Text_1" OutputType="String" OutputContent=""> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="2.报表使用状况 "> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="最近2个月，最主要使用的报表及频率(从高到低):"> </SQL> <SQL Id="" DataBase="Public" Parameters="CHECKDATE|CHECKDATE,COMPANYID|CHECKCOMPANY" OutputFields="MB001,MB002,COUNTS" OutputType="Table" OutputContent="程序编号,程序名称,使用次数"> SELECT TOP 10 MB001,MB002,COUNT(*) AS COUNTS FROM ADMMB AS ADMMB WITH (NOLOCK) INNER JOIN WORKLOG AS WORKLOG WITH (NOLOCK) ON MB001=PROGID WHERE CONVERT(varchar(8),DTSTART,112)&gt;=CONVERT(varchar(8),DateAdd(month,-2,:CHECKDATE),112) AND (PROGID in ('ACTR08','ACTR09','ACTR12','ACTR13','ACTR15','ACTR19','ACTR20','ACTR21','ACTR22','ACTR23', 'ACTR24','ACTR26','ACTR27','ACTR28','ACTR29','ACTR32','ACTR44','ACTR46','ACTR51 ','ACTR52 ','ACTR53 ','ACTR54' ,'ACTR55','ACTR56','ACTR57','ACTR62','ACTR63','ACTR64','ACTR66')) AND COMPANYID=:COMPANYID GROUP BY MB001,MB002 ORDER BY COUNTS DESC </SQL> <SQL Id="Text_1" OutputType="String" OutputContent=""> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="3.会计凭证 "> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="近2个月的会计凭证数量(分月统计): "> </SQL> <SQL Id="" DataBase="Company" Parameters="CHECKDATE|CHECKDATE" OutputFields="COUNTS1,COUNTS2" OutputType="Table" OutputContent="第一个月,第二个月"> SELECT SUM(CASE WHEN TA003&gt;=CONVERT(varchar(8),DateAdd(month,-2,:CHECKDATE),112) AND TA003&lt;CONVERT(varchar(8),DateAdd(month,-1,:CHECKDATE),112) then 1 ELSE 0 END ) AS COUNTS1, SUM(CASE WHEN TA003&gt;CONVERT(varchar(8),DateAdd(month,-1,:CHECKDATE),112) THEN 1 ELSE 0 END ) AS COUNTS2 FROM $$ACTTA WITH (NOLOCK) WHERE TA006 &lt;&gt; '1' AND TA003&gt;=CONVERT(varchar(8),DateAdd(month,-2,:CHECKDATE),112) </SQL> <SQL Id="Text_1" OutputType="String" OutputContent=""> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="近2个月手工凭证的数量(分月统计): "> </SQL> <SQL Id="" DataBase="Company" Parameters="CHECKDATE|CHECKDATE" OutputFields="COUNTS1,COUNTS2" OutputType="Table" OutputContent="第一个月,第二个月"> SELECT SUM(CASE WHEN TA003&gt;=CONVERT(varchar(8),DateAdd(month,-2,:CHECKDATE),112) AND TA003&lt;CONVERT(varchar(8),DateAdd(month,-1,:CHECKDATE),112) then 1 ELSE 0 END ) AS COUNTS1, SUM(CASE WHEN TA003&gt;CONVERT(varchar(8),DateAdd(month,-1,:CHECKDATE),112) THEN 1 ELSE 0 END ) AS COUNTS2 FROM $$ACTTA WITH (NOLOCK) WHERE TA006 = '1' AND TA003&gt;=CONVERT(varchar(8),DateAdd(month,-2,:CHECKDATE),112) </SQL> <SQL Id="Text_1" OutputType="String" OutputContent=""> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="4.特殊程序的使用（日志） "> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="特殊作业的使用:"> </SQL> <SQL Id="" DataBase="Public" Parameters="COMPANYID|CHECKCOMPANY" OutputFields="MB001,MB002,CHECKS" OutputType="Table" OutputContent="程序编号,程序名称,是否使用"> SELECT DISTINCT MB001,MB002,CASE WHEN PROGID IS NULL THEN 'N' ELSE 'Y' END AS CHECKS FROM ADMMB WITH (NOLOCK) LEFT JOIN WORKLOG WITH (NOLOCK) ON MB001=PROGID AND WORKLOG.COMPANYID=:COMPANYID AND WORKLOG.PROGID IN ('ACTB08','ACTB30','ACTB11') WHERE MB001 IN ('ACTB08','ACTB11') </SQL> <SQL Id="Text_1" OutputType="String" OutputContent=""> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="5.月结 "> </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="近2个月使用过的特殊作业:"> </SQL> <SQL Id="" DataBase="Public" Parameters="CHECKDATE|CHECKDATE,COMPANYID|CHECKCOMPANY" OutputFields="MB001,MB002,CHECKS" OutputType="Table" OutputContent="程序编号,程序名称,是否使用"> SELECT DISTINCT MB001,MB002,CASE WHEN PROGID IS NULL THEN 'N' ELSE 'Y' END AS CHECKS FROM ADMMB WITH (NOLOCK) LEFT JOIN WORKLOG WITH (NOLOCK) ON MB001=PROGID AND WORKLOG.COMPANYID=:COMPANYID AND WORKLOG.PROGID IN ('ACTB26','ACTB04','ACTR19','ACTB09') AND CONVERT(varchar(8),DTSTART,112)&gt;=CONVERT(varchar(8),DateAdd(month,-2,:CHECKDATE),112) WHERE MB001 IN ('ACTB04','ACTB09','ACTR19','ACTB26') </SQL> <SQL Id="Text_1" OutputType="String" OutputContent="6.异常单据检测 "> </SQL> <SQL Id="" DataBase="Public" Parameters="CHECKDATE|CHECKDATE,COMPANYID|CHECKCOMPANY" OutputFields="ERR,DESCR,REMARK" OutputType="Table" OutputContent="错误码,错误说明,备注"> SELECT CASE WHEN MA008='1' then '1A' WHEN MA008='4' then '1B' WHEN MA001 IS NULL then '1C' END ERR, CASE WHEN MA008='1' then '所使用科目为统驭科目' WHEN MA008='4' then '所使用科目为分类科目' WHEN MA001 IS NULL then '所使用科目不存在科目主档' END DESCR, '凭证单号:'+TB001+'-'+TB002+'-'+TB003+ ' 日期:'+SUBSTRING(TA003,1,4)+'/'+SUBSTRING(TA003,5,2)+'/'+SUBSTRING(TA003,7,2)+ ' 会计科目:'+TB005 AS REMARK FROM $$ACTTB WITH (NOLOCK) LEFT JOIN $$ACTMA WITH (NOLOCK) ON TB005=MA001 LEFT JOIN