Dim xml As NewChilkat.Xml
xml.Tag = "soap:Envelope"Dim success As Boolean
success = xml.AddAttribute("xmlns:soap","http://www.w3.org/2003/05/soap-envelope")
success = xml.AddAttribute("xmlns:ser","service.checkpoint.rs")
xml.UpdateChildContent"soap:Header",""
xml.UpdateChildContent"soap:Body|ser:VratiPortfolio|ser:token","string"// In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
xml.EmitXmlDecl = FalseDim soapRequestBody As String
soapRequestBody = xml.GetXml()
Dim endpoint As String
endpoint = "https://service.checkpoint.rs/service.asmx"Dim soapAction As String
soapAction = "service.checkpoint.rs/VratiPortfolio"// For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"Dim contentType As String
contentType = "text/xml"Dim http As NewChilkat.Http
http.ClearHeaders
http.SetRequestHeader"Content-Type",contentType
http.SetRequestHeader"SOAPAction",soapAction
Dim resp AsChilkat.HttpResponse
resp = http.PostXml(endpoint,soapRequestBody,"utf-8")
If (http.LastMethodSuccess = False) Then
System.DebugLog(http.LastErrorText)
System.DebugLog("Failed to send SOAP request.")
ReturnEnd If// Get the XML response body.Dim responseXml As NewChilkat.Xml
success = resp.GetBodyXml(responseXml)
Dim statusCode As Int32
statusCode = resp.StatusCode
System.DebugLog("response status code: " + Str(statusCode))
// If the status code does not indicate succcess, then show the response XML,
// which probably contains error information.If (statusCode <> 200) Then
System.DebugLog(responseXml.GetXml())
ReturnEnd If
System.DebugLog(responseXml.GetXml())
// Parse the successful SOAP response XML.// This is a sample of the response XML, but the namespace prefixes will be different.
// We can parse the result using "*" for the namespace prefixes (see below).Dim Subjekt_ID As Int32
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:Subjekt_ID")
Dim MBR As String
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:MBR")
Dim PIB As String
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:PIB")
Dim NBS_status As String
NBS_status = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:NBS_status")
Dim NBS_blokada_dana As Int32
NBS_blokada_dana = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:NBS_blokada_dana")
Dim NBS_blokada_iznos As String
NBS_blokada_iznos = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:NBS_blokada_iznos")
Dim NBS_Max_Blokada_12_meseci As Int32
NBS_Max_Blokada_12_meseci = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:NBS_Max_Blokada_12_meseci")
Dim NBS_Ukupno_Blokada_12_meseci As Int32
NBS_Ukupno_Blokada_12_meseci = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsStatus|*:SubjektNbsStatus|*:NBS_Ukupno_Blokada_12_meseci")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsBlokade|*:SubjektNbsBlokada|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsBlokade|*:SubjektNbsBlokada|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsBlokade|*:SubjektNbsBlokada|*:PIB")
Dim Datum_od As String
Datum_od = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsBlokade|*:SubjektNbsBlokada|*:Datum_od")
Dim Datum_do As String
Datum_do = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsBlokade|*:SubjektNbsBlokada|*:Datum_do")
Dim Blokada_dana As Int32
Blokada_dana = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsBlokade|*:SubjektNbsBlokada|*:Blokada_dana")
Dim Blokada_iznos As String
Blokada_iznos = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:NbsBlokade|*:SubjektNbsBlokada|*:Blokada_iznos")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PdvStatus|*:SubjektPdvStatus|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PdvStatus|*:SubjektPdvStatus|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PdvStatus|*:SubjektPdvStatus|*:PIB")
Dim PDV_status As String
PDV_status = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PdvStatus|*:SubjektPdvStatus|*:PDV_status")
Dim PU_status As String
PU_status = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PdvStatus|*:SubjektPdvStatus|*:PU_status")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:PIB")
Dim Datum_Osnivanja As String
Datum_Osnivanja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Datum_Osnivanja")
Dim Datum_Brisanja As String
Datum_Brisanja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Datum_Brisanja")
Dim Naziv_skraceni As String
Naziv_skraceni = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Naziv_skraceni")
Dim Naziv_pun As String
Naziv_pun = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Naziv_pun")
Dim Sediste_mesto As String
Sediste_mesto = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Sediste_mesto")
Dim Sediste_opstina As String
Sediste_opstina = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Sediste_opstina")
Dim Sediste_region As String
Sediste_region = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Sediste_region")
Dim Sediste_drzava As String
Sediste_drzava = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Sediste_drzava")
Dim Sediste_ulica As String
Sediste_ulica = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Sediste_ulica")
Dim Sediste_postanski_broj As String
Sediste_postanski_broj = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Sediste_postanski_broj")
Dim Status_APR As String
Status_APR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Status_APR")
Dim Status_NBS As String
Status_NBS = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Status_NBS")
Dim Status_CheckPoint As String
Status_CheckPoint = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Status_CheckPoint")
Dim Pravna_Forma As String
Pravna_Forma = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Pravna_Forma")
Dim Delatnost_Sifra As String
Delatnost_Sifra = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Delatnost_Sifra")
Dim Delatnost_Region As String
Delatnost_Region = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Delatnost_Region")
Dim Delatnost_Naziv As String
Delatnost_Naziv = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Delatnost_Naziv")
Dim Poslednji_FI As Int32
Poslednji_FI = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Poslednji_FI")
Dim Velicina As String
Velicina = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Velicina")
Dim Insolventan As String
Insolventan = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Insolventan")
Dim Pdv_Broj As String
Pdv_Broj = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Subjekt|*:SubjektSkraceni|*:Pdv_Broj")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Bonitet|*:SubjektBonitet|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Bonitet|*:SubjektBonitet|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Bonitet|*:SubjektBonitet|*:PIB")
Dim Bonitetna_Ocena As String
Bonitetna_Ocena = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Bonitet|*:SubjektBonitet|*:Bonitetna_Ocena")
Dim Dinamicna_Ocena As Int32
Dinamicna_Ocena = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Bonitet|*:SubjektBonitet|*:Dinamicna_Ocena")
Dim Godina_Bilans As Int32
Godina_Bilans = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Bonitet|*:SubjektBonitet|*:Godina_Bilans")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:BonitetIstorija|*:SubjektBonitetIstorija|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:BonitetIstorija|*:SubjektBonitetIstorija|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:BonitetIstorija|*:SubjektBonitetIstorija|*:PIB")
Bonitetna_Ocena = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:BonitetIstorija|*:SubjektBonitetIstorija|*:Bonitetna_Ocena")
Godina_Bilans = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:BonitetIstorija|*:SubjektBonitetIstorija|*:Godina_Bilans")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Vlasnici|*:SubjektVlasnik|*:Subjekt_ID")
Dim Subjekt_MBR As String
Subjekt_MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Vlasnici|*:SubjektVlasnik|*:Subjekt_MBR")
Dim Osoba_ime As String
Osoba_ime = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Vlasnici|*:SubjektVlasnik|*:Osoba_ime")
Dim Osoba_prezime As String
Osoba_prezime = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Vlasnici|*:SubjektVlasnik|*:Osoba_prezime")
Dim Preduzece_mbr As String
Preduzece_mbr = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Vlasnici|*:SubjektVlasnik|*:Preduzece_mbr")
Dim Preduzece_naziv As String
Preduzece_naziv = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Vlasnici|*:SubjektVlasnik|*:Preduzece_naziv")
Dim Udeo As String
Udeo = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Vlasnici|*:SubjektVlasnik|*:Udeo")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zastupnici|*:SubjektZastupnik|*:Subjekt_ID")
Subjekt_MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zastupnici|*:SubjektZastupnik|*:Subjekt_MBR")
Dim Zastupnik_ime As String
Zastupnik_ime = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zastupnici|*:SubjektZastupnik|*:Zastupnik_ime")
Dim Zastupnik_prezime As String
Zastupnik_prezime = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zastupnici|*:SubjektZastupnik|*:Zastupnik_prezime")
Dim Zastupnik_funkcija As String
Zastupnik_funkcija = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zastupnici|*:SubjektZastupnik|*:Zastupnik_funkcija")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:OduzetPIB|*:SubjektOduzetPib|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:OduzetPIB|*:SubjektOduzetPib|*:MBR")
Dim Datum_Od As String
Datum_Od = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:OduzetPIB|*:SubjektOduzetPib|*:Datum_Od")
Dim Datum_Do As String
Datum_Do = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:OduzetPIB|*:SubjektOduzetPib|*:Datum_Do")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Subjekt_ID")
Subjekt_MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Subjekt_MBR")
Dim Tekuci_Racun As String
Tekuci_Racun = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Tekuci_Racun")
Dim Datum_Otvaranja As String
Datum_Otvaranja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Datum_Otvaranja")
Dim Datum_Zatvaranja As String
Datum_Zatvaranja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Datum_Zatvaranja")
Dim Banka As String
Banka = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Banka")
Dim Tip_Racuna As String
Tip_Racuna = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Tip_Racuna")
Dim Status_Racuna As String
Status_Racuna = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Status_Racuna")
Dim Drugi_Racun As String
Drugi_Racun = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:TekuciRacuni|*:SubjektTekuciRacun|*:Drugi_Racun")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:PIB")
Dim Broj_Resenja As String
Broj_Resenja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Broj_Resenja")
Dim Naziv_Donosioca As String
Naziv_Donosioca = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Naziv_Donosioca")
Dim Poverilac As String
Poverilac = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Poverilac")
Dim Datum_Prijema As String
Datum_Prijema = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Datum_Prijema")
Dim Datum_Izvrsenja As String
Datum_Izvrsenja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Datum_Izvrsenja")
Dim Status_Resenja As String
Status_Resenja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Status_Resenja")
Dim Iznos As String
Iznos = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Izvrsenja|*:SubjektIzvrsenje|*:Iznos")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PovezanaPreduzeca|*:SubjektPovezani|*:Subjekt_ID")
Subjekt_MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PovezanaPreduzeca|*:SubjektPovezani|*:Subjekt_MBR")
Dim Povezani_Naziv_skraceni As String
Povezani_Naziv_skraceni = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PovezanaPreduzeca|*:SubjektPovezani|*:Povezani_Naziv_skraceni")
Dim Povezani_MBR As String
Povezani_MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PovezanaPreduzeca|*:SubjektPovezani|*:Povezani_MBR")
Dim Povezani_PIB As String
Povezani_PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PovezanaPreduzeca|*:SubjektPovezani|*:Povezani_PIB")
Dim Povezani_ID As Int32
Povezani_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PovezanaPreduzeca|*:SubjektPovezani|*:Povezani_ID")
Dim Nbs_status As String
Nbs_status = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:PovezanaPreduzeca|*:SubjektPovezani|*:Nbs_status")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:PIB")
Dim Godina As Int32
Godina = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Godina")
Dim Kapital As String
Kapital = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Kapital")
Dim Neto_dobit As String
Neto_dobit = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Neto_dobit")
Dim Neto_gubitak As String
Neto_gubitak = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Neto_gubitak")
Dim Ebitda As String
Ebitda = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Ebitda")
Dim Zaduzenost As String
Zaduzenost = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Zaduzenost")
Dim BrojZaposlenih As Int32
BrojZaposlenih = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:BrojZaposlenih")
Dim Promet As String
Promet = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Promet")
Dim Gubitak_iznad_visine_kapitala As String
Gubitak_iznad_visine_kapitala = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Gubitak_iznad_visine_kapitala")
Dim Neto_dug As String
Neto_dug = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Neto_dug")
Dim Neto_dug_Ebitda As String
Neto_dug_Ebitda = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Neto_dug_Ebitda")
Dim Aktiva As String
Aktiva = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Aktiva")
Dim Stalna_imovina As String
Stalna_imovina = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Stalna_imovina")
Dim Obrtna_sredstva_kratkorocne_obaveze As String
Obrtna_sredstva_kratkorocne_obaveze = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Obrtna_sredstva_kratkorocne_obaveze")
Dim Obaveze_iz_poslovanja As String
Obaveze_iz_poslovanja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Obaveze_iz_poslovanja")
Dim Gotovina As String
Gotovina = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Gotovina")
Dim Finansijski_dug As String
Finansijski_dug = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Finansijski_dug")
Dim Prihod_od_prodaje As String
Prihod_od_prodaje = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:FinansijskiPodaci|*:SubjektFinansijskiPodaci|*:Prihod_od_prodaje")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:MBR")
Dim Registarski_broj As String
Registarski_broj = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Registarski_broj")
Dim Status As String
Status = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Status")
Dim Datum_ugovora As String
Datum_ugovora = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Datum_ugovora")
Dim Beleska As String
Beleska = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Beleska")
Dim Osnovni_iznos As String
Osnovni_iznos = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Osnovni_iznos")
Dim Maksimalni_iznos As String
Maksimalni_iznos = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Maksimalni_iznos")
Dim Valuta As String
Valuta = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Valuta")
Dim Datum_dospeca As String
Datum_dospeca = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zaloge|*:SubjketZaloga|*:Datum_dospeca")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:DnevnaBlokada|*:SubjektDnevnaBlokada|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:DnevnaBlokada|*:SubjektDnevnaBlokada|*:MBR")
Dim Datum As String
Datum = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:DnevnaBlokada|*:SubjektDnevnaBlokada|*:Datum")
Dim Broj_blokiranih_racuna As Int32
Broj_blokiranih_racuna = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:DnevnaBlokada|*:SubjektDnevnaBlokada|*:Broj_blokiranih_racuna")
Dim Ukupan_broj_racuna As Int32
Ukupan_broj_racuna = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:DnevnaBlokada|*:SubjektDnevnaBlokada|*:Ukupan_broj_racuna")
Iznos = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:DnevnaBlokada|*:SubjektDnevnaBlokada|*:Iznos")
Status = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:DnevnaBlokada|*:SubjektDnevnaBlokada|*:Status")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kontakt|*:SubjektKontakt|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kontakt|*:SubjektKontakt|*:MBR")
Dim Telefon As String
Telefon = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kontakt|*:SubjektKontakt|*:Telefon")
Dim v_Email As String
v_Email = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kontakt|*:SubjektKontakt|*:Email")
Dim Web As String
Web = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kontakt|*:SubjektKontakt|*:Web")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zabelezbe|*:SubjektZabelezba|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zabelezbe|*:SubjektZabelezba|*:MBR")
Dim Tip As String
Tip = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zabelezbe|*:SubjektZabelezba|*:Tip")
Datum = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zabelezbe|*:SubjektZabelezba|*:Datum")
Dim Opis As String
Opis = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Zabelezbe|*:SubjektZabelezba|*:Opis")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:MBR")
Dim Lokacija As String
Lokacija = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Lokacija")
Dim Mesto As String
Mesto = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Mesto")
Dim Vrsta_nepokretnosti As String
Vrsta_nepokretnosti = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Vrsta_nepokretnosti")
Dim Povrsina As String
Povrsina = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Povrsina")
Udeo = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Udeo")
Dim Teret As String
Teret = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Teret")
Dim Zabelezba As String
Zabelezba = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Imovina|*:SubjektImovina|*:Zabelezba")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:MBR")
Dim Broj_predmeta As String
Broj_predmeta = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Broj_predmeta")
Dim Sud As String
Sud = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Sud")
Dim Osnov_spora As String
Osnov_spora = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Osnov_spora")
Datum = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Datum")
Dim Datum_poslednjeg_rocista As String
Datum_poslednjeg_rocista = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Datum_poslednjeg_rocista")
Iznos = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Iznos")
Status = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Status")
Dim Strana As String
Strana = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:SudskiPredmeti|*:SubjektSudskiPredmet|*:Strana")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kapital|*:SubjektKapital|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kapital|*:SubjektKapital|*:MBR")
Dim Vrsta As String
Vrsta = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kapital|*:SubjektKapital|*:Vrsta")
Dim Vrednost As String
Vrednost = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kapital|*:SubjektKapital|*:Vrednost")
Valuta = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kapital|*:SubjektKapital|*:Valuta")
Datum = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Kapital|*:SubjektKapital|*:Datum")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:PIB")
Godina = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Godina")
BrojZaposlenih = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:BrojZaposlenih")
Dim Roe As String
Roe = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Roe")
Dim Roa As String
Roa = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Roa")
Dim Prosecno_vreme_naplate_potrazivanja As String
Prosecno_vreme_naplate_potrazivanja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Prosecno_vreme_naplate_potrazivanja")
Dim Prosecno_vreme_placanja_dobavljacima As String
Prosecno_vreme_placanja_dobavljacima = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Prosecno_vreme_placanja_dobavljacima")
Gotovina = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Gotovina")
Dim Potrazivanja_od_kupaca As String
Potrazivanja_od_kupaca = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Potrazivanja_od_kupaca")
Dim Obaveze_prema_dobavljacima As String
Obaveze_prema_dobavljacima = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Obaveze_prema_dobavljacima")
Dim Ukupna_aktiva As String
Ukupna_aktiva = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Ukupna_aktiva")
Stalna_imovina = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Stalna_imovina")
Dim Poslovni_prihod_po_zaposlenom As String
Poslovni_prihod_po_zaposlenom = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Poslovni_prihod_po_zaposlenom")
Neto_gubitak = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Neto_gubitak")
Dim Neto_dobitak As String
Neto_dobitak = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Neto_dobitak")
Dim Poslovni_prihodi As String
Poslovni_prihodi = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Poslovni_prihodi")
Dim Ukupni_prihodi As String
Ukupni_prihodi = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Ukupni_prihodi")
Valuta = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Valuta")
Dim Dugorocne_obaveze_i_rezervisanja As String
Dugorocne_obaveze_i_rezervisanja = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Dugorocne_obaveze_i_rezervisanja")
Kapital = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:Poslovanje|*:SubjektPoslovanje|*:Kapital")
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:PIB")
Godina = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:Godina")
BrojZaposlenih = responseXml.GetChildIntValue("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:BrojZaposlenih")
Neto_gubitak = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:Neto_gubitak")
Neto_dobitak = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:Neto_dobitak")
Poslovni_prihodi = responseXml.GetChildContent("*:Body|*:VratiPortfolioResponse|*:VratiPortfolioResult|*:AopIstorija|*:SubjektAopIstorija|*:Poslovni_prihodi")