"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var PayAmountSubDiscount = PayAmount - Seeker.IntVendingCampaign Var useCreditAmount = 0; Var useCreditTemp = 0; Var Timeout = 0 Var TimeoutSMS = 0 Var StateBGetSMS = "Enable" Var ShowSentSmsText = "Invisible" Var ShowTextNumber1 = "Invisible" Var ShowTextNumber2 = "Invisible" Var ShowTextNumber3 = "Invisible" Var ShowTextNumber4 = "Invisible" Var LoadingState = "Invisible" Var ShowLoadingIn = 3 Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var PinNumber = "" Var ReqFlag = 0 Var Xtext = 246 Var Ytext_16 = 699 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf ;inter-image If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" Var Ytext_16 = 640 EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/image/collectiing_msc/" EndIf Var Ext1a = "" Var ReqAdddata22 = 0 Var timeout_Adddata22 = 0 GenHashWithTimeStamp PointCrm If AcceptAuto = "true" Then Var AcceptAuto = "false" ;Var Tel_Confirm_State = "Enable" Var ShowTextNumber1 = "Enable" Var ShowTextNumber2= "Enable" Var ShowTextNumber3= "Enable" Var ShowTextNumber4= "Enable" Var PinNumber = web_pin Var TelephoneNumber = web_telnum If PinNumberUser = PinNumber Then Var SumCreditAmount = CoffeeCredit If SumCreditAmount >= PayAmountSubDiscount Then If ReqAdddata22 = 0 Then Var useCreditAmount = PayAmountSubDiscount Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 EndIf Else Open "ROOT/taobin_project/xml/page_payment_credit3.xml" EndIf Else Var ShowErrorText = "Enable" Var PinNumber = "" Var ShowTextNumber1 = "Invisible" Var ShowTextNumber2 = "Invisible" Var ShowTextNumber3 = "Invisible" Var ShowTextNumber4 = "Invisible" EndIf Else If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_4_digits_pin.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_4_digits_pin.mp3" EndIf EndIf 1000 ;Open "ROOT/xml/page_board.xml" Var Timeout = Timeout + 1 If Timeout > 30 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 If ShowLoadingIn <= 0 Then Var LoadingState = "Enable" Refresh Else Var ShowLoadingIn = ShowLoadingIn - 1 EndIf EndIf If StateBGetSMS = "Disable" Then Var TimeoutSMS = TimeoutSMS + 1 If TimeoutSMS > 30 Then Var StateBGetSMS = "Enable" Var TimeoutSMS = 0 Refresh EndIf EndIf TimerReset If ViewBill > 0 Then CoinVending BILLREJECT EndIf If ReqFlag = 0 Then 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 Var LoadingState = "Invisible" If useCreditTemp > 0 Then Var Seeker.CurrCreditUse = useCreditTemp EndIf 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 ;If Ext1a = "ok" Then ; If Ext1c = "" Then ; ; Open "ROOT/taobin_project/xml/page_payment_credit3.xml" ; Else ; EndIf ;Else ; Var ShowErrorText = "Enable" ; Var PinNumber = "" ; Var ShowTextNumber1 = "Invisible" ; Var ShowTextNumber2 = "Invisible" ; Var ShowTextNumber3 = "Invisible" ; Var ShowTextNumber4 = "Invisible" ;EndIf Else EndIf Refresh Var ShowErrorText = "Enable" If ReqAdddata22 = 1 Then Var LoadingState = "Invisible" Var ReqAdddata22 = 0 EndIf Refresh 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 158 601 "ROOT/taobin_project/image/collectiing/img_popup1.png" 333 1004 "ROOT/taobin_project/image/collectiing/bn_1.png" "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "1" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 477 1004 "ROOT/taobin_project/image/collectiing/bn_2.png" "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "2" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 620 1004 "ROOT/taobin_project/image/collectiing/bn_3.png" "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "3" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 333 1148 "ROOT/taobin_project/image/collectiing/bn_4.png" "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "4" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 477 1148 "ROOT/taobin_project/image/collectiing/bn_5.png" "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "5" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 620 1148 "ROOT/taobin_project/image/collectiing/bn_6.png" "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "6" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 333 1292 "ROOT/taobin_project/image/collectiing/bn_7.png" "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "7" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 477 1292 "ROOT/taobin_project/image/collectiing/bn_8.png" "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "8" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 620 1292 "ROOT/taobin_project/image/collectiing/bn_9.png" "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "9" Var ShowTextNumber = "Invisible" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 333 1432 StateBGetSMS "Enable" Var( DirImage + "/bn_getPin.png") Var( DirImage + "/bp_getPin.png") "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 ;Open "ROOT/taobin_project/xml/page_catalog.xml" Var ShowSentSmsText = "Enable" Var StateBGetSMS = "Disable" Var BmiYear = "" Var PointCrm1 = "" Var GetScore = "" AddData 13 TelephoneNumber BmiYear PointCrm1 GetScore Var ShowTextNumber1 = "Invisible" Var ShowTextNumber2 = "Invisible" Var ShowTextNumber3 = "Invisible" Var ShowTextNumber4 = "Invisible" Var PinNumber = "" Var ShowErrorText = "Invisible" Var ReqFlag = 1 TimerReset Refresh 477 1432 "ROOT/taobin_project/image/collectiing/bn_0.png" "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var PinNumber = PinNumber + "0" Trim PinNumber 4 StrLen PinNumber TelNumLen If TelNumLen >= 4 Then ;Var Tel_Confirm_State = "Enable" Function 2 EndIf Var ShowTextNumber = "Invisible" Var ShowErrorText = "Invisible" If TelNumLen > 0 Then Var ShowTextNumber1 = "Enable" EndIf If TelNumLen > 1 Then Var ShowTextNumber2= "Enable" EndIf If TelNumLen > 2 Then Var ShowTextNumber3= "Enable" EndIf If TelNumLen > 3 Then Var ShowTextNumber4= "Enable" EndIf Var ShowSentSmsText = "Invisible" TimerReset Refresh 620 1432 "ROOT/taobin_project/image/collectiing/bn_back-1.png" "ROOT/taobin_project/image/collectiing/bp_back-1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Trim PinNumber -1 ;Var Tel_Confirm_State = "Invisible" StrLen PinNumber TelNumLen If TelNumLen = 0 Then Var ShowTextNumber = "Enable" EndIf ;Var ShowErrorText = "Invisible" TimerReset Refresh If TelNumLen < 1 Then Var ShowTextNumber1 = "Invisible" EndIf If TelNumLen < 2 Then Var ShowTextNumber2= "Invisible" EndIf If TelNumLen < 3 Then Var ShowTextNumber3= "Invisible" EndIf If TelNumLen < 4 Then Var ShowTextNumber4= "Invisible" EndIf Var ShowSentSmsText = "Invisible" Var ShowErrorText = "Invisible" TimerReset Refresh 397 1607 Var( DirImage + "/bn_back.png") Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume DEBUGVAR "USER BN_BACK" If ReqAdddata22 = 1 Then Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 24 TelephoneNumber BmiYear PointCrm GetScore EndIf Open "ROOT/taobin_project/xml/page_payment_credit.xml" 577 1607 "Enable" Tel_Confirm_State Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bn_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume 242 830 Var( DirImage + "/img4.png" ) 289 870 ShowTextNumber1 "Enable" Var( DirImage + "/text_X.png" ) 446 870 ShowTextNumber2 "Enable" Var( DirImage + "/text_X.png" ) 603 870 ShowTextNumber3 "Enable" Var( DirImage + "/text_X.png" ) 758 870 ShowTextNumber4 "Enable" Var( DirImage + "/text_X.png" ) 188 Ytext_16 Var( DirImage + "/text_16.png" ) 444 945 "Enable" ShowErrorText Var( DirImage + "/text_show_notfound.png") Xtext 945 "Enable" ShowSentSmsText Var( DirImage + "/text_show_sentSMS.png") 158 601 LoadingState "ROOT/taobin_project/image/collectiing/alpha_loading.png" 494 1078 94 94 LoadingState "ROOT/taobin_project/image/page_payment/loading.gif" ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml" If NewFlowPaymentCode = 1 Then Var ShowSentSmsText = "Invisible" Var Timeout = 0 If PinNumberUser = PinNumber Then Var SumCreditAmount = CoffeeCredit If SumCreditAmount >= PayAmountSubDiscount Then If SumCreditAmount >= 100 Then If ReqAdddata22 = 0 Then Var useCreditAmount = PayAmountSubDiscount Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ShowLoadingIn = 3 Var ReqAdddata22 = 1 Refresh EndIf Else Open "ROOT/taobin_project/xml/page_payment_credit3-0.xml" EndIf Else Var ShowNotEnoughText = "Enable" Var Seeker.TNumberTaobinCredit = TelephoneNumber Var Seeker.CoffeePinNumber = PinNumber Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" EndIf Else Var ShowErrorText = "Enable" Var PinNumber = "" Var ShowTextNumber1 = "Invisible" Var ShowTextNumber2 = "Invisible" Var ShowTextNumber3 = "Invisible" Var ShowTextNumber4 = "Invisible" EndIf Var ReqFlag = 0 Refresh Else Var ShowSentSmsText = "Invisible" Var Timeout = 0 If PinNumberUser = PinNumber Then Var SumCreditAmount = CoffeeCredit If SumCreditAmount >= PayAmountSubDiscount Then If ReqAdddata22 = 0 Then ;If Seeker = "next" Then ; Var Curr = "curr" ; If TelephoneNumber = Curr.CurrCreditTelNum Then ; Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount ; EndIf ;EndIf Var useCreditAmount = PayAmountSubDiscount Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 EndIf Else Open "ROOT/taobin_project/xml/page_payment_credit3.xml" EndIf Else Var ShowErrorText = "Enable" Var PinNumber = "" Var ShowTextNumber1 = "Invisible" Var ShowTextNumber2 = "Invisible" Var ShowTextNumber3 = "Invisible" Var ShowTextNumber4 = "Invisible" EndIf ;Var DataTmp = TelephoneNumber + "/" ;Var DataTmp = DataTmp + PinNumber ;GETACCEXT DataTmp 19 Var ReqFlag = 0 Refresh EndIf