Linkovanje na NBS i provera blokade kupaca!

Re: Linkovanje na NBS i provera blokade kupaca! 19.05.2014. u 16:40 · pre 151 mesec #81

Kao moj mali doprinos zajednici, napravio sam ActiveX DLL komponentu u kojoj je sve vezano za proveru blokade u NBS "upakovano", a vise o tome, kao i preuzimanje instalacije imate na http://a3but.info/index.php/komponente/nbs-spy.html

Evo kako se jednostavno koristi:

Code:

Private Sub Command1_Click()
   Dim Spy As NBSSpy.Spy

   Set Spy = New NBSSpy.Spy

   If Spy.GetInfo("106817748") Then

      Text1.Text = "Naziv: " & Spy.dataNaziv & vbCrLf
      Text1.Text = Text1.Text & "Adresa: " & Spy.dataAdresa & vbCrLf
      Text1.Text = Text1.Text & "Mesto: " & Spy.dataMesto & vbCrLf
      Text1.Text = Text1.Text & "Maticni broj: " & Spy.dataMBR & vbCrLf
      Text1.Text = Text1.Text & "Ukupan iznos: " & Format(Spy.dataUkupanIznos, "###,##0.00") & vbCrLf
      Text1.Text = Text1.Text & "Ukupno dana: " & Format(Spy.dataUkupnoDana, "###,###") & vbCrLf
      Text1.Text = Text1.Text & "Ukupan broj blokada: " & Format(Spy.dataBrojBlokada, "###,###") & vbCrLf
      Text1.Text = Text1.Text & "Blokiran: " & IIf(Spy.dataBlokiran, "DA", "NE") & vbCrLf

   Else

      MsgBox "Greska! " & Spy.noDataReturnInfo & Spy.sysErrorDescription

   End If

   Set Spy = Nothing

End Sub

Kome je komplikovano da se pati sa obimnim kodom koji je obajvljen u prethodnim postovima, moze da uziva :)
Ugradjena je i obrada greske, kontrola PIB-a i sve što je već potrebno.

Može se koristiti u Access-u, Excel-u, VB6, VBA i VB script varijantama.

Napomena: Da ne bi neko "gušio" NBS server stavio sam pauzu od 3 sekunde uz svaki poziv...

Pozdrav svima!

Screen.PNG18.13k

Re: Linkovanje na NBS i provera blokade kupaca! 04.11.2015. u 12:01 · pre 133 meseca #82

Poslednjih par dana poslovne partnere koji su u statusu "UKLJUCEN" prikazuje kao da su u statusu "NE POSTOJI". Da li neko zna u cemu je problem?

Potpis

INTRUDER

Re: Linkovanje na NBS i provera blokade kupaca! 29.11.2015. u 19:28 · pre 132 meseca #83

Citat:

xl_kid: Poslednjih par dana poslovne partnere koji su u statusu "UKLJUCEN" prikazuje kao da su u statusu "NE POSTOJI". Da li neko zna u cemu je problem?

Potrebno je formi ProveraStatusaKodNBS koja vrši pretragu na sajtu NBS-e promeniti sledeći deo koda

Code:
ElseIf InStr(he.innerText, "u platni promet") Then
'sa ovim ispod
ElseIf InStr(he.innerText, "uključen") Then

u proceduri ProcesPIB() i radiće kao pre. Izgleda da je NBS skratio ispis. :)

Re: Linkovanje na NBS i provera blokade kupaca! 30.11.2015. u 08:06 · pre 132 meseca #84

Hvala na pomoći. Radi :)

Potpis

INTRUDER

Re: Linkovanje na NBS i provera blokade kupaca! 02.12.2015. u 20:37 · pre 132 meseca #85

Postavljena je korigovana verzija

http://zoraneremija.wix.com/eremijacv#!downloads/c1qda

Potpis

http://zoraneremija.wix.com/eremijacv

Re: Linkovanje na NBS i provera blokade kupaca! 05.12.2015. u 09:56 · pre 132 meseca #86

Ima li neko resenje za linkovanje na APR i proveru podataka npr. preko PIBa? Postoji APRTool za Excell ali izacuje neku gresku stalno. (error 429 valjda)

Re: Linkovanje na NBS i provera blokade kupaca! 18.01.2021. u 09:52 · pre 70 meseci #87

Poštovani,
Nisam dugo koristio aplikaciju "Linkovanje na NBS i provera blokade kupaca", ali sad vidim da na sve privredne subjekte pokazuje status "NE POSTOJI", datum bez ostalih podataka. Da li je nešto izmenjeno kod NBS ili je nešto drugo u pitanju. Da li neko zna o čemu se radi???
Pozdrav

Potpis

I.L.

Re: Linkovanje na NBS i provera blokade kupaca! 11.11.2022. u 12:03 · pre 48 meseci #88

Pozdrav drugari :)

Da li neko zna koliko dnevno mogu poslati upita ka NBS? Ne bih da se blokiram.

Potpis

INTRUDER

Forum kao aplikacija na telefonu

Srodne teme