"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open VendingQR OFF Var Timeout = 0 Var AmountNumber = "" Var loadingReqState = "Invisible" Var ShowTextNumber = "Enable" Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var GetCreditFlag = 0 ;inter-multi If show_eng = "true" Then If LanguageShow = "MYANMAR" Then SetLanguage "MYANMAR" Else If LanguageShow = "MSC" Then SetLanguage "MSC" Else SetLanguage "ENG" EndIf EndIf Else SetLanguage "THAI" EndIf Var Ext1a = "" Var GetAccFlag = 0 Var GetPayInfoFlag = 0 Var ReqPayWithCash = 0 Var TextWaiting = "" GenHashWithTimeStamp PointCrm Var text_44 = "/text_44.png" Var text_show_amountInvalid = "/text_show_amountInvalid.png" Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png" If SumCreditAmount < PayAmountSubDiscount Then Var Min = PayAmountSubDiscount - SumCreditAmount If show_eng = "true" Then If LanguageShow = "MYANMAR" Then SetLanguage "MYANMAR" Else If LanguageShow = "MSC" Then SetLanguage "MSC" Else SetLanguage "ENG" EndIf EndIf Else SetLanguage "THAI" EndIf Else Var text_44 = "/text_45.png" If show_eng = "true" Then If LanguageShow = "MYANMAR" Then SetLanguage "MYANMAR" Else If LanguageShow = "MSC" Then SetLanguage "MSC" Else SetLanguage "ENG" EndIf EndIf Else SetLanguage "THAI" EndIf Var Min = PayAmountSubDiscount EndIf ;Var Min = PayAmountSubDiscount Var Max = 5000 ;inter-image If CountryName = "Malaysia" Then Var text_44 = "/text_44-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 ;inter-image If CountryName = "Singapore" Then Var text_44 = "/text_44-SGP.png" Var text_show_amountInvalid = "/text_show_amountInvalid-SGP.png" Var text_show_amountInvalid2 = "/text_show_amountInvalid2-SGP.png" ;Var Min = 2 Var Max = 500 EndIf ;inter-image If CountryName = "Indonesia" Then Var text_44 = "/text_44-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 DEBUGVAR LanguageShow ;inter-image If LanguageShow = "ENG" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" If SumCreditAmount < PayAmountSubDiscount Then Var Text_X = 170 Var posX = 250 Else Var Text_X = 263 Var posX = 350 EndIf EndIf If LanguageShow = "THAI" Then Var DirImage = "ROOT/taobin_project/image/collectiing" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" If SumCreditAmount < PayAmountSubDiscount Then Var Text_X = 255 Var posX = 380 Else Var Text_X = 246 Var posX = 380 EndIf EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr" If SumCreditAmount < PayAmountSubDiscount Then Var Text_X = 170 Var posX = 250 Else Var Text_X = 263 Var posX = 350 EndIf EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/image/collectiing_msc" If SumCreditAmount < PayAmountSubDiscount Then Var Text_X = 170 Var posX = 250 Else Var Text_X = 263 Var posX = 350 EndIf EndIf SAVELOG "EventLanguageOnChange menu -list" If InternationalEnable = 1 Then If CountryName = "Thailand" Then Var show_eng_button_stage = "Invisible" Var LanguageButtonEnable = "Enable" EndIf Else Var LanguageButtonEnable = "Invisible" Var show_eng_button_stage = "Enable" EndIf OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" RefreshAll 1000 Var Timeout = Timeout + 1 If loadingState = "Enable" Then If Timeout > 50 Then If ReqPayWithCash = 1 Then Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 24 TelephoneNumber BmiYear PointCrm GetScore EndIf Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 ;Var Seeker.CodeChannel = 0 If CART_COUNT >= 1 Then Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf EndIf EndIf If Timeout > 60 Then Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 ;Var Seeker.CodeChannel = 0 If CART_COUNT >= 1 Then Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf EndIf TimerReset If ViewBill > 0 Then CoinVending BILLREJECT EndIf 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 Var VendingExtResult = "" Open "ROOT/taobin_project/xml/page_payment_credit3-TopupQR.xml" EndIf If ReqPayWithCash = 1 Then Var Seeker.CreditReferenceTmp = "" + useCreditAmount Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm Var Seeker.StoreCreditFlag = 1 Var Seeker.CreditNotEnoughRefID = PointCrm Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml" EndIf Refresh If GetPayInfoFlag = 1 Then Var QRCODE99 = "" If show_eng = "true" Then ;inter-text If LanguageShow = "MYANMAR" Then Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။" Else If LanguageShow = "MSC" Then Var TextWaiting = "无法使用二维码，请稍后再试。" Else Var TextWaiting = "Unable to use QR, please try again later." EndIf EndIf Else Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง." EndIf Var AmountNumber = "" Var Tel_Confirm_State = "Invisible" EndIf Refresh 990 416 show_eng_button_stage 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_payment_credit3-1.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 If ReqPayWithCash = 0 Then Var TelephoneNumber = Seeker.TNumberTaobinCredit Var useCreditAmount = SumCreditAmount Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqPayWithCash = 1 EndIf Else If GetPayInfoFlag = 0 Then Var CreditAmount = AmountNumber Var DiscountDrink = 0 Var SelectSlot = "1" Var QRCODE1 = "A000000677010112" Var QRCODE2 = "010755600066301" Var QRCODE3 = "VDGN" Var QRCODE4 = BoxID Var QRCODE5 = SelectSlot Var QRCODE6 = "00-00-00-0000" Var QRCODE7 = CreditAmount 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 + CreditAmount Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + DiscountDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SessionID2 Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + "00-00-00-0000" Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + "KBA:2/" Var ECommerceQR = ECommerceQR + "CRX" Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit 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 Refresh EndIf EndIf If show_eng = "true" Then ;inter-text If LanguageShow = "MYANMAR" Then Var TextWaiting = "ခဏစောင့်ပါ။..." Else If LanguageShow = "MSC" Then Var TextWaiting = "请稍等..." Else Var TextWaiting = "Please wait..." EndIf EndIf Else Var TextWaiting = "กรุณารอซักครู่..." EndIf Var loadingReqState = "Enable" Refresh EndIf EndIf posX 680 60 Right 250 KanitRegularTTF 0xDE794E Min 217 802 Var( DirImage + "/img3.png" ) Text_X 650 "Enable" Var( DirImage + text_44 ) 0 817 1080 Center 62 RobotoBlack 0x513C2F "Enable" AmountNumber 145 820 ShowErrorText "Enable" Var( DirImage + text_show_error ) ;include="ROOT/taobin_project/inc/video.inc" 158 601 loadingReqState "ROOT/taobin_project/image/collectiing/alpha_loading.png" 494 1078 94 94 loadingReqState "ROOT/taobin_project/image/page_payment/loading.gif" 5 940 "Enable" 30 Center 1080 RobotoRegular 0xFF0000 TextWaiting Open "/media/bt/xml/security_alarm.xml"