"Enable" 1080 1920 "0xeae6e1" SoundVolume Var CamFlag = 0 Var CamCount = 0 Var Timeout = 0 Var ShutterResult = "-" Var AdultFlag = 1 If AdultFlag = 1 Then Var AdultFlag = 0 DEBUGVAR SystemDate Var sdate = "" Var sdate = SystemDate Var sdateday = "" Var sdatemonth = "" Var sdateyear = "" SPLIT sdate "/" 1 sdateday SPLIT sdate "/" 2 sdatemonth SPLIT sdate "/" 3 sdateyear INT sdateday INT sdatemonth INT sdateyear Var AdultState = "Enable" Var AdultState1 = "Enable" Var countAdultS2 = 0 Var AdultFlag2 = 1 EndIf If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" Else Var DirImage = "ROOT/taobin_project/image/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" EndIf If CameraCount = 1 Then EndIf Var IDBirthdate = "" Var LivenessResult = "" Var CountDownDelayReadCardID = 5 DEBUGVAR CameraCount ;STOPCARDID Var LivenessShowString = "" Var CameraStage = "Invisible" Var IDcardStage = "Enable" Var IDcardStageText = "Enable" Var load_gif_stage = "Invisible" Var IDcardTextStatus = "โปรดเสียบบัตรประชาชน \nเพื่อดำเนินการต่อ" Var LivenessRestartCount = 0 Var FailTrickCount = 0 Var FailState = "Invisible" Var StepGetServer = 0 Var Cid = 29 Var PointCrm = "2" Var GetScore = "1" Var IDNumx = "2640100003053" ;AddData Cid TelephoneNumber IDNumx PointCrm GetScore DEBUGVAR Ext1a ; If StepGetServer = 1 Then ; If Ext1a = "ok" Then ; Var ChildrenFree = 1 ; Open "ROOT/taobin_project/xml/page_payment.xml" ; Else ; If Ext1a = "limit" Then ; Var load_gif_stage = "Invisible" ; Var FailState = "Enable" ; Var img_popup16 = "/img_popup16-3.png" ; WRITE_FILE "/mnt/sdcard/oreo_for_free_limit" "true" ; Else ; Var load_gif_stage = "Invisible" ; Var FailState = "Enable" ; Var img_popup16 = "/img_popup16-2.png" ; EndIf ; Refresh ; EndIf ; EndIf DEBUGVAR IDCardStatus DEBUGVAR IDCardReady DEBUGVAR IDCardData DEBUGVAR IDBirthdate DEBUGVAR IDFullNameEng If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "START" Then Var load_gif_stage = "Enable" Var IDcardStageText = "Invisible" Var FailState = "Invisible" ;Var img_popup16 = "/img_popup16-1.png" RefreshAll Var Timeout = 90 EndIf EndIf EndIf If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "ERROR" Then Var load_gif_stage = "Invisible" Var IDcardStageText = "Enable" Var IDcardTextStatus = "อ่านบัตรไม่ได้" Var FailState = "Enable" Var img_popup16 = "/img_popup16-1.png" Refresh EndIf EndIf EndIf If IDCardStatus = "ERROR" Then Var load_gif_stage = "Invisible" Var IDcardStageText = "Enable" Var IDcardTextStatus = "อ่านบัตรไม่ได้" Var FailState = "Enable" Var img_popup16 = "/img_popup16-1.png" Refresh EndIf If IDCardStatus = "ERROR" Then If IDCardReady = "ERROR" Then If IDCardData = "ERROR" Then Var FailState = "Invisible" EndIf EndIf EndIf If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "DONE" Then ;Var birthDate = IDBirthdate Var StrYear = "" Var StrMon = "" Var StrDay = "" SUBSTRING IDBirthdate 0 4 StrYear SUBSTRING IDBirthdate 4 6 StrMon SUBSTRING IDBirthdate 6 8 StrDay INT StrYear INT StrMon INT StrDay Var Adult7 = 0 Var Adult15 = 0 DEBUGVAR StrYear DEBUGVAR StrMon DEBUGVAR StrDay DEBUGVAR sdatemonth DEBUGVAR sdateday Var sdateyear = sdateyear + 543 Var AgeNumber = sdateyear - StrYear DEBUGVAR AgeNumber If AgeNumber >= 18 Then Open "ROOT/taobin_project/xml/page_payment.xml" ; If AgeNumber = 18 Then ; If sdatemonth > StrMon Then ; Var Adult15 = 1 ; Else ; If sdatemonth = StrMon Then ; If sdateday >= StrDay Then ; Var Adult15 = 1 ; EndIf ; EndIf ; EndIf ; Else ; Var Adult15 = 1 ; EndIf Else EndIf ; If Adult15 = 0 Then ; If AgeNumber >= 15 Then ; If AgeNumber = 15 Then ; If sdatemonth > StrMon Then ; Var Adult7 = 1 ; Else ; If sdatemonth = StrMon Then ; If sdateday >= StrDay Then ; Var Adult7 = 1 ; EndIf ; EndIf ; EndIf ; Else ; Var Adult7 = 1 ; EndIf ; Else ; EndIf ; EndIf ;Var Adult7 = 1 ; If Adult7 = 1 Then ; GETACCEXT IDNum 27 ; Var StepGetServer = 1 ; Else ; Var load_gif_stage = "Invisible" ; Var FailState = "Enable" ; Var img_popup16 = "/img_popup16-1.png" ; Refresh ; EndIf EndIf EndIf EndIf 1000 DEBUGVAR IDCardStatus DEBUGVAR IDCardReady DEBUGVAR IDCardData DEBUGVAR IDBirthdate DEBUGVAR CountDownDelayReadCardID DEBUGVAR ShutterResult DEBUGVAR IDCardState DEBUGVAR load_gif_stage If IDBirthdate = "" Then Var CountDownDelayReadCardID = CountDownDelayReadCardID - 1 If CountDownDelayReadCardID = 0 Then READCARDID Var CountDownDelayReadCardID = 600 EndIf EndIf DEBUGVAR Timeout Var Timeout = Timeout + 1 If Timeout > 120 Then Open "ROOT/taobin_project/xml/page_catalog2.xml" EndIf If IDCardState = "PRESENT" Then If IDCardStatus = "ERROR" Then Var load_gif_stage = "Invisible" Var IDcardStageText = "Enable" Var IDcardTextStatus = "อ่านบัตรไม่ได้อะ" Refresh EndIf EndIf Refresh TimerReset ; back 19 420 "ROOT/taobin_project/image/page2/bn_back_arrow.png" "ROOT/taobin_project/image/page2/bn_back_arrow.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" 75 493 "Enable" Var( DirImage + "/img_popup18.png" ) 358 1769 "Enable" Var( DirImage + "/bn_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" 360 1373 FailState Var( DirImage + "/bn_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" 0 380 load_gif_stage "ROOT/taobin_project/image/page_payment/alpha.png" 0 380 FailState "ROOT/taobin_project/image/page_payment/alpha.png" 249 751 load_gif_stage Var( DirImage + "/img_popup15.png" ) 249 751 FailState Var( DirImage + img_popup16 ) 350 1370 FailState Var( DirImage + "/bn_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) Var( DirImage + "/bp_cancel_all.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_catalog2.xml" 440 988 load_gif_stage "ROOT/taobin_project/image/page_payment/loading.gif" Var IDCardStatus = "OK" Var IDCardReady = "OK" Var IDCardData = "START" EventEvaluate "EventIDCard" Var IDBirthdate = 25271014 Var IDCardStatus = "OK" Var IDCardReady = "OK" Var IDCardData = "DONE" EventEvaluate "EventIDCard" Var LivenessResult = "pass" EventEvaluate "EventLivenessState" Var IDCardState = "PRESENT" Var IDCardStatus = "ERROR" Var IDCardReady = "ERROR" Var IDCardData = "ERROR"