Export iz Access-a u XML na osnovu sheme

[ Sonique @ 28.07.2009. 17:31 ] @

Pozdav svima,
zanima me postoji li mogucnost exporta podataka iz access-a u xml na osnovu sheme, jer radim porezne kartice za radnike (BiH) pa su nam iz porezne uprave dali primjer kako treba da izgleda xml fajl: http://www.pufbih.ba/doc_files/4200111111111.xml .
Ako neko nesto zna, jer hitno je pravo.
Unaprijed hvala.

[ Getsbi @ 28.07.2009. 18:08 ] @

Otvori prazan .mdb fajl i unjega importuj taj fajl 4200111111111.xml. (Opcija File, Get External Data, Import). Dobićeš 9 tabela sa strukturom i podacima. Podaci ti veroavtno ne trebaju. Zadrži strukturu tabela. Tvoja baza u Access-u treba da ima ove tabele. U svojoj aplikaciji i obezbedi punjenje tih novih tabela iz tvojih postojećih tabela.

Kasnije kad napuniš tabele podacima, pokreneš opciju File, Export i potražiš iz Save as type exstenziju .xml.

[ Sonique @ 28.07.2009. 18:34 ] @

Probao sam, ali imam jedan problem a to je kako sve tabele "odjednom" exportovati u jedan xml fajl?

[ Getsbi @ 28.07.2009. 19:01 ] @

Ako radiš jednom godišnje, onda je najprihvatljivije ručno, jer je .xml fajl obišan tekstualni fajl samo treba da uočiš gde je početni, a gde završni tag za pojedini deo. Pogledaj dobro postojeći 4200111111111.xml

Ako radš često onda treba da napišeš VBA kod koji će da ti radi exportovanje tabela na željenu destinaciju u .xml format.

[ Sonique @ 28.07.2009. 19:03 ] @

Meni bi trebao taj kod, ako nije problem da mi napisete?

[ Getsbi @ 28.07.2009. 19:12 ] @

Recimo ovako:

Code:
Application.ExportXML ObjectType:=acExportTable, DataSource:="PodaciOPoslodavcu", DataTarget:="C:\Temp\PodaciOPoslodavci.XML"

Tako redom eksportuješ sve tabele. Potom odrediš redosled spajanja i spajaš koristeći funkciju u prilogu Spoji_Fajlove().

Code:
Debug.Print Spoji_Fajlove("C:\Temp\PrviFajl.XML", "C:\Temp\4200111111111.XML", True) ' Fajl_Na
Debug.Print Spoji_Fajlove("C:\Temp\DrugiFajl.XML", "C:\Temp\4200111111111.XML", True) ' Fajl_Sa

a evo i funkcije

Code:
Public Function Spoji_Fajlove(ByVal Fajl_Sa As String, ByVal Fajl_Na As String, Info_Greske As Boolean) As Boolean

' VAZNO --------------------------------------------------------------------------------------
' Fajl_Sa = Mora da postoji inace ce doci do greske
' Fajl_Na = Ukoliko ne postoji bice kreiran, na njegov kraj bice dodan sadrzaj prvog fajla
'---------------------------------------------------------------------------------------------

    On Error GoTo Greska_Err

    Dim Id_Fajl_Sa      As Long
    Dim Id_Fajl_Na      As Long
    Dim Slog            As String

    Id_Fajl_Sa = FreeFile()
    Open Fajl_Sa For Input As #Id_Fajl_Sa

    Id_Fajl_Na = FreeFile()
    Open Fajl_Na For Append As #Id_Fajl_Na

    Do While Not EOF(Id_Fajl_Sa)
        Input #Id_Fajl_Sa, Slog ' Citanje iz prvog fajl-a
        Print #Id_Fajl_Na, Slog ' Dodavanje u drugi fajl
    Loop

    Close #Id_Fajl_Sa
    Close #Id_Fajl_Na

    Spoji_Fajlove = True
    Exit Function

Greska_Err:
    If Info_Greske = True Then
        MsgBox "Greska: " & Err.Number & vbCrLf & "Opis: " & Err.Description, vbCritical, "Funkcija: Spoji_Fajlove"
    End If
    Err.Clear
    Spoji_Fajlove = False
    Exit Function

End Function

[ Sonique @ 28.07.2009. 19:40 ] @

Hvala druze, imam samo jos jednu molbu kako da izbacim sljedeci tekst:
<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2009-07-28T20:37:05">

naime, ovaj tekst mi se pojavljuje na svakom "spajanju" npr.tabele1 i tabele2 pa onda na spajanju tabele2 i tabele3?

