本文描述了一个使用Python和SQL Server存储过程实现金蝶软件简单报表的过程。步骤包括新建账表和过滤框、修改过滤窗口标识、注册插件。Python代码涉及初始化报表属性、获取过滤条件、构建取数SQL和临时表、动态构建报表列和标题、展示数据。SQL存储过程负责查询和构建报表数据。

有用

反馈

第一步 新建一个简单账表加上表头标签

第一步 新建一个简单账表加上表头标签.png

第二步 新建一个过滤框

第二步 新建一个过滤框.png

第三步 修改过滤窗口标识

第三步 修改过滤窗口标识.png

第四步 注册插件

第四步 注册插件.png

python代码实现

import clr
clr.AddReference("System")
clr.AddReference("System.Core")
clr.AddReference("Kingdee.BOS") 
clr.AddReference("Kingdee.BOS.App")
clr.AddReference("Kingdee.BOS.Core")
clr.AddReference("Kingdee.BOS.Contracts")
clr.AddReference("Kingdee.BOS.DataEntity")#引入命名空间from Kingdee.BOS import *from Kingdee.BOS.App import *from Kingdee.BOS.App.Data import *from Kingdee.BOS.Contracts import *from Kingdee.BOS.Contracts.Report import *from Kingdee.BOS.Core.Report.PlugIn import *from Kingdee.BOS.Core.Report import *from Kingdee.BOS.Orm.DataEntity import *from Kingdee.BOS.Util import *from System import *#import datetime#全局变量global sBillDataTempTable;
sBillDataTempTable = "";global _dtDateFrom; #存放开始日期数据global _dtDateTo;#存放结束日期数据global _matter;#存放物料标识数据def Initialize():
   this.ReportProperty.ReportType = ReportType.REPORTTYPE_NORMAL;
   this.ReportProperty.ReportName = LocaleValue("老李头的简单报表示例Python", this.Context.UserLocale.LCID);
   this.ReportProperty.IsGroupSummary = False; #合计分组
   this.ReportProperty.IsUIDesignerColumns = False;   

#获取过滤条件  用于数据源过滤def GetFilter(filter):
  dyFilter = filter.FilterParameter.CustomFilter;  global _dtDateFrom;  global _dtDateTo;  global _matter;  #获取过滤框里的数据
  #GetBaseDataByKey 单选基础资料取值
  #GetMulBaseDataByKey 多选基础资料
  #GetDataByKey 文本，日期 取值
  _dtDateFrom = GetDataByKey(dyFilter, "FBeginDate").ToString() if GetDataByKey(dyFilter, "FBeginDate") != "" else "";
  _dtDateTo = GetDataByKey(dyFilter, "FEndDate").ToString() if GetDataByKey(dyFilter, "FEndDate") != ""  else "";
  _matter = GetBaseDataByKey(dyFilter,"F_MATTER","Id") if GetBaseDataByKey(dyFilter,"F_MATTER","Id") != ""  else "";  return dyFilter;#构造取数Sql，取数据填充到临时表：tableNamedef BuilderReportSqlAndTempTable(filter,tableName):
  dyFilter = GetFilter(filter);  global sBillDataTempTable
  sBillDataTempTable = tableName;
  CreatBillDataTempTable();
  SetDataToRptTable(filter); 
#创建【动态构建列存储过程】数据临时表def CreatBillDataTempTable():
  sql = "";  #数据源设置 使用存储过程后期可以不需要修改代码直接修改存储过程实现动态列展示
  #使用存储过程获取数据参数：临时表名称，开始时间，结束时间，物料标识
  sql =("/*dialect*/ EXEC MindeeSimpleTable '{0}','{1}','{2}','{3}'").format(sBillDataTempTable,_dtDateFrom,_dtDateTo,_matter); 
  #使用SQL语句获取数据
  #sql =("""/*dialect*/SELECT T1.FBILLNO 单据号 ,T2.FQTY 数量 ,T3.FNUMBER 物料代码  ,T4.FNAME 物料名称 ,T4.FDESCRIPTION 描述  ,ROW_NUMBER() OVER(ORDER BY T1.FID,T2.FENTRYID)  FIDENTITYID into {0} FROM  T_PUR_POORDER t1 INNER JOIN T_PUR_POORDERentry t2 ON T2.FID=T1.FID INNER JOIN T_BD_MATERIAL T3 ON T3.FMATERIALID=T2.FMATERIALID INNER JOIN T_BD_MATERIAL_L T4 ON T4.FMATERIALID=T3.FMASTERID WHERE 1=1 AND 1 = CASE WHEN ISNULL('{1}','') = '' THEN 1 ELSE CASE WHEN ISNULL(T1.FDATE,'')  >=  '{1}' THEN 1 ELSE 0 END END AND 1 = CASE WHEN ISNULL('{2}','') = '' THEN 1 ELSE CASE WHEN ISNULL(T1.FDATE,'')  <=  '{2}' THEN 1 ELSE 0 END END""").format(sBillDataTempTable,_dtDateFrom,_dtDateTo);
  DBUtils.ExecuteDynamicObject(this.Context, sql);#动态构建列def GetReportHeaders(filter):
  header = ReportHeader();
  localEid=this.Context.UserLocale.LCID; 
  sql = ("""SELECT T1.system_type_id as FDateTypeId , t3.name AS FDateType,t1.name AS FName FROM sys.columns t1   INNER JOIN sys.objects t2 ON t2.object_id = t1.object_id INNER JOIN sys.types t3 ON t3.user_type_id=t1.user_type_id  WHERE t2.name='{0}' AND  t2.type='u' """).format(sBillDataTempTable);
  RecordData = DBUtils.ExecuteDynamicObject(this.Context, sql);  for item in RecordData:    #隐藏不显示这个字段 FIDENTITYID
    #不知为什么报表格式会显示格式是  FIDENTITYID,FIDENTITYID (求解答)
    if item["FName"].ToString() == str("FIDENTITYID"):      continue
    header.AddChild(item["FName"].ToString(),LocaleValue(item["FName"].ToString(), localEid), GetEnumByValue(SqlStorageType,item["FDateTypeId"].ToString()), True);  return header;#设置报表头def GetReportTitles(filter):
  titles = ReportTitles();  #把过滤框的日期放到报表头
  titles.AddTitle("FBeginDate", str(filter.FilterParameter.CustomFilter["FBeginDate"]));
  titles.AddTitle("FEndDate", str(filter.FilterParameter.CustomFilter["FEndDate"]));  return titles;#展示数据表到前台def SetDataToRptTable(filter):
  sqlstr=("SELECT * FROM {0}").format(sBillDataTempTable);
  sqlstr2=("SELECT COUNT(*) AS Frow FROM sys.objects WHERE name='{0}' AND type='u'").format(sBillDataTempTable);
  ROWS = DBUtils.ExecuteDynamicObject(this.Context,sqlstr2);  if str(ROWS[0]["Frow"]) != "0":
     DBUtils.Execute(this.Context, sqlstr); 

