add text kbank 2xPlus

This commit is contained in:
miggaze 2022-07-12 17:11:06 +07:00
parent 5ec428acd5
commit 928e1c98ce
4 changed files with 26 additions and 3 deletions

View file

@ -17,6 +17,7 @@
EndIf
Var TaobinLevel = 0
Var Point2X = 0
Var Seeker.TaobinErrorNetwork = 0
@ -125,13 +126,23 @@
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
;Var PointTaobinTmp = 4
Var PointTaobin = PointTaobinTmp
Var pTaobin = PointTaobin
If TaobinLevel = 1 Then
Var PointTaobin = PayAmount / 20
Var pTaobin = PayAmount / 20
Else
Var PointTaobin = PayAmount / 15
Var pTaobin = PayAmount / 15
EndIf
Var PointTaobin = PointTaobinTmp
If pTaobin > 0 Then
Var pTaobinX = PointTaobin / pTaobin
If pTaobinX >= 2 Then
Var Point2X = 1
EndIf
EndIf
;Var Seeker.PointTaobinStr = "" + PointTaobin