a

2024-12-05 15:39:19 +08:00
parent 5472714e30
commit 9725ab5376
128 changed files with 46381 additions and 69 deletions
--- a/07.珠海英搏尔/GZ.LJY000.Enpower/STK_MISCELLANEOUS/BillEventPlugInEx.py
+++ b/07.珠海英搏尔/GZ.LJY000.Enpower/STK_MISCELLANEOUS/BillEventPlugInEx.py
@@ -0,0 +1,120 @@
+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")
+
+from Kingdee.BOS import *
+from Kingdee.BOS.Core import *
+from Kingdee.BOS.Core.Metadata.EntityElement 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.Util import *
+from System import *
+from System.ComponentModel import *
+from System.Collections.Generic import *
+from System.Text import*
+from Kingdee.BOS.ServiceHelper import *
+
+def DataChanged(e):
+    if str(e.Field.Key).upper() == "FDate":
+        if DoDetection():
+            
+            stockDirectObj = this.View.Model.GetValue("FStockDirect")
+            stockDirectVal = "" if stockDirectObj == None else stockDirectObj
+            if stockDirectVal == "GENERAL":
+                details = this.View.BusinessInfo.GetEntity("FEntity")
+                
+                if details != None:
+                    entrys = this.View.Model.GetEntityDataObject(details)
+                    if entrys != None and entrys.Count > 0:
+                        dateValue = "" if e.NewValue == None else e.NewValue
+                        if dateValue == "":
+                            return;
+                        
+                        tableSqlL = List[str]();
+                        for entry in entrys:
+                            rowIndex = this.View.Model.GetRowIndex(details, entry)
+                            
+                            materialObjValue = entry["MaterialId_Id"];
+                            materialValue = 0 if materialObjValue == None else materialObjValue
+                            tableSqlL.Add(" SELECT {0} AS 'FMATERIALID',{1} rowIdx ".format(materialValue,rowIndex))
+                        
+                        if tableSqlL.Count() > 0:
+                            GetPrdLot(dateValue, " UNION ".join(tableSqlL))
+            return;
+    
+    if str(e.Field.Key).upper() == "FMATERIALID":
+        dateObj = this.View.Model.GetValue("FDate")
+        dateValue = "" if dateObj == None else str(dateObj)
+        materialId = int(e.NewValue)
+        if materialId > 0 and dateValue != "":
+            GetPrdLot(dateValue," SELECT {0} AS 'FMATERIALID',{1} rowIdx ".format(materialId,e.Row))
+        
+    
+def DoDetection():
+    orgObj = this.View.Model.GetValue("FStockOrgId")
+    if orgObj["Id"] == 1:  
+        return True
+    
+    return False
+    # return True
+    
+def GetPrdLot(dateTime,tableSql):
+    sqlL = """/*dialect*/
+DECLARE @date datetime
+SET @date = '{0}'
+
+;WITH #基础数据 AS (
+	{1}
+)
+SELECT tt.*,t1.*
+FROM #基础数据 tt
+	INNER JOIN T_BD_MATERIALSTOCK t0s on tt.FMATERIALID = t0s.FMATERIALID AND t0s.FISBATCHMANAGE = 1
+	CROSS APPLY (
+		SELECT TOP 1 tt.FBILLNO,tt.FMATERIALID,tt.FREALQTY,tt.FLOT,tt.FLOT_TEXT,tt.Seq,ROW_NUMBER()OVER (ORDER BY tt.FREALQTY DESC,tt.FCREATEDATE DESC) RN
+		FROM (
+			SELECT TOP 10 t0.FBILLNO,t0e.FMATERIALID,t0e.FREALQTY,t0e.FLOT,t1.FBILLNO FLOT_TEXT,0 Seq,t0.FCREATEDATE
+			FROM T_PRD_INSTOCK t0
+				INNER JOIN T_PRD_INSTOCKENTRY t0e on t0.FID = t0e.FID
+				INNER JOIN T_PRD_INSTOCKENTRY_LK t0e_lk on t0e_lk.FENTRYID = t0e.FENTRYID AND t0e_lk.FSTABLENAME = 'T_PRD_MOENTRY'
+				INNER JOIN T_PRD_MO t1 on t1.FID = t0e_lk.FSBILLID
+				INNER JOIN T_BD_MATERIALBASE t1b on t1b.FMATERIALID = t0e.FMATERIALID AND t1b.FERPCLSID = '2'
+			WHERE 1=1 AND t0e.FLOT != 0
+				AND t0e.FMATERIALID = tt.FMATERIALID
+				AND t0.FCREATEDATE <= @date
+			ORDER BY t0.FCREATEDATE DESC
+			UNION ALL
+			SELECT TOP 10 t0.FBILLNO,t0e.FMATERIALID,t0e.FREALQTY,t0e.FLOT,t2.FBILLNO,0 Seq,t0.FCREATEDATE
+			FROM T_STK_INSTOCK t0
+				INNER JOIN T_STK_INSTOCKENTRY t0e on t0.FID = t0e.FID
+				INNER JOIN T_STK_INSTOCKENTRY_LK t0e_lk on t0e_lk.FENTRYID = t0e.FENTRYID AND t0e_lk.FSTABLENAME = 't_PUR_POOrderEntry'
+				INNER JOIN T_PUR_POORDERENTRY_LK t1e_lk on t1e_lk.FENTRYID = t0e_lk.FSID AND t1e_lk.FSTABLENAME = 'T_SUB_REQORDERENTRY'
+				INNER JOIN T_SUB_REQORDER t2 on t2.FID = t1e_lk.FSBILLID 
+				INNER JOIN T_BD_MATERIALBASE t1b on t1b.FMATERIALID = t0e.FMATERIALID AND t1b.FERPCLSID = '3'
+			WHERE 1=1
+				AND t0.FBUSINESSTYPE = 'WW'
+				AND t0e.FLOT != 0
+				AND t0e.FMATERIALID = tt.FMATERIALID
+				AND t0.FCREATEDATE <= @date
+			ORDER BY t0.FCREATEDATE DESC
+			UNION ALL
+			SELECT '',0,0,0,RIGHT(CONVERT(varchar(100),CONVERT(int, CONVERT(VARCHAR(6),@date,112)) * 100 + DATEPART(ISO_WEEK, @date)),6),1 Seq,@date
+		) tt
+		--ORDER BY tt.FREALQTY DESC,tt.Seq ASC
+	) t1
+
+    """.format(dateTime,tableSql)
+    
+    res = DBServiceHelper.ExecuteDynamicObject(this.Context, sqlL);
+    if res != None and res.Count > 0:
+        field = this.View.Model.BillBusinessInfo.GetField("FLOT")
+        for item in res:
+            # if  field.InputModel == LotField.Enum_InputModel.OnlySelect:
+            #     this.View.Model.SetValue("FLOT", item["FLOT"], item["rowIdx"])
+            # else:
+            this.View.Model.SetValue("FLOT", item["FLOT_TEXT"], item["rowIdx"])