Sql 销售订单变更后对销售出库单单价处理的小技巧

场景

有时候有的销售订单可能因为某些因素，导致原来赠送的物品后面需要更改为付费或者原来的价格最终需要进行调整，但是销售订单已经发生销售出库的单据，即使变更也只能变更销售订单的单价。

这个时候可以尝试这样操作：

SQL步骤1

首先创建一张记录表，用于恢复单据状态，然后查询写入记录，再来清除单据的审核状态

BOS平台1

销售出库的实体服务规则需要先反选几个锁定单价的服务

销售出库的单价、含税单价可能默认是不显示状态，需要允许前台展示

单据操作

打开我们需要处理的单据，这个时候它是暂存状态，直接手动输入含税单价，前台会自动运算全部相关的数据，点击保存即可，不需要点击审核，如果赠品勾上了，就Sql取消它赠品状态。

SQL步骤2

Python Script

如果想方便也可以使用python插件获取单价，添加按钮在前台可以触发获取单价，但是实发数量需要手动维护才能得到金额重算！

import clr
clr.AddReference("mscorlib")
clr.AddReference("Kingdee.BOS")
clr.AddReference("Kingdee.BOS.App")
clr.AddReference("Kingdee.BOS.Core")
clr.AddReference("System.Data")
from Kingdee.BOS import *
from Kingdee.BOS.Util import *
from Kingdee.BOS.App.Data import *
from Kingdee.BOS.Core.DynamicForm.PlugIn import *
from Kingdee.BOS.Core.DynamicForm.PlugIn.Args import *
from System import *
from System.Data import *
from System.Collections.Generic import *
def BarItemClick(e):
    if e.BarItemKey == "按钮标识":
        Status=this.Model.GetValue("FDocumentStatus");
        FBillNo=this.Model.GetValue("FBillNo");
        State = SqlExecYS(FBillNo);
        if Status == "Z" and State == 0:
            Rows = this.Model.GetEntryRowCount("FEntity");
            for i in range(Rows):
                FMustQty = this.Model.GetValue("FMustQty",i);
                SOEntryId = this.Model.GetValue("FSOEntryId",i);
                IsFree,TaxPrice = SqlExecute(SOEntryId);
                this.Model.SetValue("FIsFree",IsFree,i);
                this.Model.SetValue("FTAXPRICE",TaxPrice,i);
                this.Model.SetValue("FRealQty",0,i);#清除实发数量 
                #this.Model.SetValue("FRealQty",FMustQty,i);
                this.View.ShowMessage("单据编号: " + str(FBillNo) +" 请重新填写实发数量，单据可以让金额获得重算！")
        elif State > 0:
            this.View.ShowErrMessage("单据编号: " + str(FBillNo) + " 已发生应收关联，请先删除关联的应收单！")
        else:
            this.View.ShowErrMessage("单据编号: " + str(FBillNo) +" 当前单据非暂存状态，请联系管理员使用Sql后台处理单据状态！")
                
def SqlExecute(d):
    FIsFree = "/*dialect*/ Select FISFREE from T_SAL_ORDERENTRY_F Where FENTRYID in ('%s') "%(str(d));
    FTaxPrice = "/*dialect*/ Select FTaxPrice from T_SAL_ORDERENTRY_F Where FENTRYID in ('%s') "%(str(d));
    IsFree = DBUtils.ExecuteScalar(this.Context,FIsFree,None);
    TaxPrice = DBUtils.ExecuteScalar(this.Context,FTaxPrice,None);
    return IsFree,TaxPrice;

def SqlExecYS(R):
    SqlScript = "Select count(FSourceBillNo)as FCount  from t_AR_receivableEntry where FSourceBillNo in ('%s') "%(str(R));
    State = DBUtils.ExecuteScalar(this.Context,SqlScript,None);
    return State;

BOS平台2

处理完毕，将原来的实体服务规则恢复！

注意：中间单据《发货通知单》，由于被下游单据关联，明细内容会是锁定状态，只能忽略！