【金蝶K3Cloud】 Python套打插件開發記錄

背景

費用報銷單分錄的報銷未付款金額，客戶需要打印出來一個匯總，不顯示單據體。

 

1，拖一個金額字段冗余在單據頭。

2，套打里面吧這個字段設置到對應的打印位置。

3，掛插件

 

#-*- coding: utf-8 -*-
import clr
clr.AddReference("System")
clr.AddReference("System.Core")
clr.AddReference("Kingdee.BOS")
clr.AddReference("Kingdee.BOS.Core")
clr.AddReference("Kingdee.BOS.DataEntity")
clr.AddReference("Kingdee.BOS.ServiceHelper")
import sys
from System import *
from System.Collections.Generic import *
from System.Threading import *
from Kingdee.BOS.Log import *
from Kingdee.BOS.Core.Log import *
from Kingdee.BOS.Core import *
from Kingdee.BOS.Core.DynamicForm import *
from Kingdee.BOS.KDThread import *
from Kingdee.BOS.DataEntity import *
from Kingdee.BOS.Orm.DataEntity import *
from Kingdee.BOS.ServiceHelper import * 
from Kingdee.BOS.Core.Metadata import SelectorItemInfo ##字段選擇實體類
from Kingdee.BOS.Core.SqlBuilder import QueryBuilderParemeter ##查詢參數實體類
#修改默認編碼為utf8
reload(sys)
sys.setdefaultencoding('utf-8') 

def OnPrepareNotePrintData(e):
    if e.DataSourceId == "FBillHead":
        # 獲取到單據頭的數據包
        qureyObjs = e.DataObjects
        # 獲取數據包行數
        _count =  e.DataObjects.Count
        # 獲取到單據頭的數據包類型
        DevDynamicTypy = qureyObjs[0].DynamicObjectType
        # 是否需要注冊字段
        IsNeedReg = True
        for p in DevDynamicTypy.Properties:
            if str(p.Name).lower() == "F_Dev_ReimbNotPaySum".lower():
                IsNeedReg = False
        # 如果需要注冊字段就注冊字段
        if IsNeedReg:
            #注冊一個F_PAEZ_Amount字段
            DevDynamicTypy.RegisterSimpleProperty("F_Dev_ReimbNotPaySum", str,None,False,[])
        # 循環把數據包的數據賦值回去。
        for i in range(0,_count):
            # 創建一個新的數據包
            obj = DynamicObject(DevDynamicTypy)
            # 把舊數據包的值全部給新數據包
            for p in qureyObjs[0].DynamicObjectType.Properties:
                obj[p] = e.DataObjects[0][p]
            # 查詢出未付款金額
            sql = "/*dialect*/select CAST(SUM(FREIMBNOTPAYAMOUNT) AS DECIMAL(18,2)) as FREIMBNOTPAYAMOUNT from t_ER_ExpenseReimbEntry where fid = " + str(qureyObjs[0][0])
            dyc = DBServiceHelper.ExecuteDynamicObject(this.Context, sql)
            if dyc != None:
                Amount = dyc[0][0]
                # 把未付款金額的數據給OBJ數據包
                obj["F_Dev_ReimbNotPaySum"] = Amount;
            # 最后用新的數據包來替換舊的數據包
            e.DataObjects[i] = obj

 

4，套打使用GetValue("F_PAEZ_Amount") 

5，完成