- Function ExportXML()
- Dim Db As Database
- Dim Rs1 As Recordset, Rs2 As Recordset, Rs3 As Recordset, Rs4 As Recordset, Rs5 As Recordset, Rs6 As Recordset
- Dim IDbroj As String, Naziv As String, Adresa As String, PostanskiBroj As String, Grad As String
- Dim Sifra As String, JM As String, Cijena As String, Stopa As String, Kolicina As String, Rabat As String, Oznaka As String, Iznos As String
- Dim Naslov As String, Tekst
- Dim sp, jp, np As String
- Dim ap, ip, az, jz, osn, br As String
- Dim ImetabeleXML As String, ImeTabeleBaze As String, ImePoljaXML As String, ImePoljaBaze As String, Parent As Integer
- Dim ID As Integer, ID1 As String, ID2 As Integer, ID1N As String, ID2N As String
- Dim SQL As String, X As Integer
- Set Db = CurrentDb()
- Close #1
- Open Db_Putanja & "Export.xml" For Output As #1
- Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
- Print #1, Naslov
- Naslov = "<RacunZahtjev xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema'>"
- Print #1, Naslov
- Set Rs1 = Db.OpenRecordset("Select* FROM RacunZahtjev")
- Set Rs2 = Db.OpenRecordset("Select* FROM NoviObjekat")
- sp = Rs1!BrojZahtjeva
- np = Rs1!VrstaZahtjeva
- jp = Rs2!Datum
- br = Rs2!BrojRacuna
- Tekst = "<BrojZahtjeva>" & sp & "</BrojZahtjeva>"
- Print #1, Tekst
- Tekst = "<VrstaZahtjeva>" & np & "</VrstaZahtjeva>"
- Print #1, Tekst
- Tekst = "<NoviObjekat>"
- Print #1, Tekst
- Tekst = "<Datum>" & Format(Now(), "#YYYY-MM-DDTHH:MM:SS#") & "</Datum>"
- Set Rs3 = Db.OpenRecordset("Select* FROM Kupac")
- IDbroj = Rs3!IDbroj
- Naziv = Rs3!Naziv
- Adresa = Rs3!Adresa
- PostanskiBroj = Rs3!PostanskiBroj
- Grad = Rs3!Grad
- Do While Not Kupac.EOF
- Tekst = "<Kupac>"
- Print #1, Tekst
- Tekst = "<IDbroj>" & IDbroj & "</IDbroj>"
- Print #1, Tekst
- Tekst = "<Naziv>" & Naziv & "</Naziv>"
- Print #1, Tekst
- Tekst = "<Adresa>" & Adresa & "</Adresa>"
- Print #1, Tekst
- Tekst = "<PostanskiBroj>" & PostanskiBroj & "</PostanskiBroj>"
- Print #1, Tekst
- Tekst = "<Grad>" & Grad & "</Grad>"
- Print #1, Tekst
- Tekst = "</Kupac>"
- Print #1, Tekst
- Set Rs4 = Db.OpenRecordset("Select* FROM artikal")
- Set Rs5 = Db.OpenRecordset("Select* FROM RacunStavka")
- Sifra = Rs4!Sifra
- Naziv = Rs4!Naziv
- JM = Rs4!JM
- Cijena = Rs4!Cijena
- Stopa = Rs4!Stopa
- Kolicina = Rs5!Kolicina
- Rabat = Rs5!Rabat
- Do While Not artikal.EOF
- Tekst = "<StavkeRacuna>"
- Print #1, Tekst
- Tekst = "<RacunStavka>"
- Print #1, Tekst
- Tekst = "<artikal>"
- Print #1, Tekst
- Tekst = "<Sifra>" & Sifra & "</Sifra>"
- Print #1, Tekst
- Tekst = "<Naziv>" & Naziv & "</Naziv>"
- Print #1, Tekst
- Tekst = "<JM>" & JM & "</JM>"
- Print #1, Tekst
- Tekst = "<Cijena>" & Cijena & "</Cijena>"
- Print #1, Tekst
- Tekst = "<Stopa>" & Stopa & "</Stopa>"
- Print #1, Tekst
- Tekst = "</artikal>"
- Print #1, Tekst
- Tekst = "<Kolicina>" & Kolicina & "</Kolicina>"
- Print #1, Tekst
- Tekst = "<Rabat>" & Rabat & "</Rabat>"
- Print #1, Tekst
- Tekst = "</RacunStavka>"
- Print #1, Tekst
- Tekst = "</StavkeRacuna>"
- Print #1, Tekst
- Set Rs6 = Db.OpenRecordset("Select* FROM VrstaPlacanja")
- Oznaka = Rs6!Oznaka
- Iznos = Rs6!Iznos
- Do While Not VrstaPlacanja.EOF
- Tekst = "<VrstePlacanja>"
- Print #1, Tekst
- Tekst = "<VrstaPlacanja>"
- Print #1, Tekst
- Tekst = "<Oznaka>" & Oznaka & "</Oznaka>"
- Print #1, Tekst
- Tekst = "<Iznos>" & Iznos & "</Iznos>"
- Print #1, Tekst
- Tekst = "</VrstaPlacanja>"
- Print #1, Tekst
- Tekst = "</VrstePlacanja>"
- Print #1, Tekst
- Tekst = "<BrojRacuna>" & br & "</BrojRacuna>"
- Print #1, Tekst
- Tekst = "</NoviObjekat>"
- Print #1, Tekst
- Tekst = "</RacunZahtjev>"
- Print #1, Tekst
- Tekst.SaveToFile "C:\stampatifiskalniracun.xml", adSaveCreateOverWrite
- Loop
- End Function