"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เพื่อดำเนินการต่อ" 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" RefreshAll 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 = "อ่านบัตรไม่ได้อะ" Refresh EndIf EndIf EndIf If IDCardStatus = "ERROR" Then Var load_gif_stage = "Invisible" Var IDcardStageText = "Enable" Var IDcardTextStatus = "อ่านบัตรไม่ได้เลยนะ" Refresh 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 Adult20 = 0 DEBUGVAR StrYear DEBUGVAR StrMon DEBUGVAR StrDay DEBUGVAR sdatemonth DEBUGVAR sdateday Var sdateyear = sdateyear + 543 Var AgeNumber = sdateyear - StrYear DEBUGVAR AgeNumber If AgeNumber >= 20 Then If AgeNumber = 20 Then If sdatemonth > StrMon Then Var Adult20 = 1 Else If sdatemonth = StrMon Then If sdateday >= StrDay Then Var Adult20 = 1 EndIf EndIf EndIf Else Var Adult20 = 1 EndIf Else EndIf If Adult20 = 1 Then LivenessCommand "start" Var load_gif_stage = "Invisible" Var IDcardStageText = "Invisible" Var IDcardStage = "Invisible" Var IDcardTextStatus = "แสกนหน้า" Var CameraStage = "Enable" Refresh EndIf EndIf EndIf EndIf 1000 DEBUGVAR IDCardStatus DEBUGVAR IDCardReady DEBUGVAR IDCardData DEBUGVAR IDBirthdate DEBUGVAR CountDownDelayReadCardID DEBUGVAR ShutterResult DEBUGVAR IDCardState 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 ShutterResult = "ok" Then ; Open "ROOT/taobin_project/xml/page_face_compare.xml" ;EndIf DEBUGVAR LivenessResult If LivenessResult = "pass" Then Var LivenessShowString = "Pass " Var load_gif_stage = "Enable" Open "ROOT/taobin_project/xml/page_face_compare.xml" EndIff Refresh TimerReset 0 380 "Enable" "ROOT/taobin_project/image/page_payment/alpha.png" 123 598 CameraStage "ROOT/taobin_project/image/liveness/bg2.png" 0 602 1080 Center 60 KanitMediumTTF 0xDE794E CameraStage LivenessShowString 249 751 "ROOT/taobin_project/image/liveness/bg1.png" ; back 120 781 "usbfront" 800 800 "FileName=/mnt/sdcard/camera1.jpg" 249 751 IDcardStage "ROOT/taobin_project/image/liveness/bg1.png" 0 1050 IDcardStageText 1080 Center 56 KanitMediumTTF 0xDE794E IDcardTextStatus 440 988 load_gif_stage "ROOT/taobin_project/image/page_payment/loading.gif" DEBUGVAR BugFlag If BugFlag = 0 Then Var BugFlag = 1 EndIf DEBUGVAR LivenessStateString If LivenessResult = "pass" Then Else Var LivenessShowString = LivenessStateString EndIf Refresh DEBUGVAR LivenessResult 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"