citanje el licne karte i saobracajne dozvole u excel

Evo, valda ces se snaci.

Sve je u redu sa LkReaderIKa.rar

Hvala.

Dakle, koristim čitanje ličnih karata u Accessu skoro godinu dana, podatke učitavam u formu pa dalje preuzimam gde treba. Uglavnom radi dobro, ali se ponekad dešava da neće da učita podatke a da Čelik, program MUPa čita podatke. Znam da se u nekom momentu nešto menjalo, da sam morao da preuzmem novu verzilu Čelika, da li je potrebna neka promena i za kod u VB ili referencu?

Hvala drugovi!!

Uzeo sam postojeći VBS i malo ga preradio. Uspeo sam da dobijem da mi sve isčitavaju sva potrebna polja sa sobraćajne u excel 2013 pa ako nekome zatreba postaviću ga!

Pozdrav!


otvorite vbs iz developer menija i kopirajte :


Option Explicit

Dim RegEngine As eVehicleRegistrationCOM.Registration

Private Sub PoveziSe()
Dim strReader As String
Dim lngAnswer As Long

'Kreiranje instance i inicijalizacija
If RegEngine Is Nothing Then

Set RegEngine = New eVehicleRegistrationCOM.Registration
RegEngine.Initialize
End If

'Dobijanje naziva reader-a kad je samo 1
lngAnswer = RegEngine.GetReaderName(0, strReader)

'Ispitivanje povratne vrednosti: 0 - OK ima instaliran reader, ostalo su greske, tj. verovatno nema instaliran reader
Select Case lngAnswer
Case 0

Case Else
MsgBox "Greska, nemate instaliran smart card reader!"
Exit Sub
End Select

'Pristup citacu
lngAnswer = RegEngine.SelectReader(strReader)

'Ispitivanje povratne vrednosti: 0 - OK reader je ukljucen, ostalo su greske
Select Case lngAnswer
Case 0

Case Else
MsgBox "Greska, niste ukljucili smart card reader ili nije ispravan!"
Exit Sub
End Select

End Sub
Private Sub Citaj()
Dim lngAnswer As Long
Dim docData As eVehicleRegistrationCOM.[_DOCUMENT_DATA]
Dim persData As eVehicleRegistrationCOM.[_PERSONAL_DATA]
Dim regData As eVehicleRegistrationCOM.[_REGISTRATION_DATA]
Dim vehData As eVehicleRegistrationCOM.[_VEHICLE_DATA]

If RegEngine Is Nothing Then Exit Sub

'Obrada kartice
lngAnswer = RegEngine.ProcessNewCard

'Ispitivanje povratne vrednosti: 0 - OK kartica je unutra i ispravna je, ostalo su greske
Select Case lngAnswer
Case 0

Case Else
MsgBox "Greska, kartica nije ubacena ili vec nesto tako!"
Exit Sub
End Select



'Obrada kartice - docData
lngAnswer = RegEngine.ReadDocumentData(docData)

'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
Select Case lngAnswer
Case 0

Case Else
MsgBox "Greska pri citanju!"
Exit Sub
End Select

'Ispis nekoliko polja kao primer
Sheet1.Cells(2, 2).Value = docData.issuingDate
Sheet1.Cells(3, 2).Value = docData.expiryDate
Sheet1.Cells(4, 2).Value = docData.authorityIssuing
Sheet1.Cells(2, 4).Value = docData.stateIssuing
Sheet1.Cells(3, 4).Value = docData.competentAuthority
Sheet1.Cells(4, 4).Value = docData.unambiguousNumber


'Obrada kartice - persData
lngAnswer = RegEngine.ReadPersonalData(persData)

'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
Select Case lngAnswer
Case 0

Case Else
MsgBox "Greska pri citanju!"
Exit Sub
End Select

'Ispis nekoliko polja kao primer
Sheet1.Cells(6, 3).Value = persData.ownerName
Sheet1.Cells(6, 4).Value = persData.ownersSurnameOrBusinessName
Sheet1.Cells(7, 2).Value = persData.ownersPersonalNo
Sheet1.Cells(8, 2).Value = persData.ownerAddress
Sheet1.Cells(10, 2).Value = persData.usersPersonalNo
Sheet1.Cells(11, 3).Value = persData.usersSurnameOrBusinessName
Sheet1.Cells(11, 2).Value = persData.usersName
Sheet1.Cells(12, 2).Value = persData.usersAddress


'Obrada kartice - regData (0)
lngAnswer = RegEngine.ReadRegistration(1, regData)

