Prikazi cijelu temu 29.10.2010 08:50
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: XML po zadanoj shemi
Postavio sam i uvb Å¡koli,ova funkcija ti radi:
PreuzmiIzvorni kôd (Text):
  1. Function EksportXML()
  2.  
  3. Dim Db As Database
  4. Dim Rs1 As DAO.Recordset, Rs2 As DAO.Recordset, Rs3 As DAO.Recordset
  5. Dim Naslov As String, Tekst As String
  6.  
  7. Dim ImetabeleXML As String, ImeTabeleBaze As String, ImePoljaXml As String, ImePoljaBaze As String
  8. Dim ID As Integer, ID2 As String, ID1N As String, ID2N As String
  9. Dim SQL As String, X As Integer
  10.  
  11.  
  12. Set Db = CurrentDb()
  13. Close #1
  14.  
  15. Open Db_Putanja & "4281.xml" For Output As #1
  16. Naslov = "<?xml version='1.0' encoding='UTF-8'?>"
  17. Print #1, Naslov
  18. 'Naslov = "<PaketniUvozObrazaca xsi:schemaLocation='" _
  19. ' & "urn:PaketniUvozObrazaca_V1_0.xsd PaketniUvozObrazaca_V1_0.xsd' xmlns='"
  20.  ' & "urn:PaketniUvozObrazaca_V1_0.xsd' xmlns:xsi='http://www.w3.org/2001/XMLSchema'>"
  21. Naslov = "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd' >"
  22. Print #1, Naslov
  23.  
  24. Tekst = "<PodaciOPoslodavcu>"
  25. Print #1, Tekst
  26.  
  27. Tekst = "<JIBPoslodavca>" & DLookup("[JIBPoslodavca]", "PodaciOPoslodavcu") & "</JIBPoslodavca>"
  28. Print #1, Tekst
  29. Tekst = "<NazivPoslodavca>" & DLookup("[NazivPoslodavca]", "PodaciOPoslodavcu") & "</NazivPoslodavca>"
  30. Print #1, Tekst
  31. Tekst = "<BrojZahtjeva>" & DLookup("BrojZahtjeva", "PodaciOPoslodavcu") & "</BrojZahtjeva>"
  32. Print #1, Tekst
  33. Tekst = "<DatumPodnosenja>" & DLookup("DatumPodnosenja", "PodaciOPoslodavcu") & "</DatumPodnosenja>"
  34. Print #1, Tekst
  35. Tekst = "</PodaciOPoslodavcu>"
  36. Print #1, Tekst
  37.  
  38.  
  39. Set Rs1 = Db.OpenRecordset("Select distinct sifra  FROM qry1022", dbOpenDynaset)
  40.     Do While Not Rs1.EOF
  41.         'ID1 = Rs1!SIFR
  42.         Tekst = "<Obrazac1022>"
  43.         Print #1, Tekst
  44.         Tekst = "<Dio1PodaciOPoslodavcuIPoreznomObvezniku>"
  45.         Print #1, Tekst
  46.         Tekst = "<JIBJMBPoslodavca>" & DLookup("JIBJMBPoslodavca", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</JIBJMBPoslodavca>"
  47.         Print #1, Tekst
  48.         Tekst = "<Naziv>" & DLookup("[Naziv]", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</Naziv>"
  49.         Print #1, Tekst
  50.         Tekst = "<AdresaSjedista>" & DLookup("AdresaSjedista", "dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</AdresaSjedista>"
  51.         Print #1, Tekst
  52.         Tekst = "<JMBZaposlenika>" & DLookup("JMBZaposlenika", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</JMBZaposlenika>"
  53.         Print #1, Tekst
  54.         Tekst = "<ImeIPrezime>" & DLookup("ImeIPrezime", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</ImeIPrezime>"
  55.         Print #1, Tekst
  56.         Tekst = "<AdresaPrebivalista>" & DLookup("AdresaPrebivalista", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</AdresaPrebivalista>"
  57.         Print #1, Tekst
  58.         Tekst = "<PoreznaGodina>" & DLookup("PoreznaGodina", "Dio1PodaciOPoslodavcuIPoreznomObvezniku", "Sifra='" & Rs1!sifra & "'") & "</PoreznaGodina>"
  59.         Print #1, Tekst
  60.         Tekst = "</Dio1PodaciOPoslodavcuIPoreznomObvezniku>"
  61.         Print #1, Tekst
  62.         Tekst = "<Dio2PodaciOPrihodimaDoprinosimaIPorezu>"
  63.         Print #1, Tekst
  64.                
  65.     Set Rs2 = Db.OpenRecordset("SELECT * FROM PodaciOPrihodimaDoprinosimaIPorezu WHERE sifra='" & Rs1!sifra & "' order by Mjesec")
  66.     Do While Not Rs2.EOF
  67.        
  68.         Tekst = "<PodaciOPrihodimaDoprinosimaIPorezu>"
  69.         Print #1, Tekst
  70.        
  71.         Tekst = "<Mjesec>" & Rs2!Mjesec & "</Mjesec>"
  72.         Print #1, Tekst
  73.         Tekst = "<IsplataZaMjesecIGodinu>" & Rs2!IsplataZaMjesecIGodinu & "</IsplataZaMjesecIGodinu>"
  74.         Print #1, Tekst
  75.         Tekst = "<VrstaIsplate>" & Rs2!VrstaIsplate & "</VrstaIsplate>"
  76.         Print #1, Tekst
  77.         Tekst = "<IznosPrihodaUNovcu>" & Rs2!IznosPrihodaUNovcu & "</IznosPrihodaUNovcu>"
  78.         Print #1, Tekst
  79.         Tekst = "<IznosPrihodaUStvarimaUslugama>" & Rs2!IznosPrihodaUStvarimaUslugama & "</IznosPrihodaUStvarimaUslugama>"
  80.         Print #1, Tekst
  81.         Tekst = "<BrutoPlaca>" & Rs2!BrutoPlaca & "</BrutoPlaca>"
  82.         Print #1, Tekst
  83.         Tekst = "<IznosZaPenzijskoInvalidskoOsiguranje>" & Rs2!IznosZaPenzijskoInvalidskoOsiguranje & "</IznosZaPenzijskoInvalidskoOsiguranje>"
  84.         Print #1, Tekst
  85.         Tekst = "<IznosZaZdravstvenoOsiguranje>" & Rs2!IznosZaZdravstvenoOsiguranje & "</IznosZaZdravstvenoOsiguranje>"
  86.         Print #1, Tekst
  87.         Tekst = "<IznosZaOsiguranjeOdNezaposlenosti>" & Rs2!IznosZaOsiguranjeOdNezaposlenosti & "</IznosZaOsiguranjeOdNezaposlenosti>"
  88.         Print #1, Tekst
  89.         Tekst = "<UkupniDoprinosi>" & Rs2!UkupniDoprinosi & "</UkupniDoprinosi>"
  90.         Print #1, Tekst
  91.         Tekst = "<PlacaBezDoprinosa>" & Rs2!PlacaBezDoprinosa & "</PlacaBezDoprinosa>"
  92.         Print #1, Tekst
  93.         Tekst = "<FaktorLicnihOdbitakaPremaPoreznojKartici>" & Rs2!FaktorLicnihOdbitakaPremaPoreznojKartici & "</FaktorLicnihOdbitakaPremaPoreznojKartici>"
  94.         Print #1, Tekst
  95.         Tekst = "<IznosLicnogOdbitka>" & Rs2!IznosLicnogOdbitka & "</IznosLicnogOdbitka>"
  96.         Print #1, Tekst
  97.         Tekst = "<OsnovicaPoreza>" & Rs2!OsnovicaPoreza & "</OsnovicaPoreza>"
  98.         Print #1, Tekst
  99.         Tekst = "<IznosUplacenogPoreza>" & Rs2!IznosUplacenogPoreza & "</IznosUplacenogPoreza>"
  100.         Print #1, Tekst
  101.         Tekst = "<NetoPlaca>" & Rs2!NetoPlaca & "</NetoPlaca>"
  102.         Print #1, Tekst
  103.         Tekst = "<DatumUplate>" & Rs2!DatumUplate & "</DatumUplate>"
  104.         Print #1, Tekst
  105.        
  106.         Tekst = "</PodaciOPrihodimaDoprinosimaIPorezu>"
  107.         Print #1, Tekst
  108.        
  109.     Rs2.MoveNext
  110.     Loop
  111.     Rs2.Close
  112.        
  113.         Tekst = "<Ukupno>"
  114.         Print #1, Tekst
  115.    
  116.         Tekst = "<IznosPrihodaUNovcu>" & DLookup("IznosPrihodaUNovcu", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosPrihodaUNovcu>"
  117.         Print #1, Tekst
  118.         Tekst = "<IznosPrihodaUStvarimaUslugama>" & DLookup("IznosPrihodaUStvarimaUslugama", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosPrihodaUStvarimaUslugama>"
  119.         Print #1, Tekst
  120.         Tekst = "<BrutoPlaca>" & DLookup("BrutoPlaca", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</BrutoPlaca>"
  121.         Print #1, Tekst
  122.         Tekst = "<IznosZaPenzijskoInvalidskoOsiguranje>" & DLookup("IznosZaPenzijskoInvalidskoOsiguranje", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaPenzijskoInvalidskoOsiguranje>"
  123.         Print #1, Tekst
  124.         Tekst = "<IznosZaZdravstvenoOsiguranje>" & DLookup("IznosZaZdravstvenoOsiguranje", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaZdravstvenoOsiguranje>"
  125.         Print #1, Tekst
  126.         Tekst = "<IznosZaOsiguranjeOdNezaposlenosti>" & DLookup("IznosZaOsiguranjeOdNezaposlenosti", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosZaOsiguranjeOdNezaposlenosti>"
  127.         Print #1, Tekst
  128.         Tekst = "<UkupniDoprinosi>" & DLookup("UkupniDoprinosi", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</UkupniDoprinosi>"
  129.         Print #1, Tekst
  130.         Tekst = "<PlacaBezDoprinosa>" & DLookup("PlacaBezDoprinosa", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</PlacaBezDoprinosa>"
  131.         Print #1, Tekst
  132.         Tekst = "<IznosLicnogOdbitka>" & DLookup("IznosLicnogOdbitka", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosLicnogOdbitka>"
  133.         Print #1, Tekst
  134.         Tekst = "<OsnovicaPoreza>" & DLookup("OsnovicaPoreza", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</OsnovicaPoreza>"
  135.         Print #1, Tekst
  136.         Tekst = "<IznosUplacenogPoreza>" & DLookup("IznosUplacenogPoreza", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</IznosUplacenogPoreza>"
  137.         Print #1, Tekst
  138.         Tekst = "<NetoPlaca>" & DLookup("NetoPlaca", "Ukupno", "sifra='" & Rs1!sifra & "'") & "</NetoPlaca>"
  139.         Print #1, Tekst
  140.    
  141.         Tekst = "</Ukupno>"
  142.         Print #1, Tekst
  143.    
  144.         Tekst = "</Dio2PodaciOPrihodimaDoprinosimaIPorezu>"
  145.         Print #1, Tekst
  146.        
  147.         Tekst = "<Dio3IzjavaPoslodavcaIsplatioca>"
  148.         Print #1, Tekst
  149.        
  150.         Tekst = "<JIBJMBPoslodavca>" & DLookup("JIBJMBPoslodavca", "Dio3IzjavaPoslodavcaIsplatioca") & "</JIBJMBPoslodavca>"
  151.         Print #1, Tekst
  152.         Tekst = "<DatumUnosa>" & DLookup("DatumUnosa", "Dio3IzjavaPoslodavcaIsplatioca") & "</DatumUnosa>"
  153.         Print #1, Tekst
  154.         Tekst = "<NazivPoslodavca>" & DLookup("NazivPoslodavca", "Dio3IzjavaPoslodavcaIsplatioca") & "</NazivPoslodavca>"
  155.         Print #1, Tekst
  156.        
  157.         Tekst = "</Dio3IzjavaPoslodavcaIsplatioca>"
  158.         Print #1, Tekst
  159.    
  160.         Tekst = "<Dokument>"
  161.         Print #1, Tekst
  162.        
  163.         Tekst = "<Operacija>" & DLookup("Operacija", "Dokument") & "</Operacija>"
  164.         Print #1, Tekst
  165.  
  166.         Tekst = "</Dokument>"
  167.         Print #1, Tekst
  168.  
  169.         Tekst = "</Obrazac1022>"
  170.         Print #1, Tekst
  171.  
  172. Rs1.MoveNext
  173. Loop
  174.  
  175. 'Tekst = "</SpecifikacijaZahtjevaZaIzdavanjePorezneKartice>"
  176. 'Print #1, Tekst
  177.  
  178. Rs1.Close
  179.  
  180. Tekst = "</PaketniUvozObrazaca>"
  181. Print #1, Tekst
  182. Close #1
  183.  
  184. Set Db = Nothing
  185.  
  186. subConvertToUTF8 Db_Putanja & "4281.xml"
  187. End Function
Miro