Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

citanje el licne karte i saobracajne dozvole u excel

[es] :: Visual Basic 6 :: citanje el licne karte i saobracajne dozvole u excel

Strane: 1 2 3 4 5 ... Dalje > >>

[ Pregleda: 44121 | Odgovora: 100 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon citanje el licne karte i saobracajne dozvole u excel18.04.2014. u 16:03 - pre 121 meseci
postoji li nacin da se ovo izvede?
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel19.04.2014. u 10:37 - pre 121 meseci
Moze preko VBA, dovoljno je (koliko se secam) samo da imas onaj Celik API sto se skine od MUP-a i naravno citac kartice...

Radio sam to davno, nisam sad proveravao da li je ovaj kod OK (ovo je primer za saobracajnu), ali evo da podelim pa nek proverava ko ima vremena:

Code:

Option Explicit

Dim RegEngine As eVehicleRegistrationCOM.Registration

Private Sub Command1_Click()
   Dim strReader As String
   Dim lngAnswer As Long
   
   '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
   
   Command2.Enabled = True
   
End Sub
Private Sub Command2_Click()
   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]
   
   '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 jednog polja kao primer
   MsgBox docData.serialNumber
   
   
   
   '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 jednog polja kao primer
   MsgBox persData.ownerName
   
   
   
   'Obrada kartice - regData (0)
   lngAnswer = RegEngine.ReadRegistration(0, 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
   
   'Ispis jednog polja kao primer
   MsgBox regData.registrationData
   
   
   
   '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 jednog polja kao primer
   MsgBox vehData.vehicleIDNumber
   
End Sub
Private Sub Form_Load()
   
   'Kreiranje instance i inicijalizacija
   Set RegEngine = New eVehicleRegistrationCOM.Registration
   RegEngine.Initialize
   
End Sub
Private Sub Form_Terminate()
   
   'Unistavanje instance
   Set RegEngine = Nothing
   
End Sub
 
Odgovor na temu

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel19.04.2014. u 23:36 - pre 121 meseci
Imam api registrovao sam ga

medjutim ne uspevam da pokrenem kod. dobijam error 429
activex component can't create object
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel19.04.2014. u 23:44 - pre 121 meseci
Da li si dodao u reference taj activex?
 
Odgovor na temu

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel19.04.2014. u 23:52 - pre 121 meseci
jesam eVehicleRegistrationCOM.dll
za licnu kartu onaj api sa mupovog sajta ne moze da se doda ne moze da se doda

evo i coda

radim u excelu 2013

Code:


Option Explicit

Dim RegEngine As eVehicleRegistrationCOM.Registration
Private Sub CommandButton1_Click()
   Dim strReader As String
   Dim lngAnswer As Long
   
   '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
   
   Command2.Enabled = True
End Sub

Private Sub CommandButton2_Click()
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]
   
   '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 jednog polja kao primer
   MsgBox docData.serialNumber
   
   
   
   '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 jednog polja kao primer
   MsgBox persData.ownerName
   
   
   
   'Obrada kartice - regData (0)
   lngAnswer = RegEngine.ReadRegistration(0, 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
   
   'Ispis jednog polja kao primer
   MsgBox regData.registrationData
   
   
   
   '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 jednog polja kao primer
   MsgBox vehData.vehicleIDNumber
End Sub
Private Sub UserForm_Activate()
'Kreiranje instance i inicijalizacija
   Set RegEngine = New eVehicleRegistrationCOM.Registration
   RegEngine.Initialize
End Sub
Private Sub UserForm_Initialize()


End Sub

Private Sub UserForm_Terminate()
   
   'Unistavanje instance
   Set RegEngine = Nothing
   

End Sub
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel20.04.2014. u 11:38 - pre 121 meseci
Ih bre, pa zar moram sve na tacni?

Evo ti u prilogu kako ide za registraciju vozila (nisam probao, ostala mi registracija u autu).
Prikačeni fajlovi
 
Odgovor na temu

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel20.04.2014. u 16:02 - pre 120 meseci
hvala ovo fercera kao podmazano :) na excelu 2003 na 2013 nece iz nepoznatih razloga :) ali nije bitno :)