'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
Select Case lngAnswer
Case 0

Case Else
MsgBox "Greska pri citanju!"
Exit Sub
End Select

'Obrada kartice - vehData
lngAnswer = RegEngine.ReadVehicleData(vehData)

'Ispitivanje povratne vrednosti: 0 - OK procitano je kako treba, ostalo su greske
Select Case lngAnswer
Case 0

Case Else
MsgBox "Greska pri citanju!"
Exit Sub
End Select

'Ispis nekoliko polja kao primer


'Ispis nekoliko polja kao primer
Sheet1.Cells(14, 2).Value = vehData.dateOfFirstRegistration
Sheet1.Cells(15, 2).Value = vehData.yearOfProduction
Sheet1.Cells(16, 2).Value = vehData.vehicleMake
Sheet1.Cells(17, 2).Value = vehData.vehicleType
Sheet1.Cells(18, 2).Value = vehData.commercialDescription
Sheet1.Cells(19, 2).Value = vehData.vehicleIDNumber
Sheet1.Cells(20, 2).Value = vehData.registrationNumberOfVehicle
Sheet1.Cells(21, 2).Value = vehData.maximumNetPower
Sheet1.Cells(22, 2).Value = vehData.engineCapacity
Sheet1.Cells(23, 2).Value = vehData.typeOfFuel
Sheet1.Cells(24, 2).Value = vehData.powerWeightRatio
Sheet1.Cells(25, 2).Value = vehData.vehicleMass
Sheet1.Cells(26, 2).Value = vehData.maximumPermissibleLadenMass
Sheet1.Cells(27, 2).Value = vehData.typeApprovalNumber
Sheet1.Cells(28, 2).Value = vehData.numberOfSeats
Sheet1.Cells(29, 2).Value = vehData.numberOfStandingPlaces
Sheet1.Cells(30, 2).Value = vehData.engineIDNumber
Sheet1.Cells(31, 2).Value = vehData.numberOfAxles
Sheet1.Cells(32, 2).Value = vehData.vehicleCategory
Sheet1.Cells(33, 2).Value = vehData.colourOfVehicle
Sheet1.Cells(34, 2).Value = vehData.restrictionToChangeOwner
Sheet1.Cells(35, 2).Value = vehData.vehicleLoad




End Sub

Pozdrav svima.
Preuzeo sam primer u Exelu za čitanje saobraćajne dozvole i sve super radi, ali meni bi trebalo da napisem takvu aplikaciju u vb.net-u...
Početnik sam u programiranju za sada sam napravio malu aplikaciju za servisiranje vozila sa Access bazom ,pa bi mi jako odgovarala opcija da mogu da povlačim podatke direktno sa čitača ,a ne da ih prepisujem.
Hvala unapred

Zdravo svima,

Preuzeo sam primer u excelu za citanje licne karte medjutim javlja mi gresku Run-time error 429.

Postavicu slike. Svaka pomoc je dragocena

Hvala

Dobijam grešku da ne nalazi CELIKAPI_CLICKER :(. Svaka pomoć dobrodošla :).

---

pozdrav
ima li neko ove fajlove sto je postavljao goranvuc
citat

"P.S. Excel primer imas u program files/LKReader folderu, ili pokreni precicu na njega koja se instalira u Start meni. MSI sam morao da razbijem na vise delova jer je ogranicen upload na ES, samo sve skini i pokreni MSI.

[Ovu poruku je menjao goranvuc dana 21.04.2014. u 02:55 GMT+1]

P.S. #2

Umesto uploadovane instalacije u komadima, evo link za download:

znam da je tema stara ali ako neko ima neka postavi
unaprijed hvala

---

Prošlo puno vremena. Mogu li dobiti i ja instalaciju? Pozdrav

Ima li ko citanje licne karte u access ili excel. POzdrav

Za koju verziju pozeljno bi trebalo biti sto se tice MS Access (x86/x64) i MS Excel?

Pokusavam nekoliko dana da ocitam licnu kartu u excelu ( izbacuje error 429) procitao sam sve teme vezane za ocitavanje licnih karata, imam instalirane sledece programe.

- Windows 7 64bit
- Office 2016
- Microsoft visual basic for applications 7.1
- Office 2003
- Visual basic 6
- Visual studio 2019 community
- Delphi 7
- CelikApi Windows 1.2.3.0 64-bit
- JFreesteel eID Viewer
- Eclipse IDE for Java EE Developers
- eUgovor - probna verzija.exe e ugovor