#获取DynamicObject数据包中指定key的值def GetDataByKey(doFilter, sKey):
  sReturnValue = "";  if doFilter is not None and doFilter[sKey] is not None and len(str(doFilter[sKey])) > 0:
    sReturnValue = doFilter[sKey].ToString();  return sReturnValue;#获取DynamicObject数据包中指定key的基础资料的指定属性的值def GetBaseDataByKey(doFilter,sKey,sItem):
  sReturnValue="";  if doFilter is not None and doFilter[sKey] is not None and len(str(doFilter[sKey])) > 0:
    doTemp = doFilter[sKey];
    sReturnValue = doTemp[sItem].ToString();  return sReturnValue;#获取DynamicObject数据包中指定key的基础资料的指定属性的值def GetMulBaseDataByKey(doFilter,sKey,sItem):
  sReturnValue = "";  if doFilter is not None and doFilter[sKey] is not None and len(str(doFilter[sKey])) > 0:    for item in doFilter[sKey]:      if len(str(GetBaseDataByKey(item,sKey,sItem)))>0:
        sReturnValue = "{0}{1}".format(sReturnValue, GetBaseDataByKey(item,sKey,sItem)+",");  return sReturnValue.TrimEnd(',') #replace()代替C# TrimEnd(',')函数#枚举操作def GetEnumByValue(enumType,value):
  return Enum.Parse(enumType, value);

SQLSERVER 存储过程

-- =============================================-- Author:		敏蝶老李头-- Create date: 2023-04-11-- Description:	简单报表演示-- =============================================ALTER PROCEDURE [dbo].[MindeeSimpleTable]	-- Add the parameters for the stored procedure here
	@TableName varchar(50),
	@FBeginDate varchar(50),
	@FEndDate varchar(50),
	@Matter intASBEGIN 

	SELECT T1.FBILLNO 单据号 ,T2.FQTY 数量 ,T3.FNUMBER 物料代码  ,T4.FNAME 物料名称 ,T4.FDESCRIPTION 描述  
	,ROW_NUMBER() OVER(ORDER BY T1.FID,T2.FENTRYID)  FIDENTITYID 
	INTO #DATA FROM  T_PUR_POORDER t1 
	INNER JOIN T_PUR_POORDERentry t2 ON T2.FID=T1.FID 
	INNER JOIN T_BD_MATERIAL T3 ON T3.FMATERIALID=T2.FMATERIALID 
	INNER JOIN T_BD_MATERIAL_L T4 ON T4.FMATERIALID=T3.FMASTERID 
	WHERE 1=1 
	AND 1 = CASE WHEN ISNULL(@FBeginDate,'') = '' THEN 1 ELSE CASE WHEN ISNULL(T1.FDATE,'')  >=  @FBeginDate THEN 1 ELSE 0 END END 
	AND 1 = CASE WHEN ISNULL(@FEndDate,'') = '' THEN 1 ELSE CASE WHEN ISNULL(T1.FDATE,'')  <=  @FEndDate THEN 1 ELSE 0 END END
	AND 1 = CASE WHEN ISNULL(@Matter,0) = 0 THEN 1 ELSE CASE WHEN ISNULL(T3.FMATERIALID,'')  =  @Matter THEN 1 ELSE 0 END END--多选基础资料参考--AND 1 = CASE WHEN ISNULL(@Matter,'') = '' THEN 1 ELSE CASE WHEN T3.FMATERIALID in ( select FID from  dbo.fn_StrSplit(@Matter, ',')   )THEN 1 ELSE 0 END END 
	 IF OBJECT_ID(@TableName,N'U') is  null
 BEGIN
 --不存在 新增表
 DECLARE @NEWTABLESQL VARCHAR(100)=N'SELECT * INTO '+@TableName+' FROM #DATA'
 EXEC(@NEWTABLESQL) END
 ELSE
 BEGIN
 --存在 删除数据表重新插入
 EXEC(N'DROP TABLE '+ @TableName+'') DECLARE @UPDATESQL VARCHAR(100)=N'SELECT * INTO '+@TableName+' FROM #DATA'
 EXEC(@UPDATESQL) 
 END
 SELECT * FROM #DATADROP TABLE #DATAEND

功能实现截图

image.png


https://vip.kingdee.com/article/433709738048508160?productLineId=1&lang=zh-CN

标签: none

添加新评论