"Enable"
1080
1920
"0xeae6e1"
SoundVolume
; On open
Var Timeout = 0
SAVELOG UnitTestType
If UnitTestType = "1" Then
Var CoffeePoint = 10
Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf
Var TaobinLevel = 0
Var TaobinErrorNetwork = 0
If PayOfflineMode = 1 Then
Var TaobinErrorNetwork = 1
Var PointTaobinStr = "" + PayAmount
Var PointTaobinStr = PointTaobinStr + "/1/0"
Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
EndIf
1000
Var CountDownBrewing = CountDownBrewing - 1
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 30 Then
If StepGetPoint = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
Var TaobinLevel = 0
Var CoffeePoint = 1
Var TaobinErrorNetwork = 1
Var PointTaobinStr = "" + PayAmount
Var PointTaobinStr = PointTaobinStr + "/1/0"
Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
EndIf
EndIf
TimerReset
Refresh
Open "/media/bt/xml/security_alarm.xml"
If StepGetPoint = 0 Then
If PdpaAsk = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
Var StepGetPoint = 1
GETACCEXT TelephoneNumber 14
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
Else
If Ext1a = "" Then
;Var CoffeePoint = 1
;Var TNumberTaobinMember = TelephoneNumber
Var TaobinErrorNetwork = 1
Var PointTaobinStr = "" + PayAmount
Var PointTaobinStr = PointTaobinStr + "/1/0"
Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
Else
If Ext1a = "ok" Then
Var TaobinName = Ext1d
Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e
Var TNumberTaobinMemberXXX = TelephoneNumber
;Trim TNumberTaobinMemberXXX 3
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + "-XXX-"
;Var TNumberTaobinMemberXXX = "XXX-XXX-"
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number7
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number8
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number9
;Var TNumberTaobinMemberXXX = TNumberTaobinMemberXXX + number10
If TaobinLevel = 1 Then
Var PointTaobin = PayAmount / 20
Else
Var PointTaobin = PayAmount / 15
EndIf
Var PointTaobinStr = "" + PointTaobin
Var PointTaobinStr = PointTaobinStr + "/"
Var PointTaobinStr = PointTaobinStr + PointTaobin
Var CoffeePointRank = Ext1b
INT CoffeePointRank
Var CoffeePoint1 = Ext1c
INT CoffeePoint1
Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointOld = CoffeePoint1
Var CoffeePointRank = CoffeePointRank + PointTaobin
Var CoffeePointRankTmp = CoffeePointRank
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Else
;Var CoffeePoint = 1
;Var TNumberTaobinMember = TelephoneNumber
Var TaobinErrorNetwork = 1
Var PointTaobinStr = "" + PayAmount
Var PointTaobinStr = PointTaobinStr + "/1/0"
Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
EndIf
EndIf
EndIf
If StepGetPoint = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
;Var CoffeePoint = 1
Var TaobinErrorNetwork = 1
Var PointTaobinStr = "" + PayAmount
Var PointTaobinStr = PointTaobinStr + "/1/0"
Var TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
178
680
"ROOT/taobin_project/image/collectiing/text20.png"
;
; 0
; 0
; "ROOT/taobin_project/image/ad_medium_2.png"
;
0
873
1080
Center
62
RobotoBlack
0x513C2F
TelephoneNumber
Telnum-mask-1
;
751
413
"ROOT/taobin_project/image/page_doing/img2.png"
;
XPosiShowCountDownBrew
470
End
153
88
RobotoBold
0x513C2F
ShowCountDownBrewing