imas li mozda api za licne karte koji moze da se doda u reference ovaj sto sam skinuo sa mupa nece :(
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel20.04.2014. u 16:49 - pre 120 meseci
Nemam Office 2013 da bih mogao da proverim, ali verujem da je neka sitnica.

Za licnu kartu ne postoji ActiveX vec standardan dll pa mora preko API deklaracija, imao sam negde kod ali ne mogu da pronadjem trenutno... Imas primere i na ES ako se ne varam.
 
Odgovor na temu

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel20.04.2014. u 16:59 - pre 120 meseci
bio bih ti jako zahvalan za taj kod za licnu kartu znacilo bi mi jako ako uspes da ga pronadjes

a u 2013 staje pri povezivanju na citac

Set RegEngine = New eVehicleRegistrationCOM.Registration na ovoj liniji

i kaze can't create object

[Ovu poruku je menjao mousea dana 20.04.2014. u 18:17 GMT+1]
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel21.04.2014. u 01:39 - pre 120 meseci
Citat:
mousea:
a u 2013 staje pri povezivanju na citac

Set RegEngine = New eVehicleRegistrationCOM.Registration na ovoj liniji

i kaze can't create object
[Ovu poruku je menjao mousea dana 20.04.2014. u 18:17 GMT+1]


Verovatno se moraju ukljuciti reference rucno.

Sto se tice koda za citanje LK karte nasao sam nesto sto sam ranije pravio, pa sam ti ti sve upakovao u jednu instalaciju koja je u prilogu.

U instalaciji je COM dll koji sam napravio da se ne bi patio sa API pozivima, standardni dll celik, kao i primer u Excel-u (odradjen je i prikaz slike iz licne karte, nema problema sa cirilicom i sl.).

Evo ti i kako je odradjen programski kod u Excelu - mislim da je maksimalno jednostavno, imas i kompletnu proceduru za prikaz greske ukoliko do nje dodje:

Code:

Dim WithEvents ReaderEngine As LKReader.Reader

Private Sub CommandButton1_Click()
    
    If ReaderEngine Is Nothing Then Set ReaderEngine = New LKReader.Reader
    
    If Not ReaderEngine.ReadData Then
        Set ReaderEngine = Nothing
        Exit Sub
    End If
    
    Sheet1.Cells(5, 2).Value = ReaderEngine.docRegNo
    Sheet1.Cells(6, 2).Value = ReaderEngine.issuingAuthority
    Sheet1.Cells(7, 2).Value = ReaderEngine.issuingDate
    Sheet1.Cells(8, 2).Value = ReaderEngine.expiryDate
    
    Sheet1.Cells(12, 2).Value = ReaderEngine.surname
    Sheet1.Cells(13, 2).Value = ReaderEngine.givenName
    Sheet1.Cells(14, 2).Value = ReaderEngine.parentGivenName
    Sheet1.Cells(15, 2).Value = ReaderEngine.dateOfBirth
    Sheet1.Cells(16, 2).Value = ReaderEngine.placeOfBirth
    Sheet1.Cells(17, 2).Value = ReaderEngine.communityOfBirth
    Sheet1.Cells(18, 2).Value = ReaderEngine.stateOfBirth
    Sheet1.Cells(19, 2).Value = ReaderEngine.personalNumber
    Sheet1.Cells(20, 2).Value = ReaderEngine.sex
    
    Sheet1.Cells(24, 2).Value = ReaderEngine.State
    Sheet1.Cells(25, 2).Value = ReaderEngine.community
    Sheet1.Cells(26, 2).Value = ReaderEngine.place
    Sheet1.Cells(27, 2).Value = ReaderEngine.street
    Sheet1.Cells(28, 2).Value = ReaderEngine.houseNumber
    Sheet1.Cells(29, 2).Value = ReaderEngine.houseLetter
    Sheet1.Cells(30, 2).Value = ReaderEngine.entrance
    Sheet1.Cells(31, 2).Value = ReaderEngine.apartmentNumber
    Sheet1.Cells(32, 2).Value = ReaderEngine.Floor

    Set Image1.Picture = ReaderEngine.portrait
    
    Set ReaderEngine = Nothing
    
End Sub
Private Sub ReaderEngine_ReaderError(ByVal ErrorCode As LKReader.LKReader_Error, ByVal ProcedureName As String)
    
    'Ispita se koja je greska
    
    Select Case ErrorCode
       Case LKR_E_GENERAL_ERROR
          '...
       Case LKR_E_INVALID_PARAMETER
          '...
       Case LKR_E_VERSION_NOT_SUPPORTED
          '...
       Case LKR_E_NOT_INITIALIZED
          '...
       Case LKR_E_UNABLE_TO_EXECUTE
          '...
       Case LKR_E_READER_ERROR
          '...
       Case LKR_E_CARD_MISSING
          '...
       Case LKR_E_CARD_UNKNOWN
          '...
       Case LKR_E_CARD_MISMATCH
          '...
       Case LKR_E_UNABLE_TO_OPEN_SESSION
          '...
       Case LKR_E_DATA_MISSING
          '..
       Case LKR_E_CARD_SECFORMAT_CHECK_ERROR
          '..
       Case LKR_E_SECFORMAT_CHECK_CERT_ERROR
          '..
    
    End Select
    
    'Ispita se u kojoj proceduri je greska nastala
    
    Select Case ProcedureName
       Case "EidStartup"
          '...
       Case "EidCleanup"
          '...
       Case "EidBeginRead"
          '...
       Case "EidEndRead"
          '...
       Case "EidReadDocumentData"
          '...
       Case "EidReadFixedPersonalData"
          '...
       Case "EidReadVariablePersonalData"
          '...
       Case "EidReadPortrait"
          '...
    End Select
    
    MsgBox "Greska broj: " & ErrorCode & ", Procedura: " & ProcedureName, vbCritical, "Greska!"
    
End Sub


Ponavljam, sve sto ti treba je u instalaciji koja je u prilogu. Pokreni, next, next... i otvori excel koji ce se instalirati, prikaci citac, ubaci karticu i to je to.

Ajd, pa srecno!

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:

Instalacija

[Ovu poruku je menjao goranvuc dana 21.04.2014. u 07:52 GMT+1]

[Ovu poruku je menjao goranvuc dana 21.04.2014. u 08:18 GMT+1]
 
Odgovor na temu

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel21.04.2014. u 09:29 - pre 120 meseci
hvala ovo mi je trebalo :)

