"Enable"
1080
1920
"0xeae6e1"
SoundVolume
"Partial"
; On open
VendingQR OFF
Var Timeout = 0
Var AmountNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var Ext1a = ""
Var GetAccFlag = 0
Var GetPayInfoFlag = 0
Var TextWaiting = ""
Var text_27 = "/text_27.png"
Var text_show_amountInvalid = "/text_show_amountInvalid.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png"
Var Min = 20
Var Max = 5000
If CountryName = "Malaysia" Then
Var text_27 = "/text_27-MYR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-MYR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-MYR.png"
Var Min = 2
Var Max = 500
EndIf
If CountryName = "Indonesia" Then
Var text_27 = "/text_27-IDR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-IDR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-IDR.png"
Var Min = 9000
Var Max = 2000000
EndIf
1000
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
EndIf
TimerReset
If GetPayInfoFlag = 1 Then
Var VendingQRCode = "OK"
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
Open "ROOT/taobin_project/xml/page_member_topupQR.xml"
EndIf
Refresh
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
Var TextWaiting = "Unable to use QR, please try again later."
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
Refresh
990
416
show_btn
show_btp
"/mnt/sdcard/coffeevending/wav/click.wav"
SoundVolume
0
380
"ROOT/taobin_project/image/collectiing/alpha.png"
158
601
"ROOT/taobin_project/image/collectiing/img_popup1.png"
333
1004
"ROOT/taobin_project/image/collectiing/bn_1.png"
"ROOT/taobin_project/image/collectiing/bp_1.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "1"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
477
1004
"ROOT/taobin_project/image/collectiing/bn_2.png"
"ROOT/taobin_project/image/collectiing/bp_2.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "2"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
620
1004
"ROOT/taobin_project/image/collectiing/bn_3.png"
"ROOT/taobin_project/image/collectiing/bp_3.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "3"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
333
1148
"ROOT/taobin_project/image/collectiing/bn_4.png"
"ROOT/taobin_project/image/collectiing/bp_4.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "4"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
477
1148
"ROOT/taobin_project/image/collectiing/bn_5.png"
"ROOT/taobin_project/image/collectiing/bp_5.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "5"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
620
1148
"ROOT/taobin_project/image/collectiing/bn_6.png"
"ROOT/taobin_project/image/collectiing/bp_6.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "6"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
333
1292
"ROOT/taobin_project/image/collectiing/bn_7.png"
"ROOT/taobin_project/image/collectiing/bp_7.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "7"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
477
1292
"ROOT/taobin_project/image/collectiing/bn_8.png"
"ROOT/taobin_project/image/collectiing/bp_8.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "8"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
620
1292
"ROOT/taobin_project/image/collectiing/bn_9.png"
"ROOT/taobin_project/image/collectiing/bp_9.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "9"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
477
1432
"ROOT/taobin_project/image/collectiing/bn_0.png"
"ROOT/taobin_project/image/collectiing/bp_0.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen > 0 Then
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "0"
Trim AmountNumber 10
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
EndIf
EndIf
620
1432
"ROOT/taobin_project/image/collectiing/bn_back-1.png"
"ROOT/taobin_project/image/collectiing/bp_back-1.png"
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Timeout = 0
Trim AmountNumber -1
;Var Tel_Confirm_State = "Invisible"
StrLen AmountNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Invisible"
EndIf
Var ShowErrorText = "Invisible"
TimerReset
Refresh
218
1607
Var( DirImage + "/bn_cancel2.png" )
Var( DirImage + "/bp_cancel2.png" )
"/mnt/sdcard/coffeevending/wav/click.wav"
SoundVolume
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
577
1607
"Enable"
Tel_Confirm_State
Var( DirImage + "/bn_confirm.png" )
Var( DirImage + "/bp_confirm.png" )
Var( DirImage + "/bn_confirm.png" )
"ROOT/sounds/codebuttom.wav"
SoundVolume
Var Amount = AmountNumber
INT Amount
If Amount < Min Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = text_show_amountInvalid
Refresh
Else
If Amount > Max Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = text_show_amountInvalid2
Refresh
Else
If PayCreditChannel = "cash" Then
Open "ROOT/taobin_project/xml/page_member_topupCash.xml"
Else
If GetPayInfoFlag = 0 Then
Var PriceDrink = AmountNumber
Var DiscountDrink = 0
Var SelectDrink = "00-00-00-0000"
Var SelectSlot = "1"
Var QRCODE1 = "A000000677010112"
Var QRCODE2 = "010755600066301"
Var QRCODE3 = "VDGN"
Var QRCODE4 = BoxID
Var QRCODE5 = SelectSlot
Var QRCODE6 = SelectDrink
Var QRCODE7 = PriceDrink
Var QRCODE8 = ""
Var RemainAmount = 0
Var SessionID2 = "00" + ":"
Var SessionID2 = SessionID2 + ""
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
If CountryName = "Indonesia" Then
Var ECommerceQR = ECommerceQR + "IND:2/"
Else
Var ECommerceQR = ECommerceQR + "KBA:2/"
EndIf
Var ECommerceQR = ECommerceQR + "CRX"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TelephoneNumber
Var ECommerceQR = ECommerceQR + ":0"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
Var ReqPayInfoFlag = 1
If show_eng = "true" Then
Var TextWaiting = "Please wait..."
Else
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
Refresh
EndIf
EndIf
EndIf
EndIf
217
802
Var( DirImage + "/img3.png" )
188
640
"Enable"
Var( DirImage + text_27 )
0
817
1080
Center
62
RobotoBlack
0x513C2F
"Enable"
AmountNumber
145
820
ShowErrorText
"Enable"
Var( DirImage + text_show_error )
;
; 0
; 0
; "ROOT/taobin_project/image/ad_medium_2.png"
;
0
0
1080
380
"true"
video_menu_0
859
628
Var( DirImage + "/Exit.png" )
Var( DirImage + "/Exit.png" )
"ROOT/sounds/codebuttom.wav"
SoundVolume
Open "ROOT/taobin_project/xml/page_check_member2.xml"
5
940
"Enable"
30
Center
1080
RobotoRegular
0xFF0000
TextWaiting
Open "/media/bt/xml/security_alarm.xml"