Develop/GateDge2023_ljy
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

a

Browse Source
This commit is contained in:
PastSaid
2025-01-01 08:21:58 +08:00
parent 9725ab5376
commit 3d15fd4b7e
59 changed files with 3013 additions and 1324 deletions
Download Patch File Download Diff File Expand all files Collapse all files

175
14.宝锐/GZ.LJY000.Biori/STK_MisDelivery/OperationEventPlugInEx.cs
View File

@@ -12,17 +12,27 @@ using System.Text;
namespace GZ.LJY000.Biori.STK_MisDelivery
{
[HotUpdate, Description("其他出库单服务操作插件")]
[HotUpdate, Description("其他出库单服务操作插件#")]
public class OperationEventPlugInEx : AbstractOperationServicePlugIn
{
public override void OnPreparePropertys(PreparePropertysEventArgs e)
{
base.OnPreparePropertys(e);
#region base
e.FieldKeys.Add("FStockDirect");
#endregion
#region item
e.FieldKeys.Add("FSeq");
e.FieldKeys.Add("FPackBillNo");
e.FieldKeys.Add("FPackBillSeq");
e.FieldKeys.Add("FPackBillEntryId");
//e.FieldKeys.Add("FPackBillSeq");
//e.FieldKeys.Add("FPackBillEntryId");
e.FieldKeys.Add("FPackBarCode"); //套件码
e.FieldKeys.Add("FQty");
e.FieldKeys.Add("F_QJCG_Assistant1"); //检料类型
//e.FieldKeys.Add("FRowType");
#endregion
}
public override void OnAddValidators(AddValidatorsEventArgs e)
@@ -30,17 +40,15 @@ namespace GZ.LJY000.Biori.STK_MisDelivery
base.OnAddValidators(e);
if (this.FormOperation.OperationId == 1)
{
//添加检查校验器：
var validator = new VaildatorEventPlugInEx();//新增的校验器
validator.EntityKey = "FEntity";
e.Validators.Add(validator);//添加校验器
////添加检查校验器：
//var validator = new VaildatorEventPlugInEx();//新增的校验器
//validator.EntityKey = "FEntity";
//e.Validators.Add(validator);//添加校验器
}
}
public override void EndOperationTransaction(EndOperationTransactionArgs e)
{
base.EndOperationTransaction(e);
//保存8 提交9 审核1 反审核26 删除3
if (this.FormOperation.OperationId == 1)
{
@@ -50,6 +58,7 @@ namespace GZ.LJY000.Biori.STK_MisDelivery
{
DoComputePackgeQty(e.DataEntitys, true);
}
base.EndOperationTransaction(e);
}
/// <summary>
@@ -60,29 +69,34 @@ namespace GZ.LJY000.Biori.STK_MisDelivery
private void DoComputePackgeQty(DynamicObject[] dataEntitys, bool isInStock)
{
var dataEntityList = new List<DynamicObject>();
var sqlL = new Dictionary<string, string>();
var sqlL = new List<string>();
//# ! 装管公式(毫升)：管数 = 数量 / 装管量(ml) / 1.05
//# ! 装管公式(微升)：管数 = 数量 / 装管量(ml) / 1000 / 1.05
foreach (var data in dataEntitys)
{
var stockDirect = data["StockDirect"].ToString();
foreach (var item in data["BillEntry"] as DynamicObjectCollection)
{
var packBillNo = item["FPackBillNo"].ToString();
//var packBillEntryId = item["FPackBillEntryId"].ToString();
var materialId = item["MaterialId_Id"].Long2Int();
if (!packBillNo.IsNullOrEmpty())
{
if (sqlL.ContainsKey(packBillNo))
continue;
sqlL.Add(packBillNo, $" SELECT '{packBillNo}' AS FBILLNO , {item["Qty"]} AS QTY ");
var fylck = item["F_QJCG_Assistant1_Id"].ToString().Equals("63876e213ea87e");
var minus = stockDirect == "RETNRU" ? -1 : 1;
minus = minus * (isInStock ? -1 : 1);
sqlL.Add($" SELECT '{packBillNo}' AS FBILLNO,{materialId} FMATERIALID, {item["Qty"]} * {minus} AS QTY ,{(fylck ? 1 : 0)} FYLCK");
}
}
}
if (isInStock)
DoComputePackgeInStockQty(sqlL.Values.ToList());
DoComputePackgeInStockQty(sqlL);
else
DoComputePackgeOutStockQty(sqlL.Values.ToList());
DoComputePackgeOutStockQty(sqlL);
}
/// <summary>
@@ -93,22 +107,80 @@ namespace GZ.LJY000.Biori.STK_MisDelivery
{
if (sqlL.Any())
{
var updHeadSql = $@"/*dialect*/
WITH #基础数据 AS (
{string.Join(" UNION ALL ", sqlL)}
)
, #关联数据 AS (
SELECT t0.FBILLNO,t0e.FEntryID,t0e.FID
,t0.FQTY AS 'PQty'
,(t0e.FQTY - t0e.FFYLQTY)/ t2e.FNUMERATOR * t2e.FDENOMINATOR AS '父项数量'
,(t6.QTY)/ t2e.FNUMERATOR * t2e.FDENOMINATOR * t5.F_UNITIDHS AS '实际出库父项数量'
,(t0e.FFYLQTY) /t2e.FNUMERATOR * t2e.FDENOMINATOR AS '富余量'
,t0.FOUTSTOCKQTY
,t0e.FQTY
,t0e.FZGSQTY,t0e.FGZLQty
,t0e.FFYLQTY
,t2e.FNUMERATOR,t2e.FDENOMINATOR
,t5.F_UNITIDHS
,t6.FYLCK
,ROW_NUMBER() OVER (PARTITION BY t0.FID ORDER BY t0e.FENTRYID) RN
FROM T_PRD_PACKAGEINSTOCK t0
INNER JOIN T_PRD_PACKAGEINSTOCKENTRY t0e on t0.FID = t0e.FID
INNER JOIN T_ENG_BOM t2 on t2.FID = t0.FBOMID
INNER JOIN T_ENG_BOMCHILD t2e on t2e.FID = t2.FID AND t2e.FMATERIALID = t0e.FMATERIALID
INNER JOIN T_BD_MATERIAL t5 on t5.FMATERIALID = t0e.FMATERIALID
INNER JOIN #基础数据 t6 on t6.FENTRYID = t0e.FEntryID
WHERE 1 = 1
)
UPDATE t1 SET t1.FQTY = t1.FQTY + t0.实际出库父项数量
,t1.FOUTSTOCKQTY = t1.FOUTSTOCKQTY - t0.实际出库父项数量
FROM #关联数据 t0
INNER JOIN T_PRD_PACKAGEINSTOCK t1 on t1.FID = t0.FID
CROSS APPLY (
SELECT COUNT(1) bQty
FROM #关联数据 t2
WHERE t2.FID = t0.FID
GROUP BY t2.FID
HAVING AVG(t2.实际出库父项数量) = t0.实际出库父项数量
) t2
CROSS APPLY (
SELECT COUNT(1) AS dQty
FROM T_PRD_PACKAGEINSTOCKENTRY t4e
WHERE t4e.FID = t0.FID
GROUP BY t4e.FID
) t4
WHERE t2.bQty = t4.dQty
AND t0.FYLCK = 0
AND t0.RN = 1
";
//var res = DBUtils.Execute(this.Context, updHeadSql);
var updSqlL = $@"/*dialect*/
WITH #基础数据 AS (
{string.Join(" UNION ALL ", sqlL)}
)
UPDATE t0 SET t0.FQTY = t0.FQTY + t1.QTY
,t0.FOUTSTOCKQTY = t0.FOUTSTOCKQTY - t1.QTY
, #汇总数据 AS (
SELECT t0.BillNo,t0.FMATERIALID,SUM(t0.Qty) Qty
FROM #基础数据 t0
GROUP BY t0.BillNo,t0.FMATERIALID
)
--SELECT t0.FBILLNO,t1.FMATERIALID,t1.Qty * t0e.FQTY / t2.总数量,t3.F_UNITIDHS
UPDATE t0e SET t0e.FQTY = t0e.FQTY + (t1.Qty * t0e.FQTY / t2.总数量 * t3.F_UNITIDHS)
FROM T_PRD_PACKAGEINSTOCK t0
INNER JOIN #基础数据 t1 on t1.FBILLNO = t0.FBILLNO
WHERE 1 = 1
AND t0.FDOCUMENTSTATUS = 'C'
INNER JOIN T_PRD_PACKAGEINSTOCKENTRY t0e on t0e.FID = t0.FID
INNER JOIN #汇总数据 t1 on t1.BillNo = t0.FBILLNO AND t0e.FMATERIALID = t1.FMATERIALID
CROSS APPLY (
SELECT SUM(t2e.FQTY) AS '总数量'
FROM T_PRD_PACKAGEINSTOCKENTRY t2e
WHERE t2e.FID = t0e.FID AND t2e.FMATERIALID = t0e.FMATERIALID
) t2
INNER JOIN T_BD_MATERIAL t3 on t3.FMATERIALID = t0e.FMATERIALID
";
//更新组装单信
var resData = DBUtils.Execute(this.Context, updSqlL);
//var resData = DBUtils.Execute(this.Context, updSqlL);
return;
}
}
@@ -121,23 +193,72 @@ WHERE 1 = 1
{
if (sqlL.Any())
{
var updHeadSql = $@"/*dialect*/
WITH #基础数据 AS (
{string.Join(" UNION ALL ", sqlL)}
)
, #关联数据 AS (
SELECT t0.FBILLNO,t0e.FEntryID,t0e.FID
,t0.FQTY AS 'PQty'
,(t0e.FQTY - t0e.FFYLQTY)/ t2e.FNUMERATOR * t2e.FDENOMINATOR AS '父项数量'
,(t6.QTY)/ t2e.FNUMERATOR * t2e.FDENOMINATOR * t5.F_UNITIDHS AS '实际出库父项数量'
,(t0e.FFYLQTY) /t2e.FNUMERATOR * t2e.FDENOMINATOR AS '富余量'
,t0.FOUTSTOCKQTY
,t0e.FQTY
,t0e.FZGSQTY,t0e.FGZLQty
,t0e.FFYLQTY
,t2e.FNUMERATOR,t2e.FDENOMINATOR
,t5.F_UNITIDHS
,t6.FYLCK
,ROW_NUMBER() OVER (PARTITION BY t0.FID ORDER BY t0e.FENTRYID) RN
FROM T_PRD_PACKAGEINSTOCK t0
INNER JOIN T_PRD_PACKAGEINSTOCKENTRY t0e on t0.FID = t0e.FID
INNER JOIN T_ENG_BOM t2 on t2.FID = t0.FBOMID
INNER JOIN T_ENG_BOMCHILD t2e on t2e.FID = t2.FID AND t2e.FMATERIALID = t0e.FMATERIALID
INNER JOIN T_BD_MATERIAL t5 on t5.FMATERIALID = t0e.FMATERIALID
INNER JOIN #基础数据 t6 on t6.FENTRYID = t0e.FEntryID
WHERE 1 = 1
)
UPDATE t1 SET t1.FQTY = t1.FQTY - t0.实际出库父项数量
,t1.FOUTSTOCKQTY = t1.FOUTSTOCKQTY + t0.实际出库父项数量
FROM #关联数据 t0
INNER JOIN T_PRD_PACKAGEINSTOCK t1 on t1.FID = t0.FID
CROSS APPLY (
SELECT COUNT(1) bQty
FROM #关联数据 t2
WHERE t2.FID = t0.FID
GROUP BY t2.FID
HAVING AVG(t2.实际出库父项数量) = t0.实际出库父项数量
) t2
CROSS APPLY (
SELECT COUNT(1) AS dQty
FROM T_PRD_PACKAGEINSTOCKENTRY t4e
WHERE t4e.FID = t0.FID
GROUP BY t4e.FID
) t4
WHERE t2.bQty = t4.dQty
AND t0.FYLCK = 0
AND t0.RN = 1
";
//var res = DBUtils.Execute(this.Context, updHeadSql);
var updSqlL = $@"/*dialect*/
WITH #基础数据 AS (
{string.Join(" UNION ALL ", sqlL)}
)
UPDATE t0 SET t0.FQTY = t0.FQTY - t1.QTY
,t0.FOUTSTOCKQTY = t0.FOUTSTOCKQTY + t1.QTY
FROM T_PRD_PACKAGEINSTOCK t0
INNER JOIN #基础数据 t1 on t1.FBILLNO = t0.FBILLNO
UPDATE t0e SET t0e.FQTY = t0e.FQTY - (tt.QTY * t1.F_UNITIDHS)
FROM #基础数据 tt
INNER JOIN T_PRD_PACKAGEINSTOCK t0 on t0.FBILLNO = tt.BillNo
INNER JOIN T_PRD_PACKAGEINSTOCKENTRY t0e on tt.FENTRYID = t0e.FEntryID
INNER JOIN T_BD_MATERIAL t1 on t1.FMATERIALID = t0e.FMATERIALID
WHERE 1 = 1
AND t0.FDOCUMENTSTATUS = 'C'
AND (t0.FQTY - t1.QTY) >= 0
";
//更新组装单信
var resData = DBUtils.Execute(this.Context, updSqlL);
//var resData = DBUtils.Execute(this.Context, updSqlL);
return;
}
}

