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

ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR

[es] :: Access :: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR
(TOP topic, by Zidar)

[ Pregleda: 8487 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

goranvuc
Goran Vucicevic
Novi Sad

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



+41 Profil

icon ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR30.04.2014. u 16:09 - pre 100 meseci
Ima već neko vreme kako sam razvio i koristim u svojim programima procedure koje parsiranjem stranica sajta APR preuzimaju podatke o firmama.

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):

Code:

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...
 
Odgovor na temu

BiloKoje
Beograd

Član broj: 40147
Poruke: 387



+4 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR30.04.2014. u 16:47 - pre 100 meseci
Sjajno, kao da si znao šta mi treba. Skinuo sam i probao u Exelu, kasnije ću u Accessu.
Zasad ću reći jedno HVALA.
edit:
Isprobao u Accessu, radi. Zasad sam samo prepisao kod pa mi sve podatke upiše u jedan Textbox, uradiću da mi unosi podatke u tabelu, to inače često radim "peške"


[Ovu poruku je menjao BiloKoje dana 30.04.2014. u 18:20 GMT+1]
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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



+41 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR30.04.2014. u 16:53 - pre 100 meseci
Nema na čemu :)

Mislim da to manje-više treba svima koji se bave informatičkom primenom u poslovnom okruženju, programerima da mogu da ugrade u svoje aplikacije, firmama koje žele da srede interne evidecije svojih poslovnih partnera, a ima još i mnogo specifičnih primena koje mi padaju na pamet...

Pozdrav!
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2762



+35 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR30.04.2014. u 16:54 - pre 100 meseci
Zahvaljujem. Biće pridodato temi gotovi programi članova foruma.
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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



+41 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR30.04.2014. u 17:04 - pre 100 meseci
Citat:
Getsbi: Zahvaljujem. Biće pridodato temi gotovi programi članova foruma.


Važi, ovako sigurno nikom neće promaći rešenje...
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.



+79 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR01.05.2014. u 13:56 - pre 100 meseci
Cestitke za odlican posao i nesebicnost
Predlazem da se tema postavi u TOP teme (pored stavljanja u 'Gotovi programi clanova foruma'). Posto imamo podosta TOP tema, predlazem da se un-top teme "Investivcioni projekti" i "odrzavanje zgrade" (da se sacuvaju u "Gotovi programi clanovi foruma"). Da li ovo ima smisla?
 
Odgovor na temu

natailic87
nata ilic
voyac
gsp
beograd

Član broj: 335689
Poruke: 1
136.0.2.*

Sajt: rentacarubeogradu.com


Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR14.12.2016. u 09:09 - pre 68 meseci
bravo majstore svaka cast
sta radite braco
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
*.dynamic.sbb.rs.



Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR23.12.2016. u 09:14 - pre 68 meseci
Gornji link ne radi. Ne mogu da preuzmem komponentu. Da li neko zna o cemu se radi? Hvala.
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2762



+35 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR23.12.2016. u 13:58 - pre 68 meseci
Pokušaj da odeš u root sajta: http://www.a3but.info/. Kreiraj nalog i prijavi se. Možda ti posle toga uspe download. Ja nisam isprobavao.
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
*.static.isp.telekom.rs.



Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR23.12.2016. u 14:15 - pre 68 meseci
Hvala na brzom odgovoru.

Probao i nista. Linkovi ne rade.

Javascript:Void(0);
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2762



+35 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR23.12.2016. u 15:12 - pre 68 meseci
Onda probaj da kontaktiraš postavljača teme privatnom porukom.
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
*.static.isp.telekom.rs.



Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR23.12.2016. u 16:18 - pre 68 meseci
OK. Hvala.
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
*.static.isp.telekom.rs.



Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR26.12.2016. u 18:03 - pre 68 meseci
OK. Posto nema nikakvih odgovora od autora komponenti (niti pp, niti mail, nista...), da li je moguce da neko ovde postavi komponentu ukoliko je ima? Hvala Vam svima.
 
Odgovor na temu

blingaro
Igor Malinkov
Uprava prihoda
Beograd

Član broj: 187756
Poruke: 75
95.180.122.*



+1 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR27.12.2016. u 16:17 - pre 68 meseci
Da li ste na ovo mislili?

Htedoh da okačim, ali rar-ovan fajl je veći nego što je dozvoljeno (1,20 mb). Ne mogu ga okačiti. Ako neko zna neki drugi način, neka javi.
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2762



+35 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR27.12.2016. u 17:56 - pre 68 meseci
http://pcpress.rs/6-odlicnih-s...slanje-xxl-fajlova-preko-weba/

Inače, u RAR arhiveru možeš da splituješ fajl na veći broj manjih.
Add to archive, pa onda Split to volumes, size.

[Ovu poruku je menjao Getsbi dana 28.12.2016. u 07:28 GMT+1]
 
Odgovor na temu

blingaro
Igor Malinkov
Uprava prihoda
Beograd

Član broj: 187756
Poruke: 75
95.180.122.*



+1 Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR28.12.2016. u 15:55 - pre 68 meseci
Nisam to nikada koristio. Mislim da je to to.
Prikačeni fajlovi
 
Odgovor na temu

zliki
Vanja Virijevic
Krusevac

Član broj: 101462
Poruke: 155
*.static.isp.telekom.rs.



Profil

icon Re: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR28.12.2016. u 16:56 - pre 68 meseci
Hvala puno. Pozdrav.
 
Odgovor na temu

[es] :: Access :: ActiveX DLL za preuzmanje podataka o privrednim drustvima sa sajta APR
(TOP topic, by Zidar)

[ Pregleda: 8487 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

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