"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf Var img_popup11 = "/img_popup18.png" If CountryName = "Malaysia" Then Var img_popup11 = "/img_popup18.png" EndIf If CountryName = "Indonesia" Then Var img_popup11 = "/img_popup18.png" EndIf Var showRemaining !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow ) Var ShowErrorText = "Invisible" Var ReqAdddata22 = 0 Var timeout_Adddata22 = 0 GenHashWithTimeStamp PointCrm Var Seeker.TNumberTaobinCredit = TelephoneNumber Var Seeker.CoffeePinNumber = PinNumber 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 Refresh TimerReset If ReqAdddata22 = 1 Then Var Seeker.CreditReferenceTmp = "" + useCreditAmount 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 Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount Var VendingCreditRemain = "" + SumCreditAmount 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 Var ReqAdddata22 = 0 EndIf Var ShowErrorText = "Enable" Refresh If ReqAdddata22 = 1 Then Var ReqAdddata22 = 0 EndIf If ViewBill > 0 Then CoinVending BILLREJECT Else EndIf 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 181 647 Var( DirImage + img_popup11 ) 0 845 144 Center 1080 KanitRegularTTF 0xDE794E showRemaining 287 1426 Var( DirImage + "/bn_cancel4.png") Var( DirImage + "/bp_cancel4.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 287 1140 Var( DirImage + "/bn_useCredit2.png" ) Var( DirImage + "/bp_useCredit2.png" ) Var( DirImage + "/bp_useCredit2.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume If ReqAdddata22 = 0 Then Var useCreditAmount = PayAmountSubDiscount Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 EndIf 287 1283 Var( DirImage + "/bn_useCredit3.png" ) Var( DirImage + "/bp_useCredit3.png" ) Var( DirImage + "/bp_useCredit3.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume Var ShowNotEnoughText = "Invisible" Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" 156 1050 "Enable" ShowErrorText Var( DirImage + "/text_show_notOperate.png") Open "/media/bt/xml/security_alarm.xml"