"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 Var SumCreditAmount = TaobinCredit Var CashlessPayFlag = 0 Var LOADING_STATE = "Invisible" Var alphaState = "Invisible" Var PayAmount = 0 Var AdditionalAmount = 0 Var ChangeOK = 0 Var QRErrorState = "Invisible" Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/inter/aus/image/page_member_topup" 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" Var text_4 = "/text_4-MYR.png" Var PayCreditChannel = "credit-card" Var OptionAmount1 = 2900 Var OptionAmount2 = 3900 Var OptionAmount3 = 4900 Var AmountAdditionCredit1 = 0 Var AmountAdditionCredit2 = 0 Var AmountAdditionCredit3 = 0 ; Enable / Disable promotion additional credit Var PromotionAdditionCredit = 1 If PromotionAdditionCredit = 1 Then Var AmountAdditionCredit1 = 300 Var AmountAdditionCredit2 = 500 Var AmountAdditionCredit3 = 800 EndIf INT TaobinCredit Var TaobinCreditStr !assigned StringFmt( TaobinCredit, DisplayFormat, PreScaleConvertShow ) 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then Var alphaState = "Invisible" Var LOADING_STATE = "Invisible" Var QRErrorState = "Invisible" If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL Else CashlessReq OFF EndIf Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml" Open CheckMemberPage2 EndIf TimerReset Refresh Open "/media/bt/xml/security_alarm.xml" If VendingCashless = "OK" Then CashlessReq SUCCESS Var ToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml" Open ToppupSuccessPage EndIf If VendingCashless = "ERROR" Then Var Timeout = 0 ;Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" EndIf CashlessReq FAIL EndIf Refresh Var CreditCardRef = "" GenHashWithTimeStamp CreditCardRef DEBUGVAR VendingCashless If VendingCashless = "READY" Then Var Timeout = 0 Var QRErrorState = "Invisible" Var QR_POPUP = "/img_popup8-2.png" Var VendingCashless = "-" Var LOADING_STATE = "Enable" Var alphaState = "Enable" Var TopupAmount = PayAmount Var PromoAmount = AdditionalAmount CashlessPayV2 TopupAmount CreditCardRef PromoAmount Var CashlessPayFlag = 1 EndIf Refresh 70 499 Var( DirImage + "/text_3.png" ) 252 1223 Var( DirImage + text_4 ) 0 1280 120 Center 1080 KanitRegularTTF 0xDE794E TaobinCreditStr 287 670 Var( DirImage2 + "/bn_topup_29.png") Var( DirImage2 + "/bp_topup_29.png") Var( DirImage2 + "/bp_topup_29.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var PayAmount = OptionAmount1 Var Timeout = 0 If PromotionAdditionCredit = 1 Then Var AdditionalAmount = AmountAdditionCredit1 EndIf If alphaState = "Invisible" Then Var QR_POPUP = "/img_popup8.png" Var alphaState = "Enable" Coin CARD EndIf 287 800 Var( DirImage2 + "/bn_topup_39.png") Var( DirImage2 + "/bp_topup_39.png") Var( DirImage2 + "/bp_topup_39.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var PayAmount = OptionAmount2 Var Timeout = 0 If PromotionAdditionCredit = 1 Then Var AdditionalAmount = AmountAdditionCredit2 EndIf If alphaState = "Invisible" Then Var QR_POPUP = "/img_popup8.png" Var alphaState = "Enable" Coin CARD EndIf 287 930 Var( DirImage2 + "/bn_topup_49.png") Var( DirImage2 + "/bp_topup_49.png") Var( DirImage2 + "/bp_topup_49.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var PayAmount = OptionAmount3 Var Timeout = 0 If PromotionAdditionCredit = 1 Then Var AdditionalAmount = AmountAdditionCredit3 EndIf If alphaState = "Invisible" Then Var QR_POPUP = "/img_popup8.png" Var alphaState = "Enable" Coin CARD EndIf 397 1622 Var( DirImage + "/bn_cancel2.png" ) Var( DirImage + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL EndIf Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml" Open CheckMemberPage2 ; QR popup 0 380 alphaState "ROOT/taobin_project/image/page_payment/alpha.png" 249 748 alphaState Var( DirImage + QR_POPUP ) 267 1065 LOADING_STATE Var( DirImage + "/loadingText.png" ) 493 968 94 94 LOADING_STATE Var( DirImage + "/loading.gif" ) 438 1345 alphaState Var( DirImage + "/bn_cancel.png" ) Var( DirImage + "/bp_cancel.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var LOADING_STATE = "Invisible" Var QRErrorState = "Invisible" Var alphaState = "Invisible" CashlessReq OFF If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL EndIf DEBUGVAR LOADING_STATE DEBUGVAR QRErrorState DEBUGVAR alphaState Refresh 267 960 QRErrorState Var( DirImage + "/QRError.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var MemberToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml" Open MemberToppupSuccessPage