80
14.宝锐/GZ.LJY000.Biori/STK_MisDelivery/OperationEventPlugInEx.py Normal file
View File

@@ -0,0 +1,80 @@
#引入clr运行库
import clr
#添加对cloud插件开发的常用组件引用
clr.AddReference('System')
clr.AddReference('System.Data')
clr.AddReference('Kingdee.BOS')
clr.AddReference('Kingdee.BOS.Core')
clr.AddReference('Kingdee.BOS.App')
clr.AddReference('Kingdee.BOS.App.Core')
clr.AddReference('Kingdee.BOS.Contracts')
clr.AddReference('Kingdee.BOS.DataEntity')
clr.AddReference('Kingdee.BOS.ServiceHelper')
#dairycloud基础库中的常用实体对象（分命名空间导入，不会递归导入）
from Kingdee.BOS.Core import *
from Kingdee.BOS.Util import *
from Kingdee.BOS.Core.Bill import *
from Kingdee.BOS.Core.List import *
from Kingdee.BOS.Core.Bill.PlugIn import *
from Kingdee.BOS.Orm.DataEntity import *
from Kingdee.BOS.Core.DynamicForm.PlugIn import *
from Kingdee.BOS.Core.DynamicForm.PlugIn.Args import *
from Kingdee.BOS.Core.DynamicForm.PlugIn.ControlModel import *
from Kingdee.BOS.Core.Metadata.ConvertElement.ServiceArgs import *
from System import *
from System.Data import *
from Kingdee.BOS.App.Data import *
from Kingdee.BOS.App import *
from Kingdee.BOS.Orm import *
from Kingdee.BOS.Contracts import *
from System.Collections.Generic import List
from Kingdee.BOS.ServiceHelper import *
from Kingdee.BOS.App.Core import *
def OnPreparePropertys(e):
e.FieldKeys.Add("FSeq");
e.FieldKeys.Add("FPackBillNo");
e.FieldKeys.Add("FPackBarCode");
def BeforeDoSaveExecute(e):
for entity in e.DataEntities:
entries = entity["BillEntry"]
sqlL = List[str]();
for idx,entry in enumerate(entries):
packBarCode = "" if entry["FPackBarCode"] == None else entry["FPackBarCode"].strip()
packBillNo = "" if entry["FPackBillNo"] == None else entry["FPackBillNo"].strip()
if packBarCode != "" and packBillNo == "":
materialId = entry["MaterialID_Id"]
entryId = entry["Id"]
sqlL.Add("SELECT {0} 'MaterialId',{1} 'EntryId',{2} 'EntrySeq','{3}' AS 'PackBarCode'".format(materialId,entryId,idx,packBarCode));
if sqlL.Count > 0:
sqlUnion = " UNION ALL ".join(sqlL);
sql = """/*dialect*/
WITH #基础数据 AS (
{0}
)
SELECT tt.*
,t0.FBARCODE,t1.FBILLNO,t0.FBILLID,t0.FBILLENTRYID,t0.FBILLSEQ,t0.FBILLFORMID
FROM #基础数据 tt
INNER JOIN T_UNW_WMS_BARCODE t0 on t0.FBARCODE = tt.PackBarCode
INNER JOIN T_PRD_PACKAGEINSTOCK t1 on t1.FSRCBILLENTRYID = t0.FBILLENTRYID
WHERE t0.FBILLFORMID = 'PLN_FORECAST'
ORDER BY tt.EntrySeq
""".format(sqlUnion);
# raise Exception(sql);
res = DBServiceHelper.ExecuteDynamicObject(this.Context, sql)
if res != None and res.Count > 0:
for item in res:
seq = item["EntrySeq"];
entries[seq]["FPackBarCode"] = item["PackBarCode"];
entries[seq]["FPackBillNo"] = item["FBILLNO"];
# entries[seq]["FPackBillSeq"] = item["FSeq"];
# entries[seq]["FPackBillEntryId"] = item["FEntryID"];
return;

