- Function EksportXML()
- Dim Db As Database
- Dim Rs1 As DAO.Recordset, Rs2 As DAO.Recordset, Rs3 As DAO.Recordset
- Dim Naslov As String, Tekst As String
- Dim ImetabeleXML As String, ImeTabeleBaze As String, ImePoljaXml As String, ImePoljaBaze As String
- Dim ID As Integer, ID2 As String, ID1N As String, ID2N As String
- Dim SQL As String, X As Integer
- Set Db = CurrentDb()
- Close #1
- Open Db_Putanja & "4281.xml" For Output As #1
- Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
- Print #1, Naslov
- 'Naslov = "<PaketniUvozObrazaca xsi:schemaLocation='" _
- ' & "urn:PaketniUvozObrazaca_V1_0.xsd PaketniUvozObrazaca_V1_0.xsd' xmlns='"
- ' & "urn:PaketniUvozObrazaca_V1_0.xsd' xmlns:xsi='http://www.w3.org/2001/XMLSchema'>"
- Naslov = "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd' >"
- Print #1, Naslov
- Tekst = "<PodaciOPoslodavcu>"
- Print #1, Tekst
- Tekst = "<JIBPoslodavca>" & DLookup("[JIBPoslodavca]", "PodaciOPoslodavcu") & "</JIBPoslodavca>"
- Print #1, Tekst
- Tekst = "<NazivPoslodavca>" & DLookup("[NazivPoslodavca]", "PodaciOPoslodavcu") & "</NazivPoslodavca>"
- Print #1, Tekst
- Tekst = "<BrojZahtjeva>" & DLookup("BrojZahtjeva", "PodaciOPoslodavcu") & "</BrojZahtjeva>"
- Print #1, Tekst
- Tekst = "<DatumPodnosenja>" & DLookup("DatumPodnosenja", "PodaciOPoslodavcu") & "</DatumPodnosenja>"
- Print #1, Tekst
- Tekst = "</PodaciOPoslodavcu>"
- Print #1, Tekst
- Set Rs1 = Db.OpenRecordset("Select distinct sifra FROM qry1022", dbOpenDynaset)
- Do While Not Rs1.EOF
- 'ID1 = Rs1!SIFR
- Tekst = "<Obrazac1022>"
- Print #1, Tekst
- Tekst = "<Dio1PodaciOPoslodavcuIPoreznomObvezniku>"
- Print #1, Tekst
- Tekst = "<JIBJMBPoslodavca>" & DLookup("JIBJMBPoslodavca", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</JIBJMBPoslodavca>"
- Print #1, Tekst
- Tekst = "<Naziv>" & DLookup("[Naziv]", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</Naziv>"
- Print #1, Tekst
- Tekst = "<AdresaSjedista>" & DLookup("AdresaSjedista", "dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</AdresaSjedista>"
- Print #1, Tekst
- Tekst = "<JMBZaposlenika>" & DLookup("JMBZaposlenika", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</JMBZaposlenika>"
- Print #1, Tekst
- Tekst = "<ImeIPrezime>" & DLookup("ImeIPrezime", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</ImeIPrezime>"
- Print #1, Tekst
- Tekst = "<AdresaPrebivalista>" & DLookup("AdresaPrebivalista", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</AdresaPrebivalista>"
- Print #1, Tekst
- Tekst = "<PoreznaGodina>" & DLookup("PoreznaGodina", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</PoreznaGodina>"
- Print #1, Tekst
- Tekst = "</Dio1PodaciOPoslodavcuIPoreznomObvezniku>"
- Print #1, Tekst
- Tekst = "<Dio2PodaciOPrihodimaDoprinosimaIPorezu>"
- Print #1, Tekst
- Set Rs2 = Db.OpenRecordset("SELECT * FROM PodaciOPrihodimaDoprinosimaIPorezu WHERE sifra='" & Rs1!sifra & "' order by Mjesec")
- Do While Not Rs2.EOF
- Tekst = "<PodaciOPrihodimaDoprinosimaIPorezu>"
- Print #1, Tekst
- Tekst = "<Mjesec>" & Rs2!Mjesec & "</Mjesec>"
- Print #1, Tekst
- Tekst = "<IsplataZaMjesecIGodinu>" & Rs2!IsplataZaMjesecIGodinu & "</IsplataZaMjesecIGodinu>"
- Print #1, Tekst
- Tekst = "<VrstaIsplate>" & Rs2!VrstaIsplate & "</VrstaIsplate>"
- Print #1, Tekst
- Tekst = "<IznosPrihodaUNovcu>" & Rs2!IznosPrihodaUNovcu & "</IznosPrihodaUNovcu>"
- Print #1, Tekst
- Tekst = "<IznosPrihodaUStvarimaUslugama>" & Rs2!IznosPrihodaUStvarimaUslugama & "</IznosPrihodaUStvarimaUslugama>"
- Print #1, Tekst
- Tekst = "<BrutoPlaca>" & Rs2!BrutoPlaca & "</BrutoPlaca>"
- Print #1, Tekst
- Tekst = "<IznosZaPenzijskoInvalidskoOsiguranje>" & Rs2!IznosZaPenzijskoInvalidskoOsiguranje & "</IznosZaPenzijskoInvalidskoOsiguranje>"
- Print #1, Tekst
- Tekst = "<IznosZaZdravstvenoOsiguranje>" & Rs2!IznosZaZdravstvenoOsiguranje & "</IznosZaZdravstvenoOsiguranje>"
- Print #1, Tekst
- Tekst = "<IznosZaOsiguranjeOdNezaposlenosti>" & Rs2!IznosZaOsiguranjeOdNezaposlenosti & "</IznosZaOsiguranjeOdNezaposlenosti>"
- Print #1, Tekst
- Tekst = "<UkupniDoprinosi>" & Rs2!UkupniDoprinosi & "</UkupniDoprinosi>"
- Print #1, Tekst
- Tekst = "<PlacaBezDoprinosa>" & Rs2!PlacaBezDoprinosa & "</PlacaBezDoprinosa>"
- Print #1, Tekst
- Tekst = "<FaktorLicnihOdbitakaPremaPoreznojKartici>" & Rs2!FaktorLicnihOdbitakaPremaPoreznojKartici & "</FaktorLicnihOdbitakaPremaPoreznojKartici>"
- Print #1, Tekst
- Tekst = "<IznosLicnogOdbitka>" & Rs2!IznosLicnogOdbitka & "</IznosLicnogOdbitka>"
- Print #1, Tekst
- Tekst = "<OsnovicaPoreza>" & Rs2!OsnovicaPoreza & "</OsnovicaPoreza>"
- Print #1, Tekst
- Tekst = "<IznosUplacenogPoreza>" & Rs2!IznosUplacenogPoreza & "</IznosUplacenogPoreza>"
- Print #1, Tekst
- Tekst = "<NetoPlaca>" & Rs2!NetoPlaca & "</NetoPlaca>"
- Print #1, Tekst
- Tekst = "<DatumUplate>" & Rs2!DatumUplate & "</DatumUplate>"
- Print #1, Tekst
- Tekst = "</PodaciOPrihodimaDoprinosimaIPorezu>"
- Print #1, Tekst
- Rs2.MoveNext
- Loop
- Rs2.Close
- Tekst = "<Ukupno>"
- Print #1, Tekst
- Tekst = "<IznosPrihodaUNovcu>" & DLookup("IznosPrihodaUNovcu", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosPrihodaUNovcu>"
- Print #1, Tekst
- Tekst = "<IznosPrihodaUStvarimaUslugama>" & DLookup("IznosPrihodaUStvarimaUslugama", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosPrihodaUStvarimaUslugama>"
- Print #1, Tekst
- Tekst = "<BrutoPlaca>" & DLookup("BrutoPlaca", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</BrutoPlaca>"
- Print #1, Tekst
- Tekst = "<IznosZaPenzijskoInvalidskoOsiguranje>" & DLookup("IznosZaPenzijskoInvalidskoOsiguranje", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaPenzijskoInvalidskoOsiguranje>"
- Print #1, Tekst
- Tekst = "<IznosZaZdravstvenoOsiguranje>" & DLookup("IznosZaZdravstvenoOsiguranje", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaZdravstvenoOsiguranje>"
- Print #1, Tekst
- Tekst = "<IznosZaOsiguranjeOdNezaposlenosti>" & DLookup("IznosZaOsiguranjeOdNezaposlenosti", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaOsiguranjeOdNezaposlenosti>"
- Print #1, Tekst
- Tekst = "<UkupniDoprinosi>" & DLookup("UkupniDoprinosi", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</UkupniDoprinosi>"
- Print #1, Tekst
- Tekst = "<PlacaBezDoprinosa>" & DLookup("PlacaBezDoprinosa", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</PlacaBezDoprinosa>"
- Print #1, Tekst
- Tekst = "<IznosLicnogOdbitka>" & DLookup("IznosLicnogOdbitka", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosLicnogOdbitka>"
- Print #1, Tekst
- Tekst = "<OsnovicaPoreza>" & DLookup("OsnovicaPoreza", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</OsnovicaPoreza>"
- Print #1, Tekst
- Tekst = "<IznosUplacenogPoreza>" & DLookup("IznosUplacenogPoreza", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosUplacenogPoreza>"
- Print #1, Tekst
- Tekst = "<NetoPlaca>" & DLookup("NetoPlaca", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</NetoPlaca>"
- Print #1, Tekst
- Tekst = "</Ukupno>"
- Print #1, Tekst
- Tekst = "</Dio2PodaciOPrihodimaDoprinosimaIPorezu>"
- Print #1, Tekst
- Tekst = "<Dio3IzjavaPoslodavcaIsplatioca>"
- Print #1, Tekst
- Tekst = "<JIBJMBPoslodavca>" & DLookup("JIBJMBPoslodavca", "Dio3IzjavaPoslodavcaIsplatioca") & "</JIBJMBPoslodavca>"
- Print #1, Tekst
- Tekst = "<DatumUnosa>" & DLookup("DatumUnosa", "Dio3IzjavaPoslodavcaIsplatioca") & "</DatumUnosa>"
- Print #1, Tekst
- Tekst = "<NazivPoslodavca>" & DLookup("NazivPoslodavca", "Dio3IzjavaPoslodavcaIsplatioca") & "</NazivPoslodavca>"
- Print #1, Tekst
- Tekst = "</Dio3IzjavaPoslodavcaIsplatioca>"
- Print #1, Tekst
- Tekst = "<Dokument>"
- Print #1, Tekst
- Tekst = "<Operacija>" & DLookup("Operacija", "Dokument") & "</Operacija>"
- Print #1, Tekst
- Tekst = "</Dokument>"
- Print #1, Tekst
- Tekst = "</Obrazac1022>"
- Print #1, Tekst
- Rs1.MoveNext
- Loop
- 'Tekst = "</SpecifikacijaZahtjevaZaIzdavanjePorezneKartice>"
- 'Print #1, Tekst
- Rs1.Close
- Tekst = "</PaketniUvozObrazaca>"
- Print #1, Tekst
- Close #1
- Set Db = Nothing
- subConvertToUTF8 Db_Putanja & "4281.xml"
- End Function