获取最近采购订单供应商

获取已审核最近采购订单供应商，写入采购申请单。（非按业务日期排序，按制单顺序）

需要在单据体增加按钮触发表单插件。

脚本语言为python

import clr
clr.AddReference('Kingdee.BOS')
clr.AddReference('Kingdee.BOS.Core')
clr.AddReference('Kingdee.BOS.App')
from Kingdee.BOS.Core import *
from Kingdee.BOS.App.Data import *

#def EntryButtonCellClick(e):
def EntryBarItemClick(e):
    if e.BarItemKey=="SZXY_tbButton":
        rows=this.Model.GetEntryRowCount("FEntity");
        for i in range(0,rows,1):
            FMID=str(this.Model.GetValue("FMaterialId",i)["Id"])    if (this.Model.GetValue("FMaterialId",i) <>None)else "0";
            sql="/*dialect*/select a.FSUPPLIERID from t_PUR_POOrder a join t_PUR_POOrderEntry b on a.fid=b.fid where b.FMATERIALID="+FMID+" and a.fid in (SELECT MAX(l.FID) FROM  t_PUR_POOrder m join t_PUR_POOrderEntry l on m.fid=l.fid where m.FDOCUMENTSTATUS='C' and l.FMATERIALID ="+FMID+" GROUP BY l.FMATERIALID)";
            FSsupp=DBUtils.ExecuteScalar(this.Context,sql,None);
            #this.View.ShowMessage(sql);
            this.Model.SetValue("FSuggestSupplierId",FSsupp,i);
        this.View.UpdateView("FEntity");