thomasamede
New member
- Joined
- Dec 5, 2011
- Messages
- 2
- Programming Experience
- Beginner
Hi, my name is thomasamede i am trying to set the time mask field for MorphoAccess 5xx using Active_MACI
to define a time mask during which the person is authorized to clock. but it seems not to work any help will be welcom thanks.
below is my code:
objimage = New MKImage
objMKAcquisition = New MKAcquisition
objPks = New MKMinutiae
objMADB = New MADB
objTerminal = New MATerminal
objRecord1 = New MARecord
objRecord2 = New MARecord
objDBReport = New MADBReport
objLogReport = New MALogReport
objLogs = New MALogs
objOpt = New MAOptions
For i AsInteger = 0 To 4
objTabMADB(i) = New MADB
Next i
'Terminal creation
objTerminal.SetParam("IPADRESS", iptext.Text)
objTerminal.SetParam("PORTNUMBER", 11010)
objTerminal.Ping(5000)
FullName = strFName & " " & strLName
'Record ERIC BOATENG
objRecord1.SetParam("RECORDID", lngPkid)
objRecord1.AddFinger(Fingerprint1, 0)
'objRecord1.SetParam("TMSK", 1)
objRecord1.AddFinger(Fingerprint2, 1)
objRecord1.AddUserData("ADMIN", strID)
objRecord1.AddUserData("TMSK", tmask)
objRecord1.AddUserData("NAME", strFName)
objRecord1.AddUserData("FNAME", strLName)
'''''''''''''''''''''''''''''''''''
'Database Creation
objTerminal.GetParam("MATYPE", TypeMA)
If TypeMA = 100 Then
objMADB.SetAllParam(0, 2, TypeMA, 500, 212)
objMADB.AddField("ADMIN", 3, 0)
objMADB.AddField("TMSK", 84, 0)
objMADB.AddField("NAME", 20, 0)
objMADB.AddField("FNAME", 20, 0)
ElseIf TypeMA = 500 Then
objMADB.SetAllParam(0, 2, 500, 3000, 212)
objMADB.AddField("ADMIN", 3, 0)
objMADB.AddField("TMSK", 84, 0)
objMADB.AddField("NAME", 20, 0)
objMADB.AddField("FNAME", 20, 0)
EndIf
'Database Administration
Ret = objTerminal.EraseAllDBs(5000)
Ret = objTerminal.CreateDB(objMADB, 60000)
Ret = objTerminal.AddRecord(objMADB, objRecord1, stemp, ltemp, 5000)
to define a time mask during which the person is authorized to clock. but it seems not to work any help will be welcom thanks.
below is my code:
objimage = New MKImage
objMKAcquisition = New MKAcquisition
objPks = New MKMinutiae
objMADB = New MADB
objTerminal = New MATerminal
objRecord1 = New MARecord
objRecord2 = New MARecord
objDBReport = New MADBReport
objLogReport = New MALogReport
objLogs = New MALogs
objOpt = New MAOptions
For i AsInteger = 0 To 4
objTabMADB(i) = New MADB
Next i
'Terminal creation
objTerminal.SetParam("IPADRESS", iptext.Text)
objTerminal.SetParam("PORTNUMBER", 11010)
objTerminal.Ping(5000)
FullName = strFName & " " & strLName
'Record ERIC BOATENG
objRecord1.SetParam("RECORDID", lngPkid)
objRecord1.AddFinger(Fingerprint1, 0)
'objRecord1.SetParam("TMSK", 1)
objRecord1.AddFinger(Fingerprint2, 1)
objRecord1.AddUserData("ADMIN", strID)
objRecord1.AddUserData("TMSK", tmask)
objRecord1.AddUserData("NAME", strFName)
objRecord1.AddUserData("FNAME", strLName)
'''''''''''''''''''''''''''''''''''
'Database Creation
objTerminal.GetParam("MATYPE", TypeMA)
If TypeMA = 100 Then
objMADB.SetAllParam(0, 2, TypeMA, 500, 212)
objMADB.AddField("ADMIN", 3, 0)
objMADB.AddField("TMSK", 84, 0)
objMADB.AddField("NAME", 20, 0)
objMADB.AddField("FNAME", 20, 0)
ElseIf TypeMA = 500 Then
objMADB.SetAllParam(0, 2, 500, 3000, 212)
objMADB.AddField("ADMIN", 3, 0)
objMADB.AddField("TMSK", 84, 0)
objMADB.AddField("NAME", 20, 0)
objMADB.AddField("FNAME", 20, 0)
EndIf
'Database Administration
Ret = objTerminal.EraseAllDBs(5000)
Ret = objTerminal.CreateDB(objMADB, 60000)
Ret = objTerminal.AddRecord(objMADB, objRecord1, stemp, ltemp, 5000)