pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

add poing New

Browse source
This commit is contained in:
miggaze 2022-07-12 12:19:44 +07:00
parent 6c7fa03468
commit 370de40385
9 changed files with 110 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

54
xml/page_collect_point_2.xml
View file

@ -22,8 +22,9 @@
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
;Var Seeker.PointTaobinStr = "" + PayAmount
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
@ -48,8 +49,9 @@
Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
;Var Seeker.PointTaobinStr = "" + PayAmount
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
@ -87,12 +89,15 @@
EndIf
Else
If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
;Var Seeker.PointTaobinStr = "" + PayAmount
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
@ -105,23 +110,35 @@
Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e
Var TaobinPDPA = Ext1h
DEBUGVAR TaobinPDPA
Var PointTaobinTmp = Ext1i
DEBUGVAR PointTaobinTmp
INT PointTaobinTmp
INT TaobinPDPA
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
If TaobinLevel = 1 Then
Var PointTaobin = PayAmount / 20
Else
Var PointTaobin = PayAmount / 15
EndIf
Var PointTaobin = PointTaobinTmp
Var Seeker.PointTaobinStr = "" + PointTaobin
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/"
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + PointTaobin
;Var Seeker.PointTaobinStr = "" + PointTaobin
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/"
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + PointTaobin
Var Seeker.PointTaobinStr = ParamCP
Var CoffeePointRank = Ext1b
@ -141,13 +158,19 @@
Var CoffeePointRankTmp = CoffeePointRank
If TaobinPDPA = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Else
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
;Var Seeker.PointTaobinStr = "" + PayAmount
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
@ -169,8 +192,9 @@
Else
;Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
;Var Seeker.PointTaobinStr = "" + PayAmount
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"