1080 1920 Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var ShowTextNumber = "Enable" Var Timeout = 0 Var TelephoneNumber = "" Var TelephoneNumberX = "" If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collect_point1_en" ;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Else Var DirImage = "ROOT/taobin_project/image/collect_point1" ;Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" EndIf ;inter-image If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collect_point1_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/image/collect_point1_msc" EndIf Var CurrentAlertName = AlertProductName[LanguageShowByIndex] Var CurrentAlertProductCode = "" ; concat-all If AlertProductCode[0] = "-" Then Else Var CurrentAlertProductCode = CurrentAlertProductCode + AlertProductCode[0] EndIf Var CurrentAlertProductCode = CurrentAlertProductCode + "," If AlertProductCode[1] = "-" Then Else Var CurrentAlertProductCode = CurrentAlertProductCode + AlertProductCode[1] EndIf Var CurrentAlertProductCode = CurrentAlertProductCode + "," If AlertProductCode[2] = "-" Then Else Var CurrentAlertProductCode = CurrentAlertProductCode + AlertProductCode[2] EndIf Var CurrentAlertProductCode = CurrentAlertProductCode + "," DEBUGVAR CurrentAlertName DEBUGVAR CurrentAlertProductCode 1000 StrLen TelephoneNumber TelNumLen If TelNumLen > 0 Then Var ShowTextNumber = "Invisible" EndIf DEBUGVAR Timeout Var Timeout = Timeout + 1 If Timeout > 30 Then TabMenuVisibleInst 99 RootLayoutVisible 13 "hide" Var AlertSMSButtonPause = "false" Var OpenFromMulti = 1 OpenInst 2 "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml" EndIf If Timeout = 18 Then Var date_time_str = "" STRDATETIME date_time_str Var date_time_str = "/mnt/sdcard/scn_" + date_time_str Var date_time_str = date_time_str + ".png" DEBUGVAR date_time_str SCREEN_CAP date_time_str EndIf If Timeout = 9 Then ;RefreshAll EndIf Refresh TimerReset 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 158 665 "ROOT/taobin_project/image/collectiing/img_popup1.png" 333 1086 "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 TelephoneNumber = TelephoneNumber + "1" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1086 "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 TelephoneNumber = TelephoneNumber + "2" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1086 "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 TelephoneNumber = TelephoneNumber + "3" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 333 1230 "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 TelephoneNumber = TelephoneNumber + "4" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1230 "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 TelephoneNumber = TelephoneNumber + "5" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1230 "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 TelephoneNumber = TelephoneNumber + "6" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 333 1373 "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 TelephoneNumber = TelephoneNumber + "7" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1373 "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 TelephoneNumber = TelephoneNumber + "8" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1373 "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 TelephoneNumber = TelephoneNumber + "9" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 477 1517 "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 TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber MaxPhoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= MinPhoneNumber Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" Var ShowTextNumber = "Invisible" TimerReset Refresh 620 1517 "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 TelephoneNumber -1 StrLen TelephoneNumber TelNumLen If TelNumLen < 10 Then Var Tel_Confirm_State = "Invisible" EndIf If TelNumLen = 0 Then Var ShowTextNumber = "Enable" EndIf TimerReset Refresh 0 873 1080 Center 62 RobotoBlack 0x513C2F TelephoneNumber Telnum-mask-1 218 1671 "ROOT/taobin_project/image/collectiing/bn_cancel2.png" "ROOT/taobin_project/image/collectiing/bp_cancel2.png" "ROOT/sounds/codebuttom.wav" SoundVolume TabMenuVisibleInst 99 RootLayoutVisible 13 "hide" Var AlertSMSButtonPause = "false" Var OpenFromMulti = 1 OpenInst 2 "ROOT/taobin_project/inter/tha/xml/multi/page_catalog.lxml" 577 1671 Tel_Confirm_State Var( DirImage + "/bn_positive.png") Var( DirImage + "/bp_positive.png") Var( DirImage + "/bn_positive.png") "ROOT/sounds/codebuttom.wav" SoundVolume Var Tel2DFlag = 0 TRY "ROOT/taobin_project/xml/verify_number.ev" If Tel2DFlag = 1 Then Var StepGetPoint = 1 Var PdpaAsk = 0 Var OperatorTemp = "" Var CreditAmount = 0 Var OperatorStatus = "" Var AccountType = "" SAVELOG "report_alert_sms" Var TelephoneNumberX = TelephoneNumber ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc DEBUGVAR TelephoneNumber ; do-smth SAVELOG "Open show send sms for menu name" DEBUGVAR CurrentAlertName DEBUGVAR CurrentAlertProductCode Var AlertTime = AlertTime + 1 WRITE_FILE "/mnt/sdcard/coffeevending/current_alert_times" AlertTime TabMenuVisibleInst 99 RootLayoutVisible 13 "hide" Var AlertSMSButtonPause = "false" Var OpenFromMulti = 1 OpenInst 2 "ROOT/taobin_project/xml/features/alert_sms/page_send_sms.lxml" Else If show_eng = "true" Then Var DirImage2 = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage2 = "ROOT/taobin_project/image/collectiing" EndIf ;inter-image If LanguageShow = "MYANMAR" Then Var DirImage2 = "ROOT/taobin_project/image/collectiing_mmr" EndIf If LanguageShow = "MSC" Then Var DirImage2 = "ROOT/taobin_project/image/collectiing_msc" EndIf Var text_show_error = DirImage2 + "/text_show_error5.png" Var ShowErrorText = "Enable" ;Var TelephoneNumber = "" Var Tel_Confirm_State = "Invisible" Refresh EndIf ; title text ; TODO-will-apply-lang 188 699 "ROOT/taobin_project/image/feature/alert_sms/text_1.png" ; Border Edit 217 866 "ROOT/taobin_project/image/collect_point1/img3.png" 157 868 ShowTextNumber Var( DirImage + "/text_edit.png") 236 699 eval( If FromProThaiTea = 1 Then Var return = "Enable" Else If FromProYuzu = 1 Then Var return = "Invisible" Else Var return = "Enable" EndIf EndIf ) Var( DirImage + "/edit.png")