##根据明细行首行销售订单号查询销售合同号并填写到单据头销售合同字段中
#保持校验合同号是否存在
import sys
import clr
clr.AddReference('System')
clr.AddReference('Kingdee.BOS')
clr.AddReference('Kingdee.BOS.Core')
clr.AddReference('Kingdee.BOS.Contracts')
clr.AddReference('Kingdee.BOS.DataEntity')
clr.AddReference('Kingdee.BOS.ServiceHelper')
from Kingdee.BOS import *
from Kingdee.BOS.Core import *
from Kingdee.BOS.Core.Bill import *
from Kingdee.BOS.Core.DynamicForm.PlugIn import *
from Kingdee.BOS.Core.DynamicForm.PlugIn.ControlModel  import *
import System
from Kingdee.BOS.Core.DynamicForm.PlugIn.Args import EndOperationTransactionArgs
from Kingdee.BOS.Orm.DataEntity import *
from Kingdee.BOS.Core.Metadata import *
from Kingdee.BOS.Contracts import *
from System import DateTime
from Kingdee.BOS.ServiceHelper import *
def AfterBarItemClick(e):                           
    if (e.BarItemKey=="tbSplitSave"):#保存按钮
        StrOrderNO=this.Model.GetValue("FORDERNUMBER",0);#获取销售单号    
        StrFbillno = this.Model.GetValue("FBILLNO");
        StrContract=this.Model.GetValue("F_CONTRACTFBILLNOTEXT");
        if StrContract<>"":
            this.View.ShowMessage(StrOrderNO+StrFbillno);    
            F =str(sqlQuery(StrOrderNO));
            this.Model.SetValue("F_ContractFbillnoText",F);
            sqlReturn_ContractFNO(StrOrderNO,StrFbillno);
def sqlReturn_ContractFNO(StrOrderNO,StrFbillno):
         """
         根据合同号查询合同号
        """
         sql="update t_AR_RECEIVABLE set F_CONTRACTFBILLNOTEXT=(select top 1 s.FSRCBILLNO from T_SAL_ORDER t,T_SAL_ORDERENTRY_R s where t.fid=s.fid and t.FBILLNO='"+StrOrderNO+"') where FBILLNO='"+StrFbillno+"';"
         "this.View.ShowMessage(sql);"
         fb = DBServiceHelper.ExecuteScalar(this.Context,sql,None);
         return fb;
def sqlQuery(StrOrderNO):
    sql="select top 1 s.FSRCBILLNO from T_SAL_ORDER t,T_SAL_ORDERENTRY_R s where t.fid=s.fid and t.FBILLNO='"+StrOrderNO+"'";
    fb = DBServiceHelper.ExecuteScalar(this.Context,sql,None);
    return fb;