fix:将开单人跟单人放到服务单中

wanglizhong

2025-04-28 1e955583470b47f7636eaba800c52c258ac24296

 admin_save.gds

@@ -1050,8 +1050,9 @@
rs.close()

ServiceOrdNo   = ServiceOrdClass& year(now())&Right("0"&month(now()),2)&Right("0"&day(now()),2) & "-"&Right("00"&ServiceOrdNo,3)







'保存开单人及提成比例的函数

SaveOpenerCommission ServiceOrdID

SaveFollowers ServiceOrdID

'咨询单转为服务单('自动审核)

If ServiceOrdState="2" then

   sql="update ServiceOrder set ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate(),ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID

@@ -1314,7 +1315,9 @@


ServiceOrd_Check      = SafeRequest(Request.form("ServiceOrd_Check"))      '当前审核操作

EditDataForm         = SafeRequest(Request.form("EditDataForm"))         '当前修改项目



'保存开单人及提成比例的函数

SaveOpenerCommission ServiceOrdID

SaveFollowers ServiceOrdID



Call RequestForm(Origin)

session("Origin")=Origin

@@ -1836,6 +1839,7 @@
   End If

End If





Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT

Response.End%>



@@ -2063,8 +2067,6 @@
sql="update DispatchOrd set DispatchOrdTraSDTime='"&DispatchOrdTraSDTime&"' where DispatchOrdID="&DispatchOrdID

objConn.Execute sql

End If

SaveOpenerCommission DispatchOrdID

SaveFollowers DispatchOrdID



'写入附加项目费用

If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 And StretcherMoney>0 Then

@@ -2409,8 +2411,7 @@
ServiceOrdTraEnd      = SafeRequest(Request.form("ServiceOrdTraEnd"))      '转入地址

EditDataForm         = SafeRequest(Request.form("EditDataForm"))         '当前修改项目



SaveOpenerCommission DispatchOrdID

SaveFollowers DispatchOrdID





If ServiceOrdTraStreet<>"" Then DispatchOrdTraStreet=ServiceOrdTraStreet

If ServiceOrdTraVia<>"" Then DispatchOrdTraVia=ServiceOrdTraVia