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