"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 Var SumCreditAmount = TaobinCredit If show_eng = "true" Then If LanguageShow = "MYANMAR" Then SetLanguage "MYANMAR" Else SetLanguage "ENG" EndIf Else SetLanguage "THAI" EndIf RootLayoutVisible 3 "hide" Var PayState1 = "Enable" Var PayState3 = "Enable" Var alphaState = "Invisible" Var alphaState2 = "Enable" Var alphaState3 = "Invisible" Var confirmButtonState = "Invisible" Var img_popup11 = "/img_popup11.png" Var img_popup15 = "/img_popup15.png" ;inter-image If CountryName = "Malaysia" Then Var img_popup11 = "/img_popup11-MYR.png" Var img_popup15 = "/img_popup15-MYR.png" EndIf ;inter-image If CountryName = "Indonesia" Then Var img_popup11 = "/img_popup11-IDR.png" Var img_popup15 = "/img_popup15-IDR.png" EndIf Var PayAmount = 0 Var RemainAmountStr !assigned StringFmt( PayAmount, DisplayFormat, PreScaleConvertShow ) If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" Else Var RemainAmountStr = "Top-up " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=110" EndIf Else Var RemainAmountStr = "เติม " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" EndIf Var CoinInFlag = 0 Var CoinInOK = 0 Var ChangeOK = 0 Var PayOK = 0 Var CancelFlag = 0 Var ChangeFlag2 = 0 Var Seeker.StoreCreditFlag = 1 CoinVending XBILL Var ChangeTimeout = 0 Var CancelCounter = 0 Var ServiceAmount2 = PayAmount Var ServiceCharge = 0 Var Donate = "" Var SuggestID = "" DEBUGVAR LanguageShow If LanguageShow = "ENG" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" 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/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" 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/page_payment_mmr/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr" 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 > 180 Then If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleAlpha2 > Timeout Order." CoinVending OFF If CoinAmount = 0 Then Var CancelFlag = 1 Var CancelCounter = 0 If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။" Else Var RemainAmountStr = "Cancelled" EndIf Else Var RemainAmountStr = "ยกเลิก" EndIf Else Var CoinInOK = 1 Var CoinInCounter = 0 If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။" Else Var RemainAmountStr = "Keep credit" EndIf Else Var RemainAmountStr = "เก็บเครดิต" EndIf CoinVending BILLSTACKALL EndIf EndIf EndIf EndIf If ChangeOK = 1 Then If CancelFlag = 0 Then Var TxRef1 = "" CreateTxRef1 TxRef1 Var PayAmount = CoinAmount Open "ROOT/taobin_project/xml/page_member_topupSuccess.xml" Else Var TelephoneNumber = TelephoneNumber Var PayO2 = PinNumber Var ServiceAmount2 = CoinAmount Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = "00-00-00-0000" Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf Else EndIf If PayOK = 1 Then Var ChangeTimeout = ChangeTimeout + 1 If ChangeTimeout > 30 Then Var ChangeOK = 1 EndIf EndIf If CoinInOK = 1 Then Var CoinInCounter = CoinInCounter + 1 If CoinInCounter = 1 Then Var PayOK = 1 If CoinAmount > 0 Then Var ChangeOK = 1 EndIf EndIf EndIf If CancelFlag = 1 Then Var CancelCounter = CancelCounter + 1 If CancelCounter = 2 Then ;Change CoinAmount If CoinAmount > 0 Then Var CancelFlag = 0 Var CancelCounter = 0 Var ChangeTimeout = 0 Else Var ChangeOK = 1 EndIf EndIf Var ChangeTimeout = ChangeTimeout + 1 If ChangeTimeout > 30 Then Var ChangeOK = 1 EndIf EndIf TimerReset Refresh If ChangeStatus = "payout-end" Then If ChangeFlag2 = 1 Then Var ChangeOK = 1 EndIf EndIf Open "/media/bt/xml/security_alarm.xml" TimerReset Var CoinInFlag = 1 Var confirmButtonState = "Enable" Var alphaState2 = "Invisible" If ViewBill > 0 Then CoinVending BILLSTACKALL Var Timeout = 0 Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow ) If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" Else Var RemainAmountStr = "Top-up " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" EndIf Else Var RemainAmountStr = "เติม " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=110" EndIf Var showRemaining = charOfBaht + RemainAmountStr Else If CoinInOK = 0 Then If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow ) Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" Else Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow ) Var RemainAmountStr = "Top-up " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" EndIf Else Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow ) Var RemainAmountStr = "เติม " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=110" EndIf Var Timeout = 0 Var showRemaining = charOfBaht + RemainAmountStr EndIf EndIf Refresh If CoinInFlag = 1 Then If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "VDCancle > Cancle Order." CoinVending OFF If CoinAmount = 0 Then Var CancelFlag = 1 Var CancelCounter = 0 If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။" Else Var RemainAmountStr = "Cancelled" EndIf Else Var RemainAmountStr = "ยกเลิก" EndIf Else Var ChangeOK = 1 If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။" Else Var RemainAmountStr = "Keep credit" EndIf Else Var RemainAmountStr = "เก็บเครดิต" EndIf CoinVending BILLSTACKALL EndIf Refresh EndIf EndIf EndIf ;include="ROOT/taobin_project/inc/video.inc" 70 499 Var( DirImage + "/text_3.png" ) 252 1223 Var( DirImage + "/text_4.png" ) 0 1280 144 Center 1080 KanitRegularTTF 0xDE794E SumCreditAmount 287 638 PayState1 Var( DirImage + "/bn_cashS.png") Var( DirImage + "/bp_cashS.png") Var( DirImage + "/bp_cashS.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 287 819 PayState3 Var( DirImage + "/bn_prompt_payS.png") Var( DirImage + "/bp_prompt_payS.png") Var( DirImage + "/bp_prompt_payS.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 397 1622 Var( DirImage + "/bn_cancel2.png" ) Var( DirImage + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 990 416 show_eng_button_stage show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; QR popup 0 380 "ROOT/taobin_project/image/page_payment/alpha.png" 182 748 Var( DirImage2 + img_popup11 ) 253 1041 144 center-vertical-horizontal 576 180 KanitRegularTTF 0xDE794E RemainAmountStr 330 1355 alphaState2 Var( DirImage + "/bn_cancel3.png" ) Var( DirImage + "/bp_cancel3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleAlpha2 > Cancle Order." CoinVending OFF If CoinAmount = 0 Then Var CancelCounter = 0 Var CancelFlag = 1 If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။" Else Var RemainAmountStr = "Cancelled" EndIf Else Var RemainAmountStr = "ยกเลิก" EndIf Else Var ChangeOK = 1 If show_eng = "true" Then If LanguageShow = "MYANMAR" Then Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။" Else Var RemainAmountStr = "Keep credit" EndIf Else Var RemainAmountStr = "เก็บเครดิต" EndIf CoinVending BILLSTACKALL EndIf Refresh EndIf EndIf Refresh 330 1355 confirmButtonState Var( DirImage + "/bn_confirm2.png" ) Var( DirImage + "bp_confirm2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInOK = 0 Then SAVELOG "ButtonConfirm" CoinVending OFF Var CoinInOK = 1 Var CoinInCounter = 0 EndIf