fix bug taobin point

This commit is contained in:
miggaze 2022-02-24 11:32:08 +07:00
parent ec8c051a8b
commit 3120d6dc8e
6 changed files with 117 additions and 19 deletions

View file

@ -18,10 +18,10 @@
Var TaobinLevel = 0
Var TaobinErrorNetwork = 0
Var Seeker.TaobinErrorNetwork = 0
If PayOfflineMode = 1 Then
Var TaobinErrorNetwork = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember= TelephoneNumber
@ -46,7 +46,7 @@
Var TaobinLevel = 0
Var CoffeePoint = 1
Var TaobinErrorNetwork = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
If TelephoneNumber = "" Then
@ -89,7 +89,7 @@
If Ext1a = "" Then
;Var CoffeePoint = 1
;Var Seeker.TNumberTaobinMember = TelephoneNumber
Var TaobinErrorNetwork = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember = TelephoneNumber
@ -129,7 +129,13 @@
Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointOld = CoffeePoint1
Var CoffeePointRank = CoffeePointRank + PointTaobin
If TaobinLevel = 1 Then
Var CoffeePointRank = CoffeePointRank + 0
Else
Var CoffeePointRank = CoffeePointRank + PointTaobin
EndIf
Var CoffeePointRankTmp = CoffeePointRank
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
@ -137,7 +143,7 @@
Else
;Var CoffeePoint = 1
;Var Seeker.TNumberTaobinMember = TelephoneNumber
Var TaobinErrorNetwork = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember = TelephoneNumber
@ -159,7 +165,7 @@
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
;Var CoffeePoint = 1
Var TaobinErrorNetwork = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember= TelephoneNumber