Check data on newer card versions

[jdt]

cardData["member_of_family"]
cardData["special_organization"]
cardData["duplicata"]

Still valid?

[JohanRVT]

I never used those fields in my read-out. I will give it a try and get back

[JohanRVT]

Added those 3 fields in the bottom of a working VBA code which produces normaly a messagebox with the card data
I Get a Error438: Object or method not supported by the object
So I think that those fields are not valid in a EID

This is the VBA code I used

Private Sub CmdEIDTest_Click()
On Error GoTo Err_CmdEIDTest_Click
Dim wrapper As New EID_Wrapper.wrapper
Dim data As EID_Wrapper.CardData
Set data = wrapper.GetCardData()
'Check of er een EID kaart (op de juiste manier) in de kaartlezer zit
If data.FirstCard Is Nothing Then
MsgBox "Geen EID kaart in lezer gedetecteerd!" & vbCrLf & _
"Plaats de EID van de persoon in de lezer," & vbCrLf & _
"of controleer of ze goed geplaatst is.", vbCritical + vbOKOnly, "Geen kaart gedetecteerd!"
Exit Sub
End If
' The CardStatus veld bevat de nodige informatie
' Toon de EID Kaart Data in een messagebox
MsgBox "Voornamen: " & (data.FirstCard.FirstNames) & vbCrLf & _
"Naam: " & (data.FirstCard.Surname) & vbCrLf & _
"Geslacht: " & (data.FirstCard.Gender) & vbCrLf & _
"Geboortedatum: " & (data.FirstCard.BirthDate) & vbCrLf & _
"Geboorteplaats: " & (data.FirstCard.BirthPlace) & vbCrLf & _
"Straat en nummer: " & (data.FirstCard.StreetAndNumber) & vbCrLf & _
"Postcode: " & (data.FirstCard.ZipCode) & vbCrLf & _
"Woonplaats: " & (data.FirstCard.Municipality) & vbCrLf & _
"Nationaliteit: " & (data.FirstCard.Nationality) & vbCrLf & _
"Kaartnummer: " & (data.FirstCard.CardNumber) & vbCrLf & _
"Chipnummer: " & (data.FirstCard.ChipNumber) & vbCrLf & _
"Uitgifteplaats: " & (data.FirstCard.IssuingMunicipality) & vbCrLf & _
"Beginvaliditeit: " & (data.FirstCard.ValidityBeginDate) & vbCrLf & _
"Eindvaliditeit: " & (data.FirstCard.ValidityEndDate) & vbCrLf & _
"Rijksregisternummer: " & (data.FirstCard.NationalNumber) & vbCrLf & _
"Organisatie: " & (data.FirstCard.special_organization) & vbCrLf & _
"Duplicaat: " & (data.FirstCard.Duplicata) & vbCrLf & _
"Familielid: " & (data.FirstCard.member_of_family), vbInformation + vbOKOnly, "EID Kaart info"

'Geeft error 438: Deze eigenschap of methode wordt niet ondersteund door het object

Exit_CmdEIDTest_Click:
Exit Sub
Err_CmdEIDTest_Click:
Select Case Err.Number
Case 9999
Resume Next
Case 999
Resume Exit_CmdEIDTest_Click
Case Else
Call LogError(Err.Number, Err.Description, "Personeelfiche-CmdEIDTest_Click()")
Resume Exit_CmdEIDTest_Click
End Select
End Sub