Upakovao sam sve ovo u komponentu, pa bih hteo da to podelim sa kolegama i kome je već potrebno. Koliko znam ne postoji nigde objavljena komponenta ili kod koji ovo odrađuje, tako da pretpostavljam da će mnogima koristiti.
Instalacija komponente koju sam nazvao APR Tool je na APR Tool i besplatna je za korišćenje.
U instalaciji je i primer korišćenja u VB6 i Excel-u, a može se koristiti u svim VB, VBA i VB script primenama.
Primer kako se lako dobijaju podaci (VB6):
Option Explicit
Dim WithEvents APREngine As APRTool.Tool
Private Sub Command1_Click()
Dim strFinal As String
If Not APREngine.CompanyFromAPR(Text1.Text) Then Exit Sub
strFinal = ""
strFinal = strFinal & "Naziv: " & APREngine.dataNaziv & vbCrLf
strFinal = strFinal & "Poslovno ime: " & APREngine.dataPoslovnoIme & vbCrLf
strFinal = strFinal & "Status: " & APREngine.dataStatus & vbCrLf
strFinal = strFinal & "Matièni broj: " & APREngine.dataMaticniBroj & vbCrLf
strFinal = strFinal & "Pravna forma: " & APREngine.dataPravnaForma & vbCrLf
strFinal = strFinal & "Opština: " & APREngine.dataOpstina & vbCrLf
strFinal = strFinal & "Mesto: " & APREngine.dataMesto & vbCrLf
strFinal = strFinal & "Ulica i broj: " & APREngine.dataUlicaBroj & vbCrLf
strFinal = strFinal & "PIB: " & APREngine.dataPIB & vbCrLf
strFinal = strFinal & "Skraæeno poslovno ime: " & APREngine.dataSkracenoPoslovnoIme & vbCrLf
strFinal = strFinal & "Datum registracije: " & APREngine.dataDatumRegistracije & vbCrLf
strFinal = strFinal & "Datum prethodne registracije: " & APREngine.dataDatumPrethodneRegistracije & vbCrLf
strFinal = strFinal & "Datum poèetka obavljanja delatnosti: " & APREngine.dataDatumPocetkaObavljanjaDelatnosti & vbCrLf
strFinal = strFinal & "Trajanje ogranièeno do: " & APREngine.dataTrajanjeOgranicenoDo & vbCrLf
strFinal = strFinal & "Datum brisanja: " & APREngine.dataDatumBrisanja & vbCrLf
strFinal = strFinal & "Datum prestanka obavljanja delatnosti: " & APREngine.dataDatumPrestankaObavljanjaDelatnosti & vbCrLf
strFinal = strFinal & "Razlog prestanka obavljanja delatnosti: " & APREngine.dataRazlogPrestankaObavljanjaDelatnosti & vbCrLf
strFinal = strFinal & "Šifra delatnosti: " & APREngine.dataSifraDelatnosti & vbCrLf
strFinal = strFinal & "Naziv delatnosti: " & APREngine.dataNazivDelatnosti & vbCrLf
strFinal = strFinal & "RZZO broj: " & APREngine.dataRZZOBroj & vbCrLf
strFinal = strFinal & "PIO broj: " & APREngine.dataPIOBroj & vbCrLf
strFinal = strFinal & "Telefon 1: " & APREngine.dataTelefon1 & vbCrLf
strFinal = strFinal & "Telefon 2: " & APREngine.dataTelefon2 & vbCrLf
strFinal = strFinal & "Faks: " & APREngine.dataFaks & vbCrLf
strFinal = strFinal & "Internet adresa: " & APREngine.dataInternetAdresa & vbCrLf
Text2.Text = strFinal
End Sub
Private Sub Form_Load()
Set APREngine = New APRTool.Tool
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set APREngine = Nothing
End Sub
Private Sub APREngine_ToolError(ByVal ErrorCode As APRTool.APRTool_Error)
Select Case ErrorCode
Case APRT_E_NEMA_PODATAKA
MsgBox "Greska, nisu dobiveni podaci iz nekog razloga (podaci ne postoje ili Vam je blokiran pristup! HTML stranica greske: " & APREngine.sysErrorDescription, vbCritical, "Greska"
Case APRT_E_NIJE_DOSTUPNO
MsgBox "Greska kod konektovanja na sajt APR! Detalji greske: Broj - " & APREngine.sysError & ", Opis - " & APREngine.sysErrorDescription, vbCritical, "Greska"
Case APRT_E_NIJE_PREDVIDJEN_TIP_DRUSTVA
MsgBox "Nije predvidjena obrada ove vrste privrednog drustva!", vbCritical, "Greska"
End Select
End Sub
Napomene:
1. Zbog sprečavanja "zagušenja" sajta APR ugradio sam između svakog poziva 3 sekundi pauze
2. Ukoliko imate potrebu da obradite veći broj firmi, vodite računa da Vam APR ne blokira pristup (IP adresi)
3. Komponenta radi obradu preduzetnika i preduzeća, ostale forme nisu još predviđene
4. Preuzimaju se osnovni podaci, kao i poslovni podaci
Sve sugestije dobrodošle...