"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 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 alphaState = "Enable" Var ReqAdddata22 = 0 Var PayCreditOK = 0 Var ReqAdddata22_Error = 0 Var Timeout_Error = 0 If ViewBill > 0 Then CoinVending BILLREJECT 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" 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" EndIf If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/image/collectiing_msc" 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 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 If ReqAdddata22_Error = 1 Then Var Timeout_Error = Timeout_Error + 1 If Timeout_Error >= 5 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 EndIf TimerReset If ViewBill > 0 Then CoinVending BILLREJECT EndIf If VendingExtResult = "" Then Else Var VendingExtResult = "" If ReqAdddata22 = 0 Then GenHashWithTimeStamp PointCrm Var useCreditAmount = PayAmountSubDiscount Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 Var Timeout = 0 EndIf EndIf If ReqAdddata22 = 1 Then Var Seeker.CreditReferenceTmp = "" + useCreditAmount Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm CoinVending OFF Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml" EndIf Refresh If ReqAdddata22 = 1 Then Var ShowErrorText = "Enable" Var ReqAdddata22_Error = 1 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" 249 748 Var( DirImage + "/img_popup20.png") 438 1345 Var( DirImage + "/bn_cancel3.png" ) Var( DirImage + "/bp_cancel3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" 445 958 200 200 alphaState testservice 181 758 ShowErrorText Var( DirImage + "/img_popup20-Failed.png" ) ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml"