From 2decf5219e3476e30095fd9dbf6e49c55e105563 Mon Sep 17 00:00:00 2001
From: wlzboy <66905212@qq.com>
Date: 星期六, 06 九月 2025 23:22:49 +0800
Subject: [PATCH] feat: 增加公交广告中的优惠券功能
---
API/User/index.gds | 30 +++++++++++++++++++++++++++++-
1 files changed, 29 insertions(+), 1 deletions(-)
diff --git a/API/User/index.gds b/API/User/index.gds
index 5748770..7d7f0ba 100644
--- a/API/User/index.gds
+++ b/API/User/index.gds
@@ -85,6 +85,16 @@
End If
'绛惧悕楠岃瘉---end
+Function saveCoupon(objConn,Money,UserID,Remarks,Name)
+ CouponNO=DTimeID()&getIDnumbers(6)
+ CouponMoney=Money
+ CouponRemarks=Remarks
+ CouponName=Name
+ If UserID="" Then UserID=0
+ sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365*2,'"&CouponRemarks&"',0,"&UserID&")"
+ objConn.Execute sql
+End Function
+
objConn.BeginTrans
If errcode="" then
@@ -163,6 +173,8 @@
ADUser="155"
ElseIf UserSourceSP(i)="Iid166" Then
ADUser="166"
+ ElseIf UserSourceSP(i)="Iid193" Then
+ ADUser="193"
End If
End If
Next
@@ -427,7 +439,21 @@
NewUserCoupon=0
End If
- If (ADUser="153") And NewUser=1 And DateDiff("d",now(),"2023-9-15")<=0 And DateDiff("d",now(),"2024-6-30")>=0 Then
+ if (ADUser="193") And DateDiff("d",now(),"2025-9-5")<=0 And DateDiff("d",now(),"2028-1-1")>=0 Then
+ sql="select * from Coupon where CouponDate_Ent>=getdate() and CouponName like '鍩庡競鏈嶅姟 浼樻儬%' and ToUserID="&UserID
+ rs.open Sql,objConn,1,1
+ If rs.Eof then
+ '鍏氦杞﹀箍鍛婁紭鎯�
+ '鍩庡競鏈嶅姟浼樻儬 鍙戜紭鎯犲埜锛� 甯傚唴50 鐪佸唴200 鐪佸500 楂橀搧1000 鑸┖3000
+ saveCoupon objConn,50,UserID,"","鍩庡競鏈嶅姟 浼樻儬 50鍏冧唬閲戝埜-锛堟湰甯傝鏀垮尯鍩熷唴鏁戞姢杞﹁浆杩愬彲浣跨敤锛�"
+ saveCoupon objConn,50,UserID,"","鍩庡競鏈嶅姟 浼樻儬 50鍏冧唬閲戝埜-锛堟湰甯傝鏀垮尯鍩熷唴鏁戞姢杞﹁浆杩愬彲浣跨敤锛�"
+ saveCoupon objConn,200,UserID,"","鍩庡競鏈嶅姟 浼樻儬 200鍏冧唬閲戝埜-锛堝崟绋嬭窛绂�100鍏噷浠ヤ笂鏁戞姢杞﹁浆杩愬彲浣跨敤锛�"
+ saveCoupon objConn,500,UserID,"","鍩庡競鏈嶅姟 浼樻儬 500鍏冧唬閲戝埜-锛堝崟绋嬭窛绂�500鍏噷浠ヤ笂鏁戞姢杞﹁浆杩愬彲浣跨敤锛�"
+ saveCoupon objConn,1000,UserID,"","鍩庡競鏈嶅姟 浼樻儬 1000鍏冧唬閲戝埜-锛堥珮閾佸尰鐤楄浆杩愬彲浣跨敤锛�"
+ saveCoupon objConn,3000,UserID,"","鍩庡競鏈嶅姟 浼樻儬 3000鍏冧唬閲戝埜-锛堣埅绌哄尰鐤楄浆杩愬彲浣跨敤锛�"
+ End if
+ rs.close()
+ ElseIf (ADUser="153") And NewUser=1 And DateDiff("d",now(),"2023-9-15")<=0 And DateDiff("d",now(),"2024-6-30")>=0 Then
sql="select * from Coupon where CouponDate_Ent>=getdate() and CouponName like '鍩庡競鏈嶅姟浼樻儬%' and ToUserID="&UserID
rs.open Sql,objConn,1,1
If rs.Eof then
@@ -934,6 +960,8 @@
webJson="""UserInformation"":{""Title"":""鐢ㄦ埛浼樻儬鍒�"",""Content"":"""",""PicUrl"":""https://api.966120.com.cn/OA_img/20231013160503.png"",""Url"":""/pages/my/login/login"",""OpenType"":""navigateTo""}"
ElseIf UserID<>"0" And FormIDInt=0 And (InStr(pages,"148")>0 Or InStr(pages,"155")>0 Or InStr(CouponNames,"浠ｉ噾鍒�")>0) Then
webJson="""UserInformation"":{""Title"":""鐢ㄦ埛浼樻儬鍒�"",""Content"":"""",""PicUrl"":""https://api.966120.com.cn/OA_img/ad_20230727.png"",""Url"":"""",""OpenType"":""""}"
+ ElseIf wxOpenid<>"" and FormIDInt=0 and (InStr(pages,"193")>0 or InStr(CouponNames,"浠ｉ噾鍒�")>0) then
+ webJson="""UserInformation"":{""Title"":""鐢ㄦ埛浼樻儬鍒�"",""Content"":""&pages&"",""PicUrl"":""https://api.966120.com.cn/OA_img/ad_0904.png"",""Url"":"""",""OpenType"":""""}"
Else
webJson="""UserInformation"":0"
End If
--
Gitblit v1.9.1