"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 Var ReqTimeout = 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" ;inter-image If CountryName = "Malaysia" Then Var img_popup11 = "/img_popup18.png" EndIf ;inter-image 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 Var UseCreditState = "Enable" Var LOADING_REQ_ADDDATA22_STATE = "Invisible" 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 = 1 Then Var ReqTimeout = ReqTimeout + 1 If ReqTimeout = 15 Then SAVELOG "Error ReqAdddata22 timeout." Var ShowErrorText = "Enable" If ReqAdddata22 = 1 Then Var ReqAdddata22 = 0 Var UseCreditState = "Enable" Var LOADING_REQ_ADDDATA22_STATE = "Invisible" EndIf EndIf EndIf Refresh TimerReset If ReqAdddata22 = 1 Then Var Seeker.CreditReferenceTmp = "" + useCreditAmount Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm Var Seeker.CreditEnoughRefID = PointCrm CoinVending OFF Var Seeker.TNumberTaobinCredit = TelephoneNumber Var Seeker.CoffeePinNumber = PinNumber Var Seeker.StoreCreditFlag = 1 Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount Var VendingCreditRemain = "" + SumCreditAmount Var Seeker.UseCreditPayFullDrinkPrice = 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 ;include="ROOT/taobin_project/xml/sometime/make_drink.xml" EndIf Var ReqAdddata22 = 0 EndIf Var ShowErrorText = "Enable" Var UseCreditState = "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 UseCreditState 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 ReqTimeout = 0 Var Timeout = 0 Var ShowErrorText = "Invisible" Var UseCreditState = "Disable" Var ReqAdddata22 = 1 Var LOADING_REQ_ADDDATA22_STATE = "Enable" Refresh EndIf 508 1080 45 45 LOADING_REQ_ADDDATA22_STATE "ROOT/taobin_project/image/page_payment/loading.gif" 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") ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml"