"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 Var Tel_Confirm_State = "Disable" Var ShowNotEnoughText = "Invisible" ;Var CoffeeCredit = Ext1b ;INT CoffeeCredit Var SumCreditAmount = CoffeeCredit Var SumCreditAmount2 = SumCreditAmount Var useCreditTemp = 0; Var NotEnoughFlag = 0 Var timeCountUp = 0 If SumCreditAmount >= PayAmount Then Var Tel_Confirm_State = "Enable" Else Var Tel_Confirm_State = "Enable" Var ShowNotEnoughText = "Enable" Var NotEnoughFlag = 1 Var AcceptAuto = "false" If Seeker = "next" Then Var Curr = "curr" If TelephoneNumber = Curr.CurrCreditTelNum Then Var SumCreditAmount2 = SumCreditAmount + Curr.CurrCreditAmount EndIf EndIf If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Your_credit_balance_not_enough.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Your_credit_balance_not_enough.mp3" EndIf EndIf Var ShowLoadingText = "Invisible" Var ShowErrorText = "Invisible" If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf Var PrepareFlag = 0 Var PrepareTime = 0 Var ReqAdddata22 = 0 Var timeout_Adddata22 = 0 GenHashWithTimeStamp PointCrm ;Var Tel_Confirm_State = "Invisible" Var showRemaining !assigned StringFmt( SumCreditAmount2, DisplayFormat, PreScaleConvertShow ) Var img_popup11 = "/img_popup11.png" If CountryName = "Malaysia" Then Var img_popup11 = "/img_popup11-MYR.png" EndIf If CountryName = "Indonesia" Then Var img_popup11 = "/img_popup11-IDR.png" EndIf 1000 ;Open "ROOT/xml/page_board.xml" If ReqAdddata22 = 0 Then Var Timeout = Timeout + 1 Else Var timeout_Adddata22 = timeout_Adddata22 + 1 If timeout_Adddata22 > 30 Then Var Tel_Confirm_State = "Enable" Var ShowLoadingText = "Invisible" Var ReqAdddata22 = 0 Var timeout_Adddata22 = 0 Var ShowErrorText = "Enable" EndIf EndIf If AcceptAuto = "true" Then If Timeout > 3 Then Var AcceptAuto = "false" Var BmiYear = PayAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 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 Refresh TimerReset If ReqAdddata22 = 1 Then If NotEnoughFlag = 0 Then Var Seeker.CreditReferenceTmp = "" + PayAmount Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm CoinVending OFF Var Seeker.TNumberTaobinCredit = TelephoneNumber Var Seeker.CoffeePinNumber = PinNumber Var Seeker.StoreCreditFlag = 1 If CART_COUNT >= 1 Then Cart "PreparID" 1 Var CART_INDEX = 1 Var PayReference = "" GenHashWithTimeStamp PayReference Cart "MakeID" CART_INDEX Open "ROOT/taobin_project/xml/page_thankyou.xml" Else Var CART_INDEX = 0 If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 Else DEBUGVAR Seeker Var TxRef1 = "" CreateTxRef1 TxRef1 Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf Else Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 Var Seeker.CodeChannel = 0 Var Seeker.TNumberTaobinCredit = TelephoneNumber Var Seeker.CoffeePinNumber = PinNumber Var Seeker.IntVendingCredit = SumCreditAmount2 Var Seeker.CreditReferenceTmp = "" + SumCreditAmount Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm Var Seeker.StoreCreditFlag = 1 If useCreditTemp > 0 Then Var Seeker.CurrCreditUse = useCreditTemp EndIf 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 Var ReqAdddata22 = 0 EndIf If ReqAdddata22 = 1 Then Var Tel_Confirm_State = "Enable" Var ShowLoadingText = "Invisible" Var ReqAdddata22 = 0 Var timeout_Adddata22 = 0 Var ShowErrorText = "Enable" EndIf If ViewBill > 0 Then CoinVending BILLREJECT Else 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 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 182 748 Var( DirImage + img_popup11 ) 0 1041 144 Center 1080 KanitRegularTTF 0xDE794E showRemaining 261 1345 Var( DirImage + "/bn_cancel3.png") Var( DirImage + "/bp_cancel3.png") "ROOT/sounds/codebuttom.wav" SoundVolume Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 Var Seeker.CodeChannel = 0 SAVELOG "payment_credit3-p121." 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 624 1345 Tel_Confirm_State Var( DirImage + "/bn_useCredit.png" ) Var( DirImage + "/bp_useCredit.png" ) Var( DirImage + "/bp_useCredit.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume If ReqAdddata22 = 0 Then If NotEnoughFlag = 0 Then Var BmiYear = PayAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 Else SAVELOG "payment_credit3-p227." If Seeker = "next" Then Var Curr = "curr" If TelephoneNumber = Curr.CurrCreditTelNum Then Var useCreditTemp = Curr.CurrCreditAmount EndIf EndIf Var BmiYear = SumCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 EndIf EndIf Var ShowNotEnoughText = "Invisible" Var ShowErrorText = "Invisible" Var ShowLoadingText = "Enable" Var Tel_Confirm_State = "Disable" Var Timeout = 0 Refresh 230 920 ShowNotEnoughText Var( DirImage + "/text_show_notEnough.png") 260 920 ShowLoadingText Var( DirImage + "/loadingText.png") 260 920 ShowErrorText Var( DirImage + "/loadingTextError.png") ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; Open "/media/bt/xml/security_alarm.xml"