duzan sam ti pivo :)
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel21.04.2014. u 09:32 - pre 120 meseci
Nisi mi nista duzan, drago mi je da sam ti pomogao.

Molio bih te samo da mi odgovoris (ako nije tajna) kako si mislio da primenis ovo, tj. zbog cega ti je ovo trebalo bas u excel-u (pretpostavljam da su u pitanju popune nekih obrazaca), ali vise me interesuje gde to ima prakticnu primenu.

Eh da, da li si resio onaj problem sa citanjem saobracajne?
 
Odgovor na temu

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel21.04.2014. u 11:09 - pre 120 meseci
Upravo to popunjavanje nekih obrazaca za firmu da ne bi iscitavali i prepisivali
pogotovu sto korisnici nisu bas kompjuterski potkovani

problem u 2013 nisam resio jos uvek

ni lk ne radi u 2013 u 2003 i 2007 radi.

 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel21.04.2014. u 11:17 - pre 120 meseci
Citat:
mousea: problem u 2013 nisam resio jos uvek

ni lk ne radi u 2013 u 2003 i 2007 radi.


Mozda se neko javi ko ima 2013 i uspe da resi problem, ja ne mogu jer nemam (necu ni imati, svoju 2003 sam svojevremeno platio 600 eura i "cedicu" je dok mogu).

Inace, malo sam "google" - ovao i nema nijedna ActiveX komponenta za citanje LK i svi se nesto pate sa Celik API-em, tako da cu u poseban post staviti ovu instalaciju (u kojoj je ovaj primer sa Excel-om), a uploadovacu i primer koristenja u samom VB6.

