fix:pay update

wanglizhong

2025-05-05 8a7dab004bc3eca7808d0cc196a329464402bbc9

 admin_save.gds

@@ -1051,7 +1051,8 @@
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

@@ -1315,6 +1316,8 @@
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