[ EmirSuvalic @ 23.07.2011. 11:17 ] @
| U pitanju je export iz accessa u xml, ja koristim slijedeci kod: Dim adTables As AdditionalData Set adTables = Application.CreateAdditionalData adTables.Add ("Parametar") Application.ExportXML _ ObjectType:=acExportTable, _ DataSource:="Zahtjev", _ DataTarget:="c:\Tring\xml\stampatinefiskalnidokument.xml", _ AdditionalData:=adTables I export odradi kako treba ali dobijem ovako (primejr): <?xml version="1.0" encoding="UTF-8" ?> - <dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2011-07-23T01:08:01"> - <Zahtjev> <BrojZahtjeva>1</BrojZahtjeva> <VrstaZahtjeva>1</VrstaZahtjeva> </Zahtjev> - <Parametar> <Naziv>Text</Naziv> <Vrijednost>Nefiskalni tekst</Vrijednost> </Parametar> </dataroot> a trebalo bi da ovako izgleda: <?xml version="1.0" encoding="utf-8" ?> - <Zahtjev xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <BrojZahtjeva>400794</BrojZahtjeva> <VrstaZahtjeva>6</VrstaZahtjeva> - <Parametri> - <Parametar> <Naziv>Text</Naziv> <Vrijednost>Ovo je primjer nefiskalnog teksta !!!</Vrijednost> </Parametar> </Parametri> </Zahtjev> Znači mjesto <dataroot> da pise zahtjev, unaprijed HVALA!!!! |