"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 TelephoneNumber
Var TelNumPromotion = TelephoneNumber
DEBUGVAR Ext1a
If StepGetServer = 1 Then
If Ext1a = "ok" Then
Var ChildrenFree = 1
Var Cid = 33
Var PointCrm = "1"
Var GetScore = "1"
AddData Cid TelNumPromotion IDNum PointCrm GetScore
Open "ROOT/taobin_project/xml/page_jump_topping.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 errorX = 0
Var load_gif_stage = "Invisible"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-1.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
Var Adult7 = 1
If Adult7 = 1 Then
Var Input1 = TelNumPromotion + "/"
Var Input1 = Input1 + IDNum
GETACCEXT Input1 30
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
75 493 "Enable" Var( DirImage + "/img_popup18-2.png" ) 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 ) 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"