下推其他出库单携带仓管员和库存组原创
金蝶云社区-邱育华
邱育华
5人赞赏了该文章 299次浏览 未经作者许可,禁止转载编辑于2023年01月10日 17:50:40

一、【业务需求】

给仓库员设置了默认库存组,其他出库单手工新增时有携带库存组,从出库单申请下推时没有携带,下推需要实现和新增的自动携带效果。


二、【分析实现】

import clr 
clr.AddReference("System")
clr.AddReference("Kingdee.BOS")
clr.AddReference("Kingdee.BOS.Core")
clr.AddReference("Kingdee.K3.SCM.Stock.Business.PlugIn")

from System import *
from System import StringComparison
from Kingdee.BOS.Core.Bill import *
from Kingdee.BOS.Core.DynamicForm import *
from Kingdee.BOS.Core.Metadata import *
from Kingdee.K3.SCM.Stock.Business.PlugIn import *

def AfterCreateModelData(e):
    if this.View.OpenParameter.Status == OperationStatus.ADDNEW:
        if this.View.OpenParameter.CreateFrom == CreateFrom.Push:
            orgId = SCMCommon.GetBaseDataLongValue(this, "FStockOrgId");
            SCMCommon.SetOpertorIdByUserId(this, "FStockerId", OperatorTypeConst.WARER, orgId)
            Common.SetGroupValue(this, "FStockerId", "FStockerGroupId", "WHY")


image.png

image.png


赞 5