feat: 增加公交广告中的优惠券功能

wlzboy

2025-09-06 2decf5219e3476e30095fd9dbf6e49c55e105563

 admin_save.gds

@@ -1051,6 +1051,12 @@
ServiceOrdNo   = ServiceOrdClass& year(now())&Right("0"&month(now()),2)&Right("0"&day(now()),2) & "-"&Right("00"&ServiceOrdNo,3)





SaveOpenerCommission ServiceOrdID

SaveFollowers ServiceOrdID

' 新增条件更新语句

sql = "UPDATE ServiceOrder SET Old_ServiceOrdID_TXT = '" & Replace(ServiceOrdNo, "'", "''") & "' " & _

      "WHERE ServiceOrdID = " & ServiceOrdID & " AND (Old_ServiceOrdID_TXT IS NULL OR Old_ServiceOrdID_TXT = '[未关联]')"

objConn.Execute sql



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

If ServiceOrdState="2" then

@@ -1315,6 +1321,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 +1844,7 @@
   End If

End If





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

Response.End%>



@@ -2063,8 +2072,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 +2416,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

@@ -3300,7 +3306,7 @@
      </script><%

      Response.End

   End If

   If DispatchOrdClass="SA" And CInt(old_TraTxnPrice)>CInt(TraPaidPrice) And (DispatchOrdState="8") Then

   If DispatchOrdClass="SA" And CLng(old_TraTxnPrice)>CLng(TraPaidPrice) And (DispatchOrdState="8") Then

      %><script language=javascript>

      alert('返回前，请确认收款流水和成交价一致');

      window.location.href="/m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>&EndMileage=<%=EndMileage%>"

@@ -3492,7 +3498,7 @@
   End If

   rs.close()

End If

'Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)

Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState)



'更新提成数据

Call EntourageDKP_Money_C2(DispatchOrdID)