Do sada smo
samo proveravali status kupca u prinudnoj naplati.
Ovo je parce VB6 coda koje prikazuje i
iznos blokade
Posto sam ja iz "Drugog foruma" namerno ne saljem ovde kompletno VB6 resenje , ali se nadam se da ce Zoran.Eremija ovo ukljuciti u svoju Access verziju.
Link je: "
http://www.nbs.rs/rir_pn/searc...IR&konverzija=yes&pib=" u slucaju da je kupac blokiran.
Code:
Dim hD As IHTMLDocument2, he As IHTMLElement
Dim hDBlokada As IHTMLDocument2, heBlokada As IHTMLElement
Dim IznosBlokade As Double
Dim s As Byte
Dim Prolaz As Integer
Set hD = WebBrowser1.document
For Each he In hD.All
If InStr(he.innerText, "Ne postoji") Then
DataEnvironment1.rsPartnerI!Opis = "Ne postoji racun sa zadatim parametrima"
DataEnvironment1.rsPartnerI.Update
Exit For
ElseIf InStr(he.innerText, "u platni promet") Then
DataEnvironment1.rsPartnerI!Opis = "Ukljucen u platni promet"
DataEnvironment1.rsPartnerI.Update
Exit For
ElseIf InStr(he.innerText, "blokiran po osnovu") Then
DataEnvironment1.rsPartnerI!Opis = "Blokiran po osnovu prinudne naplate"
DataEnvironment1.rsPartnerI.Update
WebBrowser1.Navigate2 "http://www.nbs.rs/rir_pn/searc...IR&konverzija=yes&pib=" & DataEnvironment1.rsPartnerI!pib
Do Until WebBrowser1.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set hDBlokada = WebBrowser1.document
For Each heBlokada In hDBlokada.activeElement.All
If InStr(heBlokada.innerText, "Ukupan iznos blokade") And heBlokada.tagName = "TR" Then
If Prolaz = 1 Then
DataEnvironment1.rsPartnerI!IznosBlokade = Mid$(heBlokada.innerText, 23, Len(heBlokada.innerText))
DataEnvironment1.rsPartnerI.Update
Prolaz = 0
Else
Prolaz = 1
End If
End If
Next
Exit For
ElseIf InStr(he.innerText, "blokirana ") Then
DataEnvironment1.rsPartnerI!Opis = "Blokirana zaduženja"
DataEnvironment1.rsPartnerI.Update
Exit For
ElseIf InStr(he.innerText, "privremeno") Then
DataEnvironment1.rsPartnerI!Opis = "Privremeno neaktivan"
DataEnvironment1.rsPartnerI.Update
Exit For
End If
Next