[ Getsbi @ 28.07.2009. 22:01 ] @

Prva dva reda koja si spomenuo i još jedan tag na kraju </dataroot> su problem. Trebalo bi doraditi funkciju ili pak napisati novu koja briše te tagove u fajlovima. Zasad ih obriši ručno. Čim budem imao vremena dopisaću nešto u tu svhu.

[ Sonique @ 28.07.2009. 23:56 ] @

ok, hvala puno

[ Daks @ 04.03.2011. 16:58 ] @

Mozda je tema malo zastarjela. Mene interesuje da li ste uspjeli doraditi funkciju?

Pozdrav

[ Daks @ 04.03.2011. 18:44 ] @

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

[ Miro35 @ 10.03.2011. 13:26 ] @

Evo ti gotovo kako ja to radim.Danas sam dovršio taj MIP1023.Znači nemoraš kreirati funkciju.Ovo staviš na događaj on_Click nekog dugmeta s tim da staviš svoje query - je.Jer ovo su moji recorsetovi.
Evo primjer:

Code:
If IsNull(DLookup("GodMjesec", "qryMIP1023MIO", "GodMjesec='" & Me.GODINA.Column(0) & "'")) Then
MsgBox "Ne postoje podaci za ispis,Izaberite obračun za ispis!", vbExclamation, "Obavijest"
DoCmd.GoToControl "Godina"
Exit Sub
End If
If IsNull(Me.GODINA) Then
MsgBox "Niste izabrali godinu i mjesec za knjiženje MIP1023!", vbExclamation, "Obavijest"
DoCmd.GoToControl "Godina"
Exit Sub
End If
If IsNull(Me.DatumPodnosenja) Then
MsgBox "Niste izabrali Datum podnošenja za knjiženje MIP1023!", vbExclamation, "Obavijest"
DoCmd.GoToControl "DatumPodnosenja"
Exit Sub
End If
If IsNull(Me.PeriodOd) Then
MsgBox "Niste izabrali Period od za knjiženje MIP1023!", vbExclamation, "Obavijest"
DoCmd.GoToControl "PeriodOd"
Exit Sub
End If
If IsNull(Me.PeriodDo) Then
MsgBox "Niste izabrali Period Do za knjiženje MIP1023!", vbExclamation, "Obavijest"
DoCmd.GoToControl "PeriodDo"
Exit Sub
End If
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM tblMIP1023"
DoCmd.OpenQuery "QryMIP1023"
DoCmd.SetWarnings True

Dim rs2
Dim db As Database
Set Tekst = New Stream
Tekst.Open
Tekst.Position = 0
Tekst.Charset = "UTF-8"
Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf

Tekst.WriteText "<PaketniUvozObrazaca xmlns='urn:PaketniUvozObrazaca_V1_0.xsd'>" & vbCrLf
'Tekst.WriteText "<" & "PaketniUvozObrazaca" & ">" & vbCrLf

Tekst.WriteText "<" & "PodaciOPoslodavcu" & ">" & vbCrLf
Tekst.WriteText "<JIBPoslodavca>" & "" & DLookup("FirMB", "tblFirma") & "" & "</JIBPoslodavca>" & vbCrLf
Tekst.WriteText "<NazivPoslodavca>" & "" & DLookup("FirNaziv", "tblFirma") & "" & "</NazivPoslodavca>" & vbCrLf
Tekst.WriteText "<BrojZahtjeva>" & "" & "1" & "" & "</BrojZahtjeva>" & vbCrLf
Tekst.WriteText "<DatumPodnosenja>" & "" & Me.Start & "" & "</DatumPodnosenja>" & vbCrLf

Tekst.WriteText "</" & "PodaciOPoslodavcu" & ">" & vbCrLf

Tekst.WriteText "<" & "Obrazac1023" & ">" & vbCrLf

Tekst.WriteText "<" & "Dio1" & ">" & vbCrLf
Tekst.WriteText "<JibJmb>" & "" & DLookup("FirMB", "tblFirma") & "" & "</JibJmb>" & vbCrLf
Tekst.WriteText "<Naziv>" & "" & DLookup("FirNaziv", "tblFirma") & "" & "</Naziv>" & vbCrLf
Tekst.WriteText "<DatumUpisa>" & "" & Me.Start & "" & "</DatumUpisa>" & vbCrLf
Tekst.WriteText "<BrojUposlenih>" & "" & DLookup("CountOfPPSif", "qryMIP1023BrojZahtjeva") & "" & "</BrojUposlenih>" & vbCrLf
Tekst.WriteText "<PeriodOd>" & "" & Me.PeriodOdXML & "" & "</PeriodOd>" & vbCrLf
Tekst.WriteText "<PeriodDo>" & "" & Me.PeriodDoXML & "" & "</PeriodDo>" & vbCrLf
Tekst.WriteText "<SifraDjelatnosti>" & "" & DLookup("FirSifDjela", "tblFirma") & "" & "</SifraDjelatnosti>" & vbCrLf
Tekst.WriteText "</" & "Dio1" & ">" & vbCrLf
Tekst.WriteText "<" & "Dio2" & ">" & vbCrLf
Set db = CurrentDb()
Set rs2 = db.OpenRecordset("SELECT * FROM qryISPISMIP1023 ", dbOpenDynaset)
    Do While Not rs2.EOF

