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 e.Field.Key == "FDate":
if DoDetection():
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 str(e.NewValue)
dataList = List[str]()
for entry in entrys:
rowIndex = this.View.Model.GetRowIndex(details, entry)
materialObjValue = entry["MaterialId_Id"];
materialValue = 0 if materialObjValue == None else materialObjValue
stockObjValue = entry["StockId_Id"];
stockValue = 0 if stockObjValue == None else stockObjValue
entityLinkObj = None;
entityLinkObjList = entry["FEntity_Link"]
if entityLinkObjList != None and entityLinkObjList.Count > 0:
entityLinkObj = entityLinkObjList[0]
sBillId = 0 if entityLinkObj == None else entityLinkObj["SBillId"];
sId = 0 if entityLinkObj == None else entityLinkObj["SId"];
sTableName = "" if entityLinkObj == None else entityLinkObj["STableName"];
if DoQueryBeforeCheck(materialValue, stockValue, dateValue, rowIndex):
dataList.Add("{0},{1},{2},{3},{4},{5},{6}".format(materialValue,rowIndex,stockValue,dateValue,sBillId,sId,sTableName));
if dataList.Count > 0:
GetMaterialReferPrice(";".join(dataList))
if e.Field.Key == "FMaterialId":
if DoDetection():
dateObjValue = this.View.Model.GetValue("FDATE")
dateValue = "" if dateObjValue == None else str(dateObjValue)
materialValue = 0 if e.NewValue == None else e.NewValue
stockObjValue = this.View.Model.GetValue("FStockId", e.Row)
stockValue = 0 if stockObjValue == None else stockObjValue["Id"]
if DoQueryBeforeCheck(materialValue, stockValue, dateValue, e.Row):
GetMaterialReferPrice("{0},{1},{2},{3},0,0,".format(materialValue,e.Row,stockValue,dateValue))
if e.Field.Key == "FStockId":
if DoDetection():
dateObjValue = this.View.Model.GetValue("FDATE")
dateValue = "" if dateObjValue == None else str(dateObjValue)
materialObjValue = this.View.Model.GetValue("FMaterialId", e.Row)
materialValue = 0 if materialObjValue == None else materialObjValue["Id"]
stockValue = 0 if e.NewValue == None else e.NewValue
if DoQueryBeforeCheck(materialValue, stockValue, dateValue, e.Row):
GetMaterialReferPrice("{0},{1},{2},{3},0,0,".format(materialValue,e.Row,stockValue,dateValue))
def AfterCreateNewData(e):
if DoDetection():
details = this.View.BusinessInfo.GetEntity("FEntity");
if details != None :
entrys = this.View.Model.GetEntityDataObject(details);
if entrys != None and entrys.Count > 0:
dateObjValue = this.View.Model.GetValue("FDATE")
dateValue = "" if dateObjValue == None else str(dateObjValue)
dataList = List[str]()
for entry in entrys:
rowIndex = this.View.Model.GetRowIndex(details, entry)
materialObjValue = entry["MaterialId_Id"]
materialValue = 0 if materialObjValue == None else materialObjValue
stockObjValue = entry["StockId_Id"];
stockValue = 0 if stockObjValue == None else stockObjValue
entityLinkObj = None;
entityLinkObjList = entry["FEntity_Link"]
if entityLinkObjList != None and entityLinkObjList.Count > 0:
entityLinkObj = entityLinkObjList[0]
sBillId = 0 if entityLinkObj == None else entityLinkObj["SBillId"];
sId = 0 if entityLinkObj == None else entityLinkObj["SId"];
sTableName = "" if entityLinkObj == None else entityLinkObj["STableName"];
if DoQueryBeforeCheck(materialValue, stockValue, dateValue, rowIndex):
dataList.Add("{0},{1},{2},{3},{4},{5},{6}".format(materialValue,rowIndex,stockValue,dateValue,sBillId,sId,sTableName));
if dataList.Count > 0:
GetMaterialReferPrice(";".join(dataList))
def DoDetection():
orgObj = this.View.Model.GetValue("FStockOrgId")
if orgObj["Id"] == 101542:
return True
return False
# return True
def DoQueryBeforeCheck(materialId,stockId,dateVal,row):
flag = materialId == 0 or stockId == 0 or dateVal == ""
# raise Exception(str(materialId)+","+str(stockId)+","+dateVal+","+str(row))
if flag:
# //参考单价
this.View.Model.SetValue("FReferPrice", 0, row);
# //参考金额
this.View.Model.SetValue("FReferAmount", 0, row);
# ////小数类型参考金额控件
# //this.View.Model.SetValue("FReferAmountM", 0, row);
# //参考方向
this.View.Model.SetValue("FExplain", "没有找到价格", row);
return not flag
def GetMaterialReferPrice(rowList):
sqlL = """/*dialect*/
declare @val nvarchar(MAX)
SET @val = '{0}'
SELECT
rowSet2.[1] AS 'FMATERIALID'
,CONVERT(int,rowSet2.[2]) AS 'inRow'
,rowSet2.[3] AS 'FSTOCKID'
,rowSet2.[4] AS 'FDate'
,rowSet2.[5] AS 'FSBILLID'
,rowSet2.[6] AS 'FSID'
,rowSet2.[7] AS 'FSTABLENAME'
INTO #TMP_DATA
FROM (SELECT 1 ID,CAST(''+ REPLACE(@val,';','') + '' AS XML) AS xmlVal
) AS valSet
OUTER APPLY (
SELECT ROW_NUMBER() OVER (ORDER BY valSet.ID) RN
,CAST(''+ REPLACE(T.C.value('.','varchar(100)'),',','') + '' AS XML) xmlVal
FROM valSet.xmlVal.nodes('/v') AS T(C)
) rowSet
OUTER APPLY (
SELECT TT2.* FROM (
SELECT T.C.value('.','varchar(100)') AS xmlVal
,ROW_NUMBER() OVER (ORDER BY rowSet.RN) RowNo
FROM rowSet.xmlVal.nodes('/v') AS T(C)
) TT
PIVOT (MAX(TT.xmlVal) FOR TT.RowNo IN ([1],[2],[3],[4],[5],[6],[7])) TT2
) rowSet2
/***********************************取上游单据start*****************************************/
SELECT t0e_lk.FMATERIALID
,(CASE t0e_lk.FSTABLENAME
WHEN 'T_STK_MISDELIVERYENTRY' THEN t1.FPRICE --其他出库（退货）-成本价
WHEN 'T_STK_INSTOCKENTRY' THEN t2.FPRICE --采购入库 -单价（不含税）
WHEN 'T_STK_STKTRANSFERINENTRY1' THEN t3.FPRICE --分步式调入 -参考单价
ELSE 0
END) AS 'newReferPrice'
,(CASE t0e_lk.FSTABLENAME
WHEN 'T_STK_MISDELIVERYENTRY' THEN '源_其他出库单:'+ t1.FBILLNO
WHEN 'T_STK_INSTOCKENTRY' THEN '源_采购入库单:'+ t2.FBILLNO
WHEN 'T_STK_STKTRANSFERINENTRY1' THEN (CASE t3.FPRICE WHEN 0 THEN '' ELSE '源_分步式调入单:'+ t3.FBILLNO END)
ELSE ''
END) AS 'newExplain'
,t0e_lk.FSTABLENAME
,t0e_lk.FDATE
,t0e_lk.FSTOCKID
,t0e_lk.inRow
,YEAR(t0e_lk.FDATE) * 100 + MONTH(t0e_lk.FDATE) AS DateNum
,t4.FMASTERID
,t4i.FINVPTYID
,t4i.FISAFFECTCOST
,t4i.FISENABLE
INTO #TMP_HAS_PARENT_MIS
FROM #TMP_DATA t0e_lk
OUTER APPLY (
SELECT t1.FBILLNO,t1e.FPRICE
FROM T_STK_MISDELIVERY t1 --其他出库单
INNER JOIN T_STK_MISDELIVERYENTRY t1e on t1.FID = t1e.FID
AND (t1e.FMATERIALID = t0e_lk.FMATERIALID AND t1e.FID = t0e_lk.FSBILLID AND t1e.FENTRYID = t0e_lk.FSID AND t0e_lk.FSTABLENAME = 'T_STK_MISDELIVERYENTRY')
) t1
OUTER APPLY (
SELECT t2.FBILLNO,t2e_f.FPRICE
FROM T_STK_INSTOCK t2 --采购入库单
INNER JOIN T_STK_INSTOCKENTRY t2e on t2e.FID = t2.FID
INNER JOIN T_STK_INSTOCKENTRY_F t2e_f on t2e.FID = t2e_f.FID AND t2e.FENTRYID = t2e_f.FENTRYID
AND (t2e.FMATERIALID = t0e_lk.FMATERIALID AND t2e.FID = t0e_lk.FSBILLID AND t2e.FENTRYID = t0e_lk.FSID AND t0e_lk.FSTABLENAME = 'T_STK_INSTOCKENTRY')
) t2
OUTER APPLY (
SELECT t3.FBILLNO
,t3e.F_GAT_DECIMAL AS FPRICE
-- ,(CASE LTRIM(RTRIM(t3e.FReferPrice)) WHEN '' THEN 0 ELSE CONVERT(decimal(23,6) ,t3e.FReferPrice) END) AS FPRICE
FROM T_STK_STKTRANSFERIN t3 --分步式调入
INNER JOIN T_STK_STKTRANSFERINENTRY t3e on t3.FID = t3e.FID
AND (t3e.FMATERIALID = t0e_lk.FMATERIALID AND t3e.FID = t0e_lk.FSBILLID AND t3e.FENTRYID = t0e_lk.FSID AND t0e_lk.FSTABLENAME = 'T_STK_STKTRANSFERINENTRY1')
) t3
INNER JOIN T_BD_MATERIAL t4 on t4.FMATERIALID = t0e_lk.FMATERIALID
INNER JOIN T_BD_MATERIALINVPTY t4i on t0e_lk.FMATERIALID = t4i.FMATERIALID AND t4i.FINVPTYID = 10001 --AND t4i.FISENABLE = 1
WHERE 1 = 1
/***********************************取上游单据end********************************************/
/***********************************存货收发结存start***************************************************/
SELECT t0.FDATE
--,t0.FBILLNO,t0.FID,t0.FENTRYID
,t0.FMASTERID,t0.FMATERIALID,t0.FSTOCKID,t0.FINVPTYID,t0.FISAFFECTCOST,t0.FISENABLE
,t0.inRow
,ISNULL((CASE t0.newReferPrice WHEN 0
THEN (CASE WHEN t0.FISAFFECTCOST = 1 AND t0.FISENABLE = 1 THEN t2.FDATE ELSE t3.FDATE END)
ELSE t0.newExplain
END),'') AS 'newExplain'
,ISNULL((CASE t0.newReferPrice WHEN 0 THEN
(CASE WHEN t0.FISAFFECTCOST = 1 AND t0.FISENABLE = 1
THEN t2.PRICE
ELSE (CASE WHEN t3.FQTY <> 0 THEN ROUND(t3.FAMOUNT/t3.FQTY,6) ELSE 0 END)
END)
ELSE t0.newReferPrice
END),0) AS 'newReferPrice'
INTO #TMP_结存单价_END_LIST
FROM #TMP_HAS_PARENT_MIS t0
OUTER APPLY(
SELECT TOP 1 tt1.FDATE
,(CASE WHEN tt1.FQTY <> 0 THEN ROUND(tt1.FAMOUNT/tt1.FQTY,6) ELSE 0 END) AS PRICE
FROM V_MATERIAL_INIVSTOCKDIMENSION tt1
WHERE 1 = 1
AND t0.FMASTERID = tt1.FMASTERID
AND t0.FSTOCKID = tt1.FSTOCKID
AND tt1.DateNum <= t0.DateNum
AND (t0.FISENABLE = 1 AND t0.FISAFFECTCOST = 1)
AND t0.newReferPrice = 0
AND tt1.FQTY > 0
ORDER BY tt1.FYEAR DESC,tt1.FPERIOD DESC
) t2
OUTER APPLY (
SELECT TOP 1 tt2.FYEAR,tt2.FPERIOD
,CONVERT(nvarchar(10),FYEAR) + '.' + CONVERT(nvarchar(10),FPERIOD) AS FDATE
,SUM(tt2.FAMOUNT) AS FAMOUNT,SUM(tt2.FQTY) AS FQTY
FROM V_MATERIAL_INIVSTOCKDIMENSION tt2
WHERE 1 = 1
AND t0.FMASTERID = tt2.FMASTERID
AND tt2.DateNum <= t0.DateNum
AND (t0.FISENABLE = 0 OR t0.FISAFFECTCOST = 0)
AND t0.newReferPrice = 0
GROUP BY tt2.FYEAR,tt2.FPERIOD
HAVING SUM(tt2.FQTY) > 0
ORDER BY tt2.FYEAR DESC,tt2.FPERIOD DESC
) t3
/*****************************************存货收发结存end***********************************************/
/*****************************************合同单价、采购入库单start**********************************************/
SELECT t0.FDATE
--,t0.FBILLNO,t0.FID,t0.FENTRYID
,t0.FMASTERID,t0.FMATERIALID,t0.FSTOCKID,t0.FINVPTYID,t0.FISAFFECTCOST
,t0.inRow
,ISNULL((CASE WHEN t0.newReferPrice = 0
THEN (CASE WHEN t0.FISAFFECTCOST = 1 AND t0.FISENABLE = 1
THEN (CASE WHEN t1.FMATERIALID IS NOT NULL THEN t1.FPRICE ELSE t2.FPRICE END)
ELSE (CASE WHEN t2.FMATERIALID IS NOT NULL THEN t2.FPRICE ELSE t1.FPRICE END)
END)
ELSE t0.newReferPrice
END),0) AS 'newReferPrice'
,ISNULL((CASE WHEN t0.newReferPrice = 0
THEN (CASE WHEN t0.FISAFFECTCOST = 1 AND t0.FISENABLE = 1
THEN (CASE WHEN t1.FMATERIALID IS NOT NULL THEN '取采购入库单单价,单据:'+t1.FBILLNO ELSE '取合同价,合同号为:'+t2.FBILLNO END)
ELSE (CASE WHEN t2.FMATERIALID IS NOT NULL THEN '取合同价,合同号为:'+t2.FBILLNO ELSE '取采购入库单单价,单据:'+t1.FBILLNO END)
END)
ELSE t0.newExplain
END),'没有找到价格') AS 'newExplain'
FROM #TMP_结存单价_END_LIST t0
OUTER APPLY (
SELECT TOP 1 tt0.FBILLNO,tt0e.FMATERIALID,tt0e.FSTOCKID
,tt0e_f.FPRICE,tt0e_f.FCOSTPRICE
FROM T_STK_INSTOCK tt0 --采购入库
INNER JOIN T_STK_INSTOCKENTRY tt0e on tt0.FID = tt0e.FID
INNER JOIN T_STK_INSTOCKENTRY_F tt0e_f on tt0e.FENTRYID = tt0e_f.FENTRYID
WHERE
tt0.FDOCUMENTSTATUS = 'C'
AND tt0.FCANCELSTATUS = 'A'
AND tt0.FSTOCKORGID = 101542
AND (tt0e_f.FPRICE != 0 OR tt0e_f.FCOSTPRICE <> 0)
AND t0.FMATERIALID = tt0e.FMATERIALID AND tt0e.FSTOCKID = t0.FSTOCKID
AND DATEDIFF(DAY,tt0.FDATE, t0.FDATE) > -1
ORDER BY tt0.FDATE DESC
) t1
LEFT JOIN (
SELECT
tt0e.F_QNV_BASE1 AS FMATERIALID
--,tt0e.F_QNV_DECIMAL3 AS FPRICE--综合单价
--,tt0e.F_QNV_DECIMAL1 AS FPRICE--含税单价
,tt0e.F_QNV_PRICE AS FPRICE--不含税单价
,tt0.F_QNV_TEXT2 AS FBILLNO
,tt1.FMASTERID
,ROW_NUMBER() OVER (PARTITION BY tt1.FMASTERID ORDER BY F_QNV_DATE2 DESC, tt1.FUSEORGID DESC) 'RN'
FROM QNV_t_Cust_Entry100003 tt0 --供应商年度合同
INNER JOIN QNV_t_Cust_Entry100004 tt0e on tt0.FID = tt0e.FID
INNER JOIN T_BD_MATERIAL tt1 on tt1.FMATERIALID = tt0e.F_QNV_BASE1
WHERE 1 = 1
AND tt0.FDOCUMENTSTATUS = 'C'
AND tt0e.F_QNV_PRICE != 0
) t2 on t0.FMASTERID = t2.FMASTERID AND t2.RN = 1
/*****************************************合同单价、采购入库单end**********************************************/
DROP TABLE #TMP_DATA
DROP TABLE #TMP_HAS_PARENT_MIS
DROP TABLE #TMP_结存单价_END_LIST
""".format(rowList)
res = DBServiceHelper.ExecuteDynamicObject(this.Context,sqlL)
if res != None and res.Count > 0:
for item in res:
rowIndex = item["inRow"]
referPriceVal = item["newReferPrice"]
newExplain = item["newExplain"]
this.View.Model.SetValue("FReferPrice", referPriceVal, rowIndex)
this.View.Model.SetValue("FExplain", newExplain, rowIndex)
fqty = this.View.Model.GetValue("FQty",rowIndex)
this.View.Model.SetValue("FReferAmount", referPriceVal * fqty, rowIndex)
# this.View.InvokeFieldUpdateService("FReferPrice", rowIndex)
materialId = str(item["FMATERIALID"])
dateVal = str(item["FDATE"])
stockId = str(item["FSTOCKID"])
GetInstockPrice(rowIndex ,dateVal ,materialId,stockId)
# 获取采购申请单价
def GetInstockPrice(Row, Fdate, FmaterialId, stockValue):
# raise Exception(str(Row)+","+str(Fdate)+","+str(FmaterialId)+","+str(stockValue))
sqlL = """/*dialect*/
SELECT top 1
A.FBILLNO, CASE WHEN FPrice = 0 THEN round( C.FCostPrice ,2) else round( C.FPrice ,2) end as 'FPrice'
FROM T_STK_INSTOCK A
INNER JOIN T_STK_INSTOCKENTRY B ON A.FID = B.FID
INNER JOIN T_STK_INSTOCKENTRY_F C ON C.FENTRYID = B.FENTRYID
WHERE
A.FDOCUMENTSTATUS = 'C'
AND A.FCANCELSTATUS = 'A'
AND A.FSTOCKORGID = 101542
AND B.FMATERIALID = {1}
AND B.FSTOCKID = {2}
AND CONVERT(nvarchar(10),FDATE,23) <= '{0}'
AND CONVERT(nvarchar(10),FAPPROVEDATE,23) <= '{0}'
AND (c.FPrice <> 0 or c.FCostPrice <> 0)
ORDER BY FDATE DESC, FAPPROVEDATE DESC
""".format(Fdate, FmaterialId, stockValue)
# raise Exception(sqlL)
InstockPrice = DBServiceHelper.ExecuteDynamicObject(this.Context, sqlL)
_instockPriceVal = 0.01
if InstockPrice != None and InstockPrice.Count > 0:
_instockPriceVal = InstockPrice[0]["FPrice"]
else:
_instockPriceVal = 0
this.View.Model.SetValue("FInstockPrice", _instockPriceVal, Row)