Pokusavam da izvedem da mi se automacku popune neki formulari trenutno su u PDF formatu sa Forms poljima za unos,
Mogu se isti napraviti i u wordu, svidja mi se program e ugovor pokusao sam da ih kontaktiram ali niko ne odgovara.
E ugovor ima par nedostataka
- Ne iscitava broj ulice
- Pomesana cirilica i latinica, IME PRETIME cililica MESTO DRZAVA latinica ( svim velikim slovima). Znam da je MUP to tako osmislio na LK ali mi se to nesvidja
- Niko ne odgovara tako da ga nemogu kupiti , u registry se ne moze ponistiti trajal perijod

Slicnih softvera nema u ponudi da se kupi iako vec koristimo E Lk vec 15god, ako zna neko neka kaze gde ima

---

Moze da bude do verzije CELIKA (i samog Windows 32/64bit-a) ali i do verzija Office-a (32bit ili 64bit) kao i da fale neke sistemske biblioteke.

Ako imate negde na netu celu tu pricu oko instalacije i sve ostalo vezano za to, pustite mi poruku ili ovde kao link pa kad nadjem vremena da pogledam.

Takodje moze i mimo tog dodatka da se iscitaju podaci sa licne karte u VB/VBA ali i DOT.NET varijanti. Kod DOT.NET verzije lakse je sto se tice konverziije posto je izvorno podrzan UTF8 dok to nije slucaj sa VB/VBA 6.x.

Sto se tice konverzija kodnih strana i mesanja cirlice i latinice, koliko se secam prvo sam MUP to mesa kada vrsi upis u bazu i na LK ali se i to moze isto konvertovati da bude u jednoj kodnoj strani i pismu.

Evo imate na dole navedenom linku primer sto sam 2017/2018. odradio u VB6 za saobracajnu dozvolu (jednom poznaniku), posto sam za to stigao da nadjem projekat. Imam negde i za LK sto sam probao ako me pamcenje sluzi.




(ovo je saobracajna i LK varijanta o kojima vam pominjem na kraju su bez potrebe ovih dodataka sto ste vi gore naveli i opisali od te stare firme)

Goranvuc u ovoj temi iz 2014god [url=]https://www.elitesecurity.org/t475512 [/url] opisuje postupak, navodeci da je potrebno preuzeti msi instalaciju sa linka koji vise nije aktivan a bez te instalacije nije moguce pokrenuti excel u kome se iscitavaju podaci, sve ove teme sam procitao i pokusao jos neke varijante u accessu ali bezuspesno.

ActiveX DLL za citanje elektronske licne karte
CelikApi problem kod očitavanja broja lične karte
CelikNET: LGPL CLR Interop Wrapper za CelikAPI
Program za citanje podataka sa licne karte
Problem CelikAPI - Licne karte
Kako iz delphi aplikacije procitati licnu kartu uz pomoc celikapi.dll

Jedno od mogucih resenja koje sada pokusavam da izvedem je program Gorana Rakica jfreesteel sa otvorenim kodom na GitHubu github.com/grakic/jfreesteel/wiki

Verovatno da je moguce malo prepraviti kod i ubaciti jedno dugme -Genetisi excel datoteku-

---

Kao sto sam vam vec rekao u mom prvom postu i odgovoru.

Moze da se odradi implementacija bez tih dodatnih biblioteka.

Ja sam to pre uradio (period 2017/2018.) i za LK i za saobracajnu dozvolu.

Koliko se secam samo odgovarajuci celikapi za LK odnosno ono ostalo sto je potrebno u vezi saobracajne sto moze da se preuzme sa MUP-ovog sajta.

Nisam odradio varijantu tada za dot.net, vec samo u VB6 ali ako moze u VB6 onda moze i u dot.net - sve iz razloga sto potreba nije nalagala da po tom pitanju bilo sta radim.

Pozdrav,
da li ima neko trenutnu varijantu da u accessu povlaci licnu kartu da radi.
bio bi jako zahvlan i platio koliko god treba. :)

Pozdrav,
da li ima neko trenutnu varijantu da u accessu povlaci licnu kartu da radi.
bio bi jako zahvlan i platio koliko god treba. :)

Druže ne mogu da preuzmem tvoju instalaciju za Excell čitanje ličnih karata. Možež li nekako da mi pomogneš.

>

---

Ima rešenja, program e ugovor generise sve podatke iz lk u exel

https://e-ugovor.rs/

---