206 lines
9.2 KiB
Python
206 lines
9.2 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")
|
||
clr.AddReference("ExtensionMethods")
|
||
# clr.AddReference("K3CExttensionMethods")
|
||
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 *
|
||
from ExtensionMethods import BooleanExtension as boolObjEx
|
||
from ExtensionMethods import DateTimeExtension as dateObjEx
|
||
from ExtensionMethods import ObjectExtension as objEx
|
||
from ExtensionMethods import StringExtension as strObjEx
|
||
# from K3CExttensionMethods import ListHeaderExtension as lhObjEx
|
||
|
||
#初始化，在此事件中设置报表的属性全局参数
|
||
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;
|
||
this.ReportProperty.PrimaryKeyFieldName = "FID";
|
||
|
||
#创建临时报表,正式进入账表取数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;
|
||
whereSql = "";
|
||
|
||
_lcId = this.Context.UserLocale.LCID;
|
||
|
||
#raise Exception(str.Join(',',fldsSql));#调试时，可用此行代码，看看构建的动态列SQL对不对
|
||
#组装最终写入报表临时表的SQL
|
||
#注意!!!: 最终临时表一定要有FIDENTITYID ，要从1开始，且不重复 ，不断号，不然前台显示空白!!!!
|
||
sql=("""/*dialect*/
|
||
DECLARE @LCID int
|
||
SET @LCID = {1}
|
||
|
||
SELECT
|
||
ROW_NUMBER() OVER(ORDER BY t0.FDATE DESC,t0.FID DESC,t0e.FSEQ ASC) AS FIDENTITYID--1.行号
|
||
,t0.FID
|
||
,t0e.FSEQ
|
||
,t0e.FENTRYID
|
||
,t0.FDATE --2.单据日期
|
||
,t1.FBILLNO AS 'FPPBOMBILLNO'--3.生产投料单号
|
||
,t1.FID AS 'FPPBOMID'
|
||
,t0e.FSALEORDERNO --4.销售订单号
|
||
,t0.FBILLNO--7.生产任务单号
|
||
,t0e.FPLANSTARTDATE--38.计划开工日期
|
||
,t0e.FPLANFINISHDATE--39.计划完工日期
|
||
,t0e.FQTY--12.产品生产数量
|
||
,t0e.FYIELDRATE
|
||
,t0e.FROUTINGID
|
||
,t0e.FMATERIALID AS 'ProMaterialId'
|
||
,t0e.FUNITID AS 'PrdUnitId'
|
||
,t1e.FENTRYID AS 'PPBOMENTRYID'
|
||
,t1e.FMATERIALID
|
||
,(t1e.FNUMERATOR / t1e.FDENOMINATOR) AS 'FUnitNeedQty' --18.物料单位用量
|
||
,t1e.FNEEDQTY --22.物料总需求
|
||
,t1e.FUNITID
|
||
,t1e.FBOMENTRYID
|
||
,t1e.FSTDQTY --标准用量 --29.标准数量
|
||
,t1e.FMUSTQTY --应发数量 --30.应发数量
|
||
,t1.FWORKSHOPID
|
||
,(CASE t0e.FPRODUCTTYPE WHEN 1 THEN '主产品' WHEN 2 THEN '联产品' WHEN 3 THEN '副产品' ELSE '' END) AS 'PRODUCTTYPE'--43.生产类型
|
||
,(CASE t0e_a.FSTATUS WHEN 6 THEN '已结案'ELSE '' END) AS 'StatusIs6'--45.生产任务单结案否
|
||
,(CASE t1.FDOCUMENTSTATUS WHEN 'A' THEN '创建' WHEN 'B' THEN '审核中' WHEN 'C' THEN '已审核' WHEN 'D' THEN '重新审核' WHEN 'Z' THEN '暂存' ELSE '' END) AS 'PPBOMStatus'--46.生产投料单状态
|
||
INTO #TmpTable0
|
||
FROM T_PRD_MO t0
|
||
INNER JOIN T_PRD_MOENTRY t0e on t0.FID = t0e.FID
|
||
INNER JOIN T_PRD_MOENTRY_A t0e_a on t0e_a.FENTRYID = t0e.FENTRYID
|
||
INNER JOIN T_PRD_PPBOM t1 on t1.FMOENTRYID = t0e.FENTRYID AND t1.FMOID = t0e.FID
|
||
INNER JOIN T_PRD_PPBOMENTRY t1e on t1e.FID = t1.FID
|
||
WHERE 1 = 1 {2}
|
||
SELECT
|
||
tt.*
|
||
,t0e_q.FBASEWIPQTY --23.当前在制品数量
|
||
,t0e_q.FPICKEDQTY --27.已领数量
|
||
,t0e_q.FNOPICKEDQTY --28.未领数量
|
||
,t0e_l.FMEMO --31.备注
|
||
,t0e_q.FPICKEDQTY * (100 - tt.FYIELDRATE) AS 'FLossQty'--32.损耗数量
|
||
,t0e_q.FSCRAPQTY --33.报废数量
|
||
,t0e_q.FREPICKEDQTY --37.补料数量
|
||
,t0e_q.FINVENTORYQTY
|
||
,t0e_c.FSTOCKID
|
||
,t0e_c.FSTOCKLOCID
|
||
INTO #TmpTable1
|
||
FROM #TmpTable0 tt
|
||
LEFT JOIN T_PRD_PPBOMENTRY_Q t0e_q ON t0e_q.FENTRYID = tt.PPBOMENTRYID --生产用料清单数量拆分表
|
||
LEFT JOIN T_PRD_PPBOMENTRY_C t0e_c ON t0e_c.FENTRYID = tt.PPBOMENTRYID
|
||
LEFT JOIN T_PRD_PPBOMENTRY_L t0e_l on t0e_l.FENTRYID = tt.PPBOMENTRYID AND t0e_l.FLOCALEID = @LCID
|
||
|
||
SELECT tt.*
|
||
,t1.FMNEMONICCODE AS 'ProMnemonicCode'--6.助记码
|
||
,t1.FNUMBER AS 'ProNumber'--8.产品编码
|
||
,t1_l.FNAME AS 'ProName'--9.产品名称
|
||
,t1_l.FSPECIFICATION AS 'ProSpecification'--10.产品规格型号
|
||
,t2_l.FNAME AS 'ProUnitName'--11.产品单位
|
||
,t3.FNUMBER AS 'MaterialNumber'--8.物料编码
|
||
,t3_l.FNAME AS 'MaterialName'--9.物料名称
|
||
,t3_l.FSPECIFICATION AS 'MaterialSpecification'--10.物料规格型号
|
||
,t4_l.FNAME AS 'MaterialUnitName'--11.物料单位
|
||
,(CASE t3.FMATERIALSRC WHEN 'A' THEN 'PLM' WHEN 'B' THEN 'ERP' ELSE '' END) AS 'Materialsrc' --15.物料来源
|
||
,t6_l.FNAME AS 'WORKSHOPNAME' --44.生产车间
|
||
,t3.FMASTERID
|
||
,t3.FUSEORGID
|
||
,t7_l.FMEMO AS 'BOMMEMO' --42.BOM备注项
|
||
,t5_l.FNAME AS 'FSTOCKNAME'
|
||
INTO #TmpTable2
|
||
FROM #TmpTable1 tt
|
||
LEFT JOIN T_BD_MATERIAL t1 ON t1.FMATERIALID = tt.ProMaterialId
|
||
LEFT JOIN T_BD_MATERIAL_L t1_l ON t1_l.FMATERIALID = tt.ProMaterialId AND t1_l.FLOCALEID = @LCID
|
||
LEFT JOIN T_BD_UNIT_L t2_l ON t2_l.FUNITID = tt.PrdUnitId AND t2_l.FLOCALEID = @LCID
|
||
LEFT JOIN T_BD_MATERIAL t3 ON t3.FMATERIALID = tt.FMATERIALID
|
||
LEFT JOIN T_BD_MATERIAL_L t3_l ON t3_l.FMATERIALID = tt.FMATERIALID AND t3_l.FLOCALEID = @LCID
|
||
LEFT JOIN T_BD_UNIT_L t4_l ON t4_l.FUNITID = tt.FUNITID AND t4_l.FLOCALEID = @LCID
|
||
LEFT JOIN T_BD_STOCK_L t5_l ON t5_l.FSTOCKID = tt.FSTOCKID AND t5_l.FLOCALEID =@LCID
|
||
LEFT JOIN T_BD_DEPARTMENT_L t6_l on t6_l.FDEPTID = tt.FWORKSHOPID AND t6_l.FLOCALEID = @LCID
|
||
LEFT JOIN T_ENG_BOMCHILD_L t7_l ON t7_l.FENTRYID = tt.FBOMENTRYID AND t7_l.FLOCALEID = @LCID
|
||
SELECT tt.*
|
||
,t1.FBASEQTY
|
||
,t2_l.FNAME AS 'ROUTENAME'
|
||
,t3e_A.FBASEINVQTY
|
||
,t3e.FBASELACKQTY AS 'FBASELACKQTY'--24.欠料
|
||
,t3e_A.FBASEONORDERQTY AS 'FBASEONORDERQTY' --25.物料在途数
|
||
,t3e_A.FPURCHASEQTY --采购在途数量
|
||
,t3e_A.FREQUISITIONQTY --采购申请在途数量
|
||
,6 AS 'LOWEST6'
|
||
,t3e_A.FREQUISITIONQTY - t3e_A.FPURCHASEQTY AS 'PR_C2PO_QTY'
|
||
,0 AS 'ToBeInspectQTY'
|
||
,0 AS 'PlanThrowInQty'
|
||
,'' AS 'PlanThrowInDate'
|
||
,'' AS 'CubicleName'
|
||
,'' AS 'OTHERMEMO'
|
||
INTO {0}
|
||
FROM #TmpTable2 tt
|
||
LEFT JOIN (
|
||
SELECT
|
||
t0.FMATERIALID
|
||
,t0.FSTOCKORGID
|
||
,sum(t0.FBASEQTY) AS FBASEQTY
|
||
FROM
|
||
T_STK_INVENTORY t0
|
||
GROUP BY
|
||
t0.FMATERIALID
|
||
,t0.FSTOCKORGID
|
||
) t1 on t1.FMATERIALID = tt.FMASTERID AND t1.FSTOCKORGID = tt.FUSEORGID
|
||
LEFT JOIN T_ENG_ROUTE_L t2_L on t2_L.FID = tt.FROUTINGID AND t2_L.FLOCALEID = @LCID
|
||
LEFT JOIN T_PRD_PMPPBOMENTRY t3e on t3e.FPPBOMENTRYID = tt.PPBOMENTRYID AND t3e.FMATERIALIDSUB = tt.FMATERIALID --AND t3e.FMATERIALID = t0.FMATERIALID
|
||
LEFT JOIN T_PRD_PMPPBOMENTRY_A t3e_A ON t3e_A.FENTRYID = t3e.FENTRYID
|
||
|
||
DROP TABLE #TmpTable0
|
||
DROP TABLE #TmpTable1
|
||
DROP TABLE #TmpTable2
|
||
""").format(tableName,_lcId,whereSql);
|
||
# raise Exception(sql);#可以通过此方法弹出Sql语句进行调试验证
|
||
DBUtils.Execute(this.Context,sql);#执行SQL，将报表数据写入临时表
|
||
|
||
#构建账表列头
|
||
def GetReportHeaders(rptfilter):
|
||
header = ReportHeader();
|
||
localEid = this.Context.UserLocale.LCID;#获取当前语言环境代码,中文为2052
|
||
|
||
header.AddChild("FBILLNO", LocaleValue("生产任务单号", localEid), 0)
|
||
|
||
return header;
|
||
|
||
#报表关闭触发，通常在此处清理报表过程产生的临时表
|
||
def CloseReport():
|
||
this.DropTempTable(); |