东海县建设局网站,建设网站交流,wordpress 显示视频播放,保定seo排名优化第一步 新建一个简单账表加上表头标签 第二步 新建一个过滤框 第三步 修改过滤窗口标识 第四步 注册插件 python代码实现
import clr
clr.AddReference(System)
clr.AddReference(System.Core)
clr.AddReference(Kingdee.BOS)
clr.AddRe…第一步 新建一个简单账表加上表头标签 第二步 新建一个过滤框 第三步 修改过滤窗口标识 第四步 注册插件 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 True;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取数据填充到临时表tableName
def BuilderReportSqlAndTempTable(filter,tableName):dyFilter GetFilter(filter);global sBillDataTempTablesBillDataTempTable 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.FIDT1.FID INNER JOIN T_BD_MATERIAL T3 ON T3.FMATERIALIDT2.FMATERIALID INNER JOIN T_BD_MATERIAL_L T4 ON T4.FMATERIALIDT3.FMASTERID WHERE 11 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();localEidthis.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_idt1.user_type_id WHERE t2.name{0} AND t2.typeu ).format(sBillDataTempTable);RecordData DBUtils.ExecuteDynamicObject(this.Context, sql);for item in RecordData:#隐藏不显示这个字段 FIDENTITYID#不知为什么报表格式会显示格式是 FIDENTITYID,FIDENTITYID (求解答)if item[FName].ToString() str(FIDENTITYID):continueheader.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 typeu).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;#枚举操作
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 hereTableName varchar(50),FBeginDate varchar(50),FEndDate varchar(50),Matter int
AS
BEGIN 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.FIDT1.FID INNER JOIN T_BD_MATERIAL T3 ON T3.FMATERIALIDT2.FMATERIALID INNER JOIN T_BD_MATERIAL_L T4 ON T4.FMATERIALIDT3.FMASTERID WHERE 11 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 ENDAND 1 CASE WHEN ISNULL(Matter,0) 0 THEN 1 ELSE CASE WHEN ISNULL(T3.FMATERIALID,) Matter THEN 1 ELSE 0 END ENDIF OBJECT_ID(TableName,NU) is nullBEGIN--不存在 新增表DECLARE NEWTABLESQL VARCHAR(100)NSELECT * INTO TableName FROM #DATAEXEC(NEWTABLESQL)ENDELSEBEGIN--存在 删除数据表重新插入EXEC(NDROP TABLE TableName)DECLARE UPDATESQL VARCHAR(100)NSELECT * INTO TableName FROM #DATAEXEC(UPDATESQL) ENDSELECT * FROM #DATADROP TABLE #DATA
END
功能实现截图 ***
作者敏蝶老李头 来源金蝶云社区
原文链接传送门
著作权归作者所有。未经允许禁止转载如需转载请联系作者获得授权。
