"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 CountDownDelayReadCardID = 5
DEBUGVAR CameraCount
STOPCARDID
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR IDFullNameEng
If AdultFlag2 = 1 Then
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "START" Then
Var AdultState2 = "Enable"
Var AdultState1 = "Invisible"
Var AdultState3 = "Invisible"
Refresh
EndIf
EndIf
EndIf
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "ERROR" Then
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
Refresh
EndIf
EndIf
EndIf
If IDCardStatus = "ERROR" Then
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
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
If Adult20 = 1 Then
Var AdultState3 = "Invisible"
Var AdultState2 = "Invisible"
Var AdultState1 = "Invisible"
Var AdultState = "Invisible"
Refresh
Else
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
Refresh
EndIf
Else
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
Refresh
EndIf
Var AdultFlag2 = 1
EndIf
EndIf
EndIf
EndIf
1000
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR CountDownDelayReadCardID
DEBUGVAR ShutterResult
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
Refresh
TimerReset
144 413 pay_with_chanel_text
; back
0 1065 1080 Center 72
KanitMediumTTF
0xB78F24 showRemaining 0 380 "Enable" "ROOT/taobin_project/image/page_payment/alpha.png" 689 875 "Enable" Var( DirImage + "/img_popup6.png" ) 1032 875 48 48 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume
Open "ROOT/taobin_project/xml/page_catalog2.xml"
0 381 "usbfront" 700 394
DEBUGVAR BugFlag
If BugFlag = 0 Then
Var BugFlag = 1
EndIf
SAVELOG "EventIDCard"
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate