"Enable" 1080 1920 "0xeae6e1" SoundVolume "Partial" ; On open 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 ShowText = "Enable" Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var PinNumber = "" Var ReqFlag = 0 Var Xtext = 246 If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Var Xtext = 246 Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf Var Ext1a = "" Var GetAccFlag = 0 Var StepX = 0 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 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then Open "ROOT/taobin_project/xml/page_check_member.xml" EndIf TimerReset Refresh If StepX = 1 Then If Ext1a = "ok" Then Var TaobinName = Ext1d Var TaobinCoupons = Ext1g Var TaobinExpire = Ext1f Var TaobinLevel = Ext1e Var TNumberTaobinMemberXXX = TelephoneNumber Var CoffeePointRank = Ext1b INT CoffeePointRank Var CoffeePointRankTmp = CoffeePointRank GETACCEXT TelephoneNumber 15 Var StepX = 2 Var Ext1a = "" Else Var ShowErrorText = "Enable" Var ShowText = "Invisible" EndIf Else If StepX = 2 Then Var PolygonST1 = "Invisible" Var PolygonST2 = "Invisible" Var CouponSTA = "Invisible" Var CouponSTB = "Invisible" Var CouponPage = 1 Var MakeDrinkState = 0 Var CouponInfo1 = Ext1a Var CouponInfo2 = Ext1b Var CouponInfo3 = Ext1c Var CouponInfo4 = Ext1d Var CouponInfo5 = Ext1e Var CouponInfo6 = Ext1f Var CouponInfo7 = Ext1g Var CouponInfo8 = Ext1h Var CouponInfo9 = Ext1i Var CouponInfo10 = Ext1j Open "ROOT/taobin_project/xml/page_check_member2.xml" EndIf EndIf If GetAccFlag = 1 Then Var GetAccFlag = 0 If Ext1a = "ok" Then Var TaobinCredit = Ext1b GETACCEXT TelephoneNumber 14 Var StepX = 1 Var Ext1a = "" ;Open "ROOT/taobin_project/xml/page_check_member2.xml" Else Var ShowErrorText = "Enable" Var ShowText = "Invisible" Var ShowTextNumber1 = "Invisible" Var ShowTextNumber2 = "Invisible" Var ShowTextNumber3 = "Invisible" Var ShowTextNumber4 = "Invisible" Var PinNumber = "" Var Tel_Confirm_State = "Invisible" EndIf EndIf Refresh If GetAccFlag = 1 Then Var ShowErrorText = "Enable" Var ShowText = "Invisible" Var GetAccFlag = 0 Var ShowTextNumber1 = "Invisible" Var ShowTextNumber2 = "Invisible" Var ShowTextNumber3 = "Invisible" Var ShowTextNumber4 = "Invisible" Var PinNumber = "" Var Tel_Confirm_State = "Invisible" EndIf If StepX = 1 Then Var ShowErrorText = "Enable" Var ShowText = "Invisible" EndIf If StepX = 2 Then Var ShowErrorText = "Enable" Var ShowText = "Invisible" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" EndIf Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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 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" EndIf Var ShowTextNumber = "Invisible" Var ShowErrorText = "Invisible" Var ShowText = "Enable" 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" Var ShowText = "Enable" TimerReset Refresh 398 1600 "Enable" Tel_Confirm_State Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume If GetAccFlag = 0 Then Var DataTmp = TelephoneNumber + "/" Var DataTmp = DataTmp + PinNumber GETACCEXT DataTmp 19 Var GetAccFlag = 1 EndIf 333 1432 Var( DirImage + "/bn_getPin.png") Var( DirImage + "/bp_getPin.png") "ROOT/sounds/codebuttom.wav" SoundVolume Var BmiYear = "" Var PointCrm = "" Var GetScore = "" AddData 13 TelephoneNumber BmiYear PointCrm GetScore Var PinSMSFlag = 1 Open "ROOT/taobin_project/xml/page_payment_changePinSMS.xml" 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 640 "Enable" ShowText Var( DirImage + "/text_16.png" ) 188 638 "Enable" ShowErrorText Var( DirImage + "/text_25.png") 859 628 Var( DirImage + "/Exit.png" ) Var( DirImage + "/Exit.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume Open "ROOT/taobin_project/xml/page_check_member.xml" Open "/media/bt/xml/security_alarm.xml"