Naravno, moze se koristiti i u VB skriptu, kao i u ostalim Office aplikacijama preko VBA.

Da i drugi imaju neke koristi, ako se slazes.
 
Odgovor na temu

mousea
Sistem administrator
Ireh
Beograd, Srbija

Član broj: 322680
Poruke: 9
*.cpe.vektor.net.



Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel21.04.2014. u 11:21 - pre 120 meseci
Naravno da se slazem treba pomoci svima

ovo za lk radi ko satic
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel24.04.2014. u 08:01 - pre 120 meseci
Imam mali problem sa ocitavanjem LK. Pokusao sam da ovo odradim u Access-u, sve lepo ocita jedini problem mi predstavlja slika. Kada postavim kontrolu Image i pokusam da joj dodelim sliku sa LK preko (ReaderEngine.portrait) javlja mi gresku, a kada prvo napisem komandu da mi sacuva sliku negde na kompu i dodelim putanju kontroli do te slike onda je sve OK. Da li postoji mogucnost da se bez snimanja slike na kompu ucita slika u kontrolu jer hocu da korisnik sam odabere da li hoce ili ne da sacuva sliku.
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel24.04.2014. u 08:05 - pre 120 meseci
Kad postavljas pitanje ne bi bilo lose i da das deo koda koji ti pravi problem, ovako ja ne znam koji kod to koristis da ucitas sliku u Access-u i ne mogu da pogadjam sta ne valja.

Pozdrav!
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.



+41 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel24.04.2014. u 08:19 - pre 120 meseci
Pretpostavljam da pokusavas sa (npr):
Code:
Image1.Picture = ReaderEngine.portrait


, a treba ovako:
Code:
Image1.PictureData = ReaderEngine.portrait


Moras da se dobro upoznas sa osnovnim svojstvima komponenti koje koristis da bi ih koristio kako treba...
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel24.04.2014. u 08:43 - pre 120 meseci
nece i dalje a koristim onaj kod kao sto si koristio u Excel-u samo sam ga prilagodio Access-u.

Code:
If ReaderEngine Is Nothing Then Set ReaderEngine = New LKReader.Reader
    
    If Not ReaderEngine.ReadData Then
        Set ReaderEngine = Nothing
        Exit Sub
    End If
       
    With Me
        .BrojLK = ReaderEngine.docRegNo
        .Izdaje = ReaderEngine.issuingAuthority
        .DatumIzdavanje = ReaderEngine.issuingDate
        .VaziDo = ReaderEngine.expiryDate
        
        .Prezime = ReaderEngine.surname
        .Ime = ReaderEngine.givenName
        .ImeRoditelja = ReaderEngine.parentGivenName
        .DatumRodjenja = ReaderEngine.dateOfBirth
        .MestoRodjenja = ReaderEngine.placeOfBirth
        .OpstinaRodjenja = ReaderEngine.communityOfBirth
        .DrzavaRodjenja = ReaderEngine.stateOfBirth
        .JMBG = ReaderEngine.personalNumber
        .Pol = ReaderEngine.sex
        
        .DrzavaPrebivalista = ReaderEngine.state
        .OpstinaPrebivalista = ReaderEngine.community
        .MestoPrebivalista = ReaderEngine.place
        .Ulica = ReaderEngine.street
        .Broj = ReaderEngine.houseNumber
        .Slovo = ReaderEngine.houseLetter
        .Ulaz = ReaderEngine.entrance
        .BrojStana = ReaderEngine.apartmentNumber
        .Sprat = ReaderEngine.floor
        
        .imgSlika.PictureData = ReaderEngine.portrait
            
    End With
    Set ReaderEngine = Nothing



 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: citanje el licne karte i saobracajne dozvole u excel24.04.2014. u 10:07 - pre 120 meseci
Koju grešku ti da? Pretpostaljam da ima veze sa formatom izlaza.
F
 
Odgovor na temu

[es] :: Visual Basic 6 :: citanje el licne karte i saobracajne dozvole u excel

Strane: 1 2 3 4 5 ... Dalje > >>

[ Pregleda: 44121 | Odgovora: 100 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.