Evo funkcije sa foruma ICentar.ba koju je postavio Miro35.
Radi se o Obrazcu GIP-1022.
Code:
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