grujicb Bojan Grujić Beograd, Srbija
Član broj: 317557 Poruke: 4 *.static.isp.telekom.rs.
|
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
|