Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Export iz Access-a u XML na osnovu sheme

[es] :: Access :: Export iz Access-a u XML na osnovu sheme

[ Pregleda: 6786 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Sonique
Bugojno

Član broj: 79589
Poruke: 137
92.36.190.*



Profil

icon Export iz Access-a u XML na osnovu sheme28.07.2009. u 17:31 - pre 178 meseci
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.
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 18:08 - pre 178 meseci
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.
 
Odgovor na temu

Sonique
Bugojno

Član broj: 79589
Poruke: 137
92.36.190.*



Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 18:34 - pre 178 meseci
Probao sam, ali imam jedan problem a to je kako sve tabele "odjednom" exportovati u jedan xml fajl?
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 19:01 - pre 178 meseci
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.

 
Odgovor na temu

Sonique
Bugojno

Član broj: 79589
Poruke: 137
92.36.190.*



Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 19:03 - pre 178 meseci
Meni bi trebao taj kod, ako nije problem da mi napisete?
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 19:12 - pre 178 meseci
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

 
Odgovor na temu

Sonique
Bugojno

Član broj: 79589
Poruke: 137
92.36.190.*



Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 19:40 - pre 178 meseci
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?
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 22:01 - pre 178 meseci
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.
 
Odgovor na temu

Sonique
Bugojno

Član broj: 79589
Poruke: 137
92.36.190.*



Profil

icon Re: Export iz Access-a u XML na osnovu sheme28.07.2009. u 23:56 - pre 178 meseci
ok, hvala puno
 
Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
91.191.61.*



Profil

icon Re: Export iz Access-a u XML na osnovu sheme04.03.2011. u 16:58 - pre 159 meseci
Mozda je tema malo zastarjela. Mene interesuje da li ste uspjeli doraditi funkciju?

Pozdrav
 
Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
91.191.61.*



Profil

icon Re: Export iz Access-a u XML na osnovu sheme04.03.2011. u 18:44 - pre 159 meseci
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

 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Export iz Access-a u XML na osnovu sheme10.03.2011. u 13:26 - pre 158 meseci
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

miro
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Export iz Access-a u XML na osnovu sheme10.03.2011. u 13:29 - pre 158 meseci
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.
miro
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Export iz Access-a u XML na osnovu sheme10.03.2011. u 14:08 - pre 158 meseci
Evo primjer kako u query-ju mjenjaš format broja iz 0,00 u 0.00
miro
Prikačeni fajlovi
 
Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
91.191.61.*



Profil

icon Re: Export iz Access-a u XML na osnovu sheme12.03.2011. u 23:56 - pre 158 meseci
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.
 
Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba


+3 Profil

icon Re: Export iz Access-a u XML na osnovu sheme14.03.2011. u 09:39 - pre 158 meseci
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

miro
 
Odgovor na temu

[es] :: Access :: Export iz Access-a u XML na osnovu sheme

[ Pregleda: 6786 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.