Tekst.WriteText "<" & "PodaciOPrihodima" & ">" & vbCrLf
Tekst.WriteText "<VrstaIsplate>" & "" & rs2!VrstaIsplate & "" & "</VrstaIsplate>" & vbCrLf
Tekst.WriteText "<Jmb>" & "" & rs2!JMB & "" & "</Jmb>" & vbCrLf
Tekst.WriteText "<ImePrezime>" & "" & rs2!ImeIPrezime & "" & "</ImePrezime>" & vbCrLf
Tekst.WriteText "<DatumIsplate>" & "" & Me.DatumIsplate & "" & "</DatumIsplate>" & vbCrLf
Tekst.WriteText "<RadniSati>" & "" & rs2!BrSatiFiskal & "" & "</RadniSati>" & vbCrLf
Tekst.WriteText "<RadniSatiBolovanje>" & "" & rs2!BrSatiBolovanjeFiskal & "" & "</RadniSatiBolovanje>" & vbCrLf
Tekst.WriteText "<BrutoPlaca>" & "" & rs2!BrutoFiskal & "" & "</BrutoPlaca>" & vbCrLf
Tekst.WriteText "<KoristiIDrugiOporeziviPrihodi>" & "" & rs2!PrihodiNesamostalne & "" & "</KoristiIDrugiOporeziviPrihodi>" & vbCrLf
Tekst.WriteText "<UkupanPrihod>" & "" & rs2!BrutoFiskal & "" & "</UkupanPrihod>" & vbCrLf
Tekst.WriteText "<IznosPIO>" & "" & rs2!IznosPIOFiskal & "" & "</IznosPIO>" & vbCrLf
Tekst.WriteText "<IznosZO>" & "" & rs2!IznosZOFiskal & "" & "</IznosZO>" & vbCrLf
Tekst.WriteText "<IznosNezaposlenost>" & "" & rs2!IznosNeuposlenostiFiskal & "" & "</IznosNezaposlenost>" & vbCrLf
Tekst.WriteText "<Doprinosi>" & "" & rs2!DoprinosiFiskal & "" & "</Doprinosi>" & vbCrLf
Tekst.WriteText "<PrihodUmanjenZaDoprinose>" & "" & rs2!PrihodFiskal & "" & "</PrihodUmanjenZaDoprinose>" & vbCrLf
Tekst.WriteText "<FaktorLicnogOdbitka>" & "" & rs2!FaktorFiskal & "" & "</FaktorLicnogOdbitka>" & vbCrLf
Tekst.WriteText "<IznosLicnogOdbitka>" & "" & rs2!IznosOdbitkaFiskal & "" & "</IznosLicnogOdbitka>" & vbCrLf
Tekst.WriteText "<OsnovicaPoreza>" & "" & rs2!OsnovicaPorezaFiskal & "" & "</OsnovicaPoreza>" & vbCrLf
Tekst.WriteText "<IznosPoreza>" & "" & rs2!IznosPorezaFiskal & "" & "</IznosPoreza>" & vbCrLf
Tekst.WriteText "<RadniSatiUT>" & "" & "0.00" & "" & "</RadniSatiUT>" & vbCrLf
Tekst.WriteText "<StepenUvecanja>" & "" & "0" & "" & "</StepenUvecanja>" & vbCrLf
Tekst.WriteText "<SifraRadnogMjestaUT>" & "" & "000000" & "" & "</SifraRadnogMjestaUT>" & vbCrLf
Tekst.WriteText "<DoprinosiPIOMIOzaUT>" & "" & "0.00" & "" & "</DoprinosiPIOMIOzaUT>" & vbCrLf
Tekst.WriteText "<BeneficiraniStaz>" & "" & "false" & "" & "</BeneficiraniStaz>" & vbCrLf
Tekst.WriteText "<OpcinaPrebivalista>" & "" & rs2!OpcinaPrebivalista & "" & "</OpcinaPrebivalista>" & vbCrLf
Tekst.WriteText "</" & "PodaciOPrihodima" & ">" & vbCrLf
rs2.MoveNext

    Loop
     rs2.Close
