182 lines
8.8 KiB
Python
182 lines
8.8 KiB
Python
import clr
|
||
clr.AddReference("System")
|
||
clr.AddReference("Kingdee.BOS")
|
||
clr.AddReference("Kingdee.BOS.Core")
|
||
clr.AddReference("Kingdee.BOS.DataEntity")
|
||
clr.AddReference("Kingdee.BOS.App")
|
||
clr.AddReference("Kingdee.BOS.Contracts")
|
||
clr.AddReference("Kingdee.BOS.ServiceHelper")
|
||
from Kingdee.BOS import*
|
||
from Kingdee.BOS.Contracts import*
|
||
from Kingdee.BOS.Contracts.Report import*
|
||
from Kingdee.BOS.Core import *
|
||
from Kingdee.BOS.Core.Metadata import *
|
||
from Kingdee.BOS.Core.Report import*
|
||
from Kingdee.BOS.Core.SqlBuilder import*
|
||
from Kingdee.BOS.Core.Enums import *
|
||
from Kingdee.BOS.App.Data import*
|
||
from Kingdee.BOS.Orm.DataEntity import*
|
||
from System import*
|
||
from System.ComponentModel import*
|
||
from System.Collections.Generic import*
|
||
from System.Text import*
|
||
from System.Threading.Tasks import*
|
||
from Kingdee.BOS.ServiceHelper import *
|
||
#初始化，在此事件中设置报表的属性全局参数
|
||
def Initialize():
|
||
this.ReportProperty.ReportType=ReportType.REPORTTYPE_NORMAL;
|
||
this.IsCreateTempTableByPlugin=True;
|
||
#是否支持分组汇总,在后面GetSummaryColumnInfo方法中添加汇总字段,
|
||
#要在BOS中过滤框的汇总页签配置汇总信息,可参考:简单账表分组汇总设置
|
||
this.ReportProperty.IsGroupSummary=True;
|
||
#IsUIDesignerColumns=False,表示报表的列通过插件控制,后续在GetReportHeaders中构建列头
|
||
#需要在BOS过滤框的显示隐藏列中维护,字段标识与临时表字段保持一致
|
||
#账表列头构建更多详细说明参考:账表列构建
|
||
this.ReportProperty.IsUIDesignerColumns=False;
|
||
|
||
#创建临时报表,正式进入账表取数sql拼接并取数，把账表取数结果放到创建的临时表中
|
||
#如果参数(this.IsCreateTempTableByPlugin=True)，即调用BuilderReportSqlAndTempTable构建临时表
|
||
#否则调用以下3个接口，完成账表取数逻辑的sql指令即：BuilderSelectFieldSQL、BuilderTempTableOrderBySQL、BuilderFormWhereSQL
|
||
#rptfilter:账表参数，可以从这里获取过滤条件等
|
||
#tableName:系统自动创建的账表临时表名，具备唯一性，最终报表页面展示的数据绑定此临时表，所以最终的报表结果数据要写入此临时表中
|
||
def BuilderReportSqlAndTempTable(rptfilter,tableName):
|
||
#baseDataTemp=filter.BaseDataTempTable;#基础资料临时表;若设置了数据范围权限，该表会把根据数据范围过滤出来的内码存入临时表；
|
||
#循环获取所有基础资料数据范围的数据，可用来拼接到报表SQL里面实现数据权限过滤
|
||
#for b in baseDataTemp:
|
||
# baseType=b.BaseDataFormId;#基础资料FormId
|
||
# PKFldName=b.PKFieldName;#临时表中基础资料主键字段名,例如,FORGID
|
||
# baseTempTab=b.TempTable;#基础资料数据范围临时表名
|
||
#filterStr=filter.FilterParameter.FilterString;#过滤框条件页签过滤表达式
|
||
#过滤框快捷过滤页签的实体数据包，从这里面获取自定义的过滤字段值
|
||
#DynamicObject类型,用前面讲的实体数据包操作方式取值，用绑定实体属性标识
|
||
custFilter = rptfilter.FilterParameter.CustomFilter;
|
||
if(custFilter==None):
|
||
return;
|
||
orgObj=custFilter["F_BPW_OrgId"];#获取组织
|
||
whereOrgs="";
|
||
if(orgObj != None):
|
||
orgId=("{0}").format(orgObj["Id"]);#组织ID
|
||
whereOrgs=(" and a.FPURCHASEORGID in ({0}) ").format(orgId);#选择了组织，拼接组织过滤
|
||
materials=custFilter["F_BPW_Materials"];#物料多选过滤
|
||
matList=List[str]();
|
||
if(materials != None):
|
||
for m in materials:
|
||
materialNum="'"+str(m["F_BPW_Materials"]["Number"])+"'";#取出过滤框选择的多个物料编码
|
||
matList.Add(materialNum);
|
||
whereMat=(" and m.FNumber in ({0})").format(str.Join(",",matList)) if(matList.Count>0) else "";#拼接物料多选过滤
|
||
beginDate=str(custFilter["F_BPW_BeginDate"]);#获取开始日期
|
||
EndDate=str(custFilter["F_BPW_EndDate"]);#获取结束日期
|
||
beginDate=str(DateTime.Parse(("{0}").format(beginDate)).AddDays(-1));#开始日期的前一天
|
||
itemDate=beginDate;
|
||
fldsSql=List[str]();#动态列头SQL,相当于Select后面的部分字段是动态拼接的，以此来实现动态列
|
||
#从开始日期起，循环加1天，一直到结束日期，过滤界面要控制录入的开始日期必须<结束日期,在过滤界面注册表单插件即可实现
|
||
while(itemDate != EndDate):
|
||
myDate=DateTime.Parse(("{0}").format(itemDate));
|
||
fldKey=("F{0}_{1}_{2}").format(myDate.Year,myDate.Month,myDate.Day);#根据每个日期构建唯一的列名
|
||
ss=("{0}=SUM(Case when a.FDATE='{1}' then b.FQty else 0 end)").format(fldKey,myDate);#构建每天订单数量合计SQL
|
||
fldsSql.Add(ss);#将SQL添加到动态列SQL集合中备用
|
||
nextDate=myDate.AddDays(1);
|
||
itemDate=str(nextDate);#迭代+1天
|
||
myDate=DateTime.Parse(("{0}").format(itemDate));#这里是选择的截止日期，由于循环到最后一天跳出了，这里补充一天的数据
|
||
fldKey=("F{0}_{1}_{2}").format(myDate.Year,myDate.Month,myDate.Day);
|
||
ss=("{0}=SUM(Case when a.FDATE='{1}' then b.FQty else 0 end)").format(fldKey,myDate);
|
||
fldsSql.Add(ss);#将SQL添加到动态列SQL集合中备用
|
||
#raise Exception(str.Join(',',fldsSql));#调试时，可用此行代码，看看构建的动态列SQL对不对
|
||
#组装最终写入报表临时表的SQL
|
||
#注意!!!: 最终临时表一定要有FIDENTITYID ，要从1开始，且不重复 ，不断号，不然前台显示空白!!!!
|
||
sql=("""/*dialect*/?select row_Number() Over(order by a.orgName,a.MaterialNum) FIDENTITYID, a.*
|
||
into {0}
|
||
from
|
||
(select orgL.FNAME orgName,m.FNUMBER MaterialNum,mL.FNAME materialName,mL.FSPECIFICATION SpecNum,unitL.FNAME unit,
|
||
{1}
|
||
from t_PUR_POOrder a
|
||
inner join T_ORG_ORGANIZATIONS org on org.FORGID=a.FPURCHASEORGID
|
||
inner join T_ORG_ORGANIZATIONS_L orgL on orgL.FORGID=org.FORGID and orgL.FLOCALEID=2052
|
||
inner join t_PUR_POOrderEntry b on a.FID=b.FID
|
||
inner join T_BD_MATERIAL m on m.FMATERIALID=b.FMATERIALID
|
||
inner join T_BD_MATERIAL_L mL on mL.FMATERIALID=m.FMATERIALID and mL.FLOCALEID=2052
|
||
inner Join T_BD_UNIT_L unitL on unitL.FUNITID=b.FUNITID and unitL.FLOCALEID=2052
|
||
where a.FDATE>='{3}' and a.FDATE<='{4}' {2} {5}
|
||
group by orgL.FNAME,m.FNUMBER,mL.FNAME,mL.FSPECIFICATION,unitL.FNAME
|
||
) a
|
||
""").format(tableName,str.Join(',',fldsSql),whereOrgs,beginDate,EndDate,whereMat);
|
||
#raise Exception(sql);#可以通过此方法弹出Sql语句进行调试验证
|
||
DBUtils.Execute(this.Context,sql);#执行SQL，将报表数据写入临时表
|
||
|
||
#构建账表列头
|
||
def GetReportHeaders(Filter):
|
||
header=ReportHeader();
|
||
localEid=this.Context.UserLocale.LCID;#获取当前语言环境代码,中文为2052
|
||
header.AddChild("orgName",LocaleValue("采购组织",localEid));#字段名,列头标题,字段名与临时表中的字段名保持对应，相当于每一个列头对应临时表的哪个字段
|
||
header.AddChild("MaterialNum",LocaleValue("物料编码",localEid));
|
||
header.AddChild("materialName",LocaleValue("物料名称",localEid));
|
||
header.AddChild("SpecNum",LocaleValue("规格型号",localEid));
|
||
header.AddChild("unit",LocaleValue("采购单位",localEid));
|
||
|
||
#下面根据过滤条件选择的日期区间，动态构建列头,和上面构建SQL字段的逻辑类似
|
||
custFilter = Filter.FilterParameter.CustomFilter;
|
||
beginDate=str(custFilter["F_BPW_BeginDate"]);#获取开始日期
|
||
EndDate=str(custFilter["F_BPW_EndDate"]);#获取结束日期
|
||
itemDate=beginDate;
|
||
fldsSql=List[str]();
|
||
while(itemDate != EndDate):
|
||
myDate=DateTime.Parse(("{0}").format(itemDate));
|
||
fldKey=("F{0}_{1}_{2}").format(myDate.Year,myDate.Month,myDate.Day);#这里的字段名要和前面构建的SQL字段对应
|
||
header.AddChild(fldKey,LocaleValue(str(("{0}-{1}-{2}").format(myDate.Year,myDate.Month,myDate.Day)),localEid),SqlStorageType.SqlDecimal);
|
||
nextDate=myDate.AddDays(1);
|
||
itemDate=str(nextDate);
|
||
myDate=DateTime.Parse(("{0}").format(itemDate));
|
||
fldKey=("F{0}_{1}_{2}").format(myDate.Year,myDate.Month,myDate.Day);#这里的字段名要和前面构建的SQL字段对应
|
||
header.AddChild(fldKey,LocaleValue(str(("{0}-{1}-{2}").format(myDate.Year,myDate.Month,myDate.Day)),localEid),SqlStorageType.SqlDecimal);
|
||
#设置列的索引，使其可以按照以上列头构建的顺序显示
|
||
colIndex=0;
|
||
for child in header.GetChilds():
|
||
if(child.GetChildCount()==0):
|
||
child.ColIndex=colIndex;
|
||
colIndex=colIndex+1;
|
||
else:
|
||
child.ColIndex = colIndex;
|
||
colIndex=colIndex+1;
|
||
for childHeader in child.GetChilds():
|
||
childHeader.ColIndex=colIndex;
|
||
colIndex=colIndex+1;
|
||
return header;
|
||
|
||
#设置报表表头字段值
|
||
#这里主要是把过滤框设置的字段值，显示到报表表头
|
||
def GetReportTitles(Filter):
|
||
reportTitles=ReportTitles();
|
||
custFilter=Filter.FilterParameter.CustomFilter;#获取过滤框的数据包
|
||
orgObj=custFilter["F_BPW_OrgId"];#获取组织
|
||
beginDate=str(custFilter["F_BPW_BeginDate"]);#获取开始日期
|
||
EndDate=str(custFilter["F_BPW_EndDate"]);#获取结束日期
|
||
if(orgObj != None):
|
||
reportTitles.AddTitle("F_BPW_OrgId", orgObj["Name"]);
|
||
reportTitles.AddTitle("F_BPW_BeginDate", beginDate);
|
||
reportTitles.AddTitle("F_BPW_EndDate", EndDate);
|
||
return reportTitles;
|
||
|
||
#设置报表底部合计列
|
||
def GetSummaryColumnInfo(rptfilter):
|
||
result=List[SummaryField]();
|
||
#由于这里的数量字段是动态构建的，所以也需要动态添加合计列,字段名与前面保持一致
|
||
custFilter = rptfilter.FilterParameter.CustomFilter;
|
||
beginDate=str(custFilter["F_BPW_BeginDate"]);#获取开始日期
|
||
EndDate=str(custFilter["F_BPW_EndDate"]);#获取结束日期
|
||
itemDate=beginDate;
|
||
fldsSql=List[str]();
|
||
while(itemDate != EndDate):
|
||
myDate=DateTime.Parse(("{0}").format(itemDate));
|
||
fldKey=("F{0}_{1}_{2}").format(myDate.Year,myDate.Month,myDate.Day);#这里的字段名要和前面构建的SQL字段对应
|
||
result.Add(SummaryField(fldKey,BOSEnums.Enu_SummaryType.SUM));
|
||
nextDate=myDate.AddDays(1);
|
||
itemDate=str(nextDate);
|
||
myDate=DateTime.Parse(("{0}").format(itemDate));
|
||
fldKey=("F{0}_{1}_{2}").format(myDate.Year,myDate.Month,myDate.Day);
|
||
result.Add(SummaryField(fldKey,BOSEnums.Enu_SummaryType.SUM));
|
||
return result;
|
||
|
||
#报表关闭触发，通常在此处清理报表过程产生的临时表
|
||
def CloseReport():
|
||
this.DropTempTable();
|