26
14.宝锐/GZ.LJY000.Biori/STK_MisDelivery/更新组装单信息.sql Normal file
View File

@@ -0,0 +1,26 @@
WITH #<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ⵥ AS (
SELECT t0.FBILLNO
--,CASE WHEN t0e.F_QJCG_ASSISTANT2 = '63876e213ea87e' THEN 1 ELSE 0 END '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
--,t0e.FENTRYID,t0e.FID,t0e.FSEQ
,t0e.FMATERIALID
--,t0e.FSTOCKID,t0e.FSTOCKLOCID
,SUM(t0e.FQTY) '<EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
,t0e.FPACKBILLNO,t0e.FPACKBARCODE
FROM T_STK_MISDELIVERY t0
INNER JOIN T_STK_MISDELIVERYENTRY t0e on t0.FID = t0e.FID
WHERE t0.FBILLNO = 'ZHBR-QTCK241224002'
GROUP BY t0.FBILLNO,t0e.FPACKBILLNO,t0e.FPACKBARCODE,t0e.FMATERIALID--,t0e.FSTOCKID,t0e.FSTOCKLOCID
--,t0e.F_QJCG_ASSISTANT2,t0.FBILLNO
)
SELECT t0.FBILLNO,t1.FMATERIALID,t1.<EFBFBD><EFBFBD><EFBFBD><EFBFBD> * t0e.FQTY / t2.<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t3.F_UNITIDHS,t0e.FEntryID
--UPDATE t0e SET t0e.FQTY = t0e.FQTY + (t1.Qty * t0e.FQTY / t2.<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> * t3.F_UNITIDHS)
FROM T_PRD_PACKAGEINSTOCK t0
INNER JOIN T_PRD_PACKAGEINSTOCKENTRY t0e on t0e.FID = t0.FID
INNER JOIN #<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ⵥ t1 on t1.FPACKBILLNO = t0.FBILLNO AND t0e.FMATERIALID = t1.FMATERIALID
CROSS APPLY (
SELECT SUM(t2e.FQTY) AS '<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
FROM T_PRD_PACKAGEINSTOCKENTRY t2e
WHERE t2e.FID = t0e.FID AND t2e.FMATERIALID = t0e.FMATERIALID
) t2
INNER JOIN T_BD_MATERIAL t3 on t3.FMATERIALID = t0e.FMATERIALID