Tekst.WriteText "</" & "Dio2" & ">" & vbCrLf
Tekst.WriteText "<" & "Dio3" & ">" & vbCrLf
Tekst.WriteText "<PIO>" & "" & DLookup("DOPMIOFiskal", "qryMIPUkupnoXML") & "" & "</PIO>" & vbCrLf
Tekst.WriteText "<ZO>" & "" & DLookup("DOPZdravstvenoFiskal", "qryMIPUkupnoXML") & "" & "</ZO>" & vbCrLf
Tekst.WriteText "<OsiguranjeOdNezaposlenosti>" & "" & DLookup("DOPNeuposlenostiFiskal", "qryMIPUkupnoXML") & "" & "</OsiguranjeOdNezaposlenosti>" & vbCrLf
Tekst.WriteText "<DodatniDoprinosiZO>" & "" & "0.00" & "" & "</DodatniDoprinosiZO>" & vbCrLf
Tekst.WriteText "<Prihod>" & "" & DLookup("PrihodFiskal", "qryMIPUkupnoXML") & "" & "</Prihod>" & vbCrLf
Tekst.WriteText "<Doprinosi>" & "" & DLookup("UkupnoDoprinosiFiskal", "qryMIPUkupnoXML") & "" & "</Doprinosi>" & vbCrLf
Tekst.WriteText "<LicniOdbici>" & "" & DLookup("IznosOdbitkaFiskal", "qryMIPUkupnoXML") & "" & "</LicniOdbici>" & vbCrLf
Tekst.WriteText "<Porez>" & "" & DLookup("PorezFiskal", "qryMIPUkupnoXML") & "" & "</Porez>" & vbCrLf
Tekst.WriteText "</" & "Dio3" & ">" & vbCrLf

Tekst.WriteText "<" & "Dio4IzjavaPoslodavca" & ">" & vbCrLf
Tekst.WriteText "<JibJmbPoslodavca>" & "" & DLookup("FirMB", "tblFirma") & "" & "</JibJmbPoslodavca>" & vbCrLf
Tekst.WriteText "<DatumUnosa>" & "" & Me.DatumIsplate & "" & "</DatumUnosa>" & vbCrLf
Tekst.WriteText "<NazivPoslodavca>" & "" & DLookup("FirNaziv", "tblFirma") & "" & "</NazivPoslodavca>" & vbCrLf
Tekst.WriteText "</" & "Dio4IzjavaPoslodavca" & ">" & vbCrLf

Tekst.WriteText "<" & "Dokument" & ">" & vbCrLf
Tekst.WriteText "<Operacija>" & "" & "Prijava_od_strane_poreznog_obveznika" & "" & "</Operacija>" & vbCrLf
Tekst.WriteText "</" & "Dokument" & ">" & vbCrLf

Tekst.WriteText "</" & "Obrazac1023" & ">" & vbCrLf
Set db = Nothing
Tekst.WriteText "</" & "PaketniUvozObrazaca" & ">" & vbCrLf
Tekst.SaveToFile "C:\MIP1023\" & DLookup("FirMB", "tblFirma") & "_" & Me.MJOD1 & "" & Me.GodOd1 & ".xml", adSaveCreateOverWrite
Tekst.Close

[ Miro35 @ 10.03.2011. 13:29 ] @

Još napomena kad šalješ brojeve moraš umjesto 125,25 trebaš slati 125.25.Isto datum 21.01.2011 trebaš kreirati 2011-01-21.Ako ti bude trebala pomoć oko ovoga sa brojevima i datumima ja ih kreiram u query-ju,pomoćemo.

[ Miro35 @ 10.03.2011. 14:08 ] @

Evo primjer kako u query-ju mjenjaš format broja iz 0,00 u 0.00

[ Daks @ 12.03.2011. 23:56 ] @

Hvala Miro.

MIP sam uspio davno zavrsiti, nesto slicno kao sto si i ti zavrsio i nisam imao problema sa brojevima.

U GIP-u imam problem sa brojevima jer su tabele kreirane iz seme i polja su txt. Hvala ti na primjeru. Odlicno uradjeno.

LP

p.s. Nisam uspio pretvaranje u UTF? Moze li pomoc?

Hvala.

[ Miro35 @ 14.03.2011. 09:39 ] @

Ovaj dio je bitan za pretvaranje u UTF-8:

Code:
Tekst.Charset = "UTF-8"
Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>" & vbCrLf