pcsoft.us.windevCopyright 2026, PC SOFT2 Jul 2019 10:50:06 Z5 Aug 2015 00:00:00 ZHi I am working on an xml file. I need to generate a xml from an xsd The xsd is availeble so I imported that. OK Now I need so generate the xml. That works ok. But not when looping through something that needs to be added several times isnot saved in the xml with xmlsave() I need to generate an xml file called xml-audit file. My code: sDatumcreated is string sDatumcreated = DateToString(Today(),"YYYY-MM-DD") sGeselecteerdBoekjaar is string sTartDatBoekjaar is string sEindDatBoekjaar is string IF HReadSeekFirst(Boekjaar,BoekjaarID,COMBO_Boekjaar) THEN sGeselecteerdBoekjaar = Boekjaar.Jaar sTartDatBoekjaar = Boekjaar.Jaar + "-01-01" sEindDatBoekjaar = Boekjaar.Jaar + "-12-31" END //sStr is string = "xmldoc.auditfile." xmldoc is xmlDocument , description = "XmlAuditfileFinancieel32" xmldoc = XMLOpen("XmlAuditfileFinancieel32.xml",fromFile) IF XMLValidDocument(xmldoc) = True THEN Filter is string = "XML files (*.xml)" + TAB + "*.xml" + CR + "All files (*.*)" + TAB + "*.*" OutputFile is string = fSelect("", "", "Maak XML file...", Filter, "xml", fselCreate) // Vullen header xmldoc.auditfile.header.curCode = "EUR" xmldoc.auditfile.header.softwareDesc = "Administratie" xmldoc.auditfile.header.softwareVersion = ExeInfo(exeVersion) xmldoc.auditfile.header.dateCreated = sDatumcreated xmldoc.auditfile.header.fiscalYear = sGeselecteerdBoekjaar xmldoc.auditfile.header.startDate = sTartDatBoekjaar xmldoc.auditfile.header.endDate = sEindDatBoekjaar IF HReadFirst(Bedrijf,BedrijfID) THEN //{sstr + "company.companyName" } = bedrijf.naam //vullen company eerst nodes zonder child nodes xmldoc.auditfile.company.companyName = Bedrijf.Naam xmldoc.auditfile.company.companyIdent = gsadministratienaam xmldoc.auditfile.company.taxRegistrationCountry ="NL" xmldoc.auditfile.company.taxRegIdent = Bedrijf.BTW_nummer // vullen company.streetAddress node xmldoc.auditfile.company.streetAddress.streetname = Bedrijf.Adres xmldoc.auditfile.company.streetAddress.city = Bedrijf.Woonplaats xmldoc.auditfile.company.streetAddress.country = "NL" xmldoc.auditfile.company.streetAddress.postalCode = Bedrijf.Postcode xmldoc.auditfile.company.streetAddress.number = Bedrijf.huisnummer xmldoc.auditfile.company.streetAddress.numberExtension = Bedrijf.huisnummertoevogsel // vullen company.postalAddress node xmldoc.auditfile.company.postalAddress.city = Bedrijf.Woonplaats xmldoc.auditfile.company.postalAddress.postalCode = Bedrijf.Postcode xmldoc.auditfile.company.postalAddress.streetname = Bedrijf.Adres xmldoc.auditfile.company.postalAddress.number = Bedrijf.huisnummer xmldoc.auditfile.company.postalAddress.numberExtension = Bedrijf.huisnummertoevogsel xmldoc.auditfile.company.postalAddress.country = "NL" END // vullen cutomer supplier. Eert de klanten dan de leveranciers in de customer supplier type geef ik aan // of het om een klant of Leverancier gaat. klant = C Leverancier = S Als unike id geef ik het id van het bestand FOR ALL Klanten //where klanten.NietActief = 0 xmldoc.auditfile.company.customersSuppliers.customerSupplier.custSupID = Klanten.KlantenID xmldoc.auditfile.company.customersSuppliers.customerSupplier.custSupName = Klanten.FirmaNaam // Here is it where it goes wrong. The loop is run but only the last item in the loop is saved. If I place XMLSAVE() in this section the same happens. The values are over written and only the last value is saved in the xml END XMLSave(xmldoc, OutputFile,XMLDocumentDefault) IF ErrorOccurred = True THEN Error("Unable to save the XML document", ErrorInfo()) ELSE Info("OK", OutputFile) END ELSE Error("The XML document is invalid", ErrorInfo()) END Anybody An Idea what Iam doing wrong. It seems to modify I need the loop items to be added. Do I need to add this to a buffer or something? Thanks Allard30WEBDEVen_UShttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)etichyrpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-67123/read.awp2 Jul 2019 10:50:06 ZChrisC, I find your function very useful! Thanks for publishing it! Marcinhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-67123/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-67123/read.awpgenerating a Xml from an XSDguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53473/read.awp7 Aug 2015 18:27:00 ZAllard This procedure will return a date time stamp in ISO 8601 format. Input is a local date and time (defaults to the curre…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53473/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53473/read.awpgenerating a Xml from an XSDguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53466/read.awp7 Aug 2015 14:38:00 ZHi Allard, The date time format might be achieveable by something like this... DateToString(DateTimeLocalToUTC(DateSys + T…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53466/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53466/read.awpgenerating a Xml from an XSDguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53448/read.awp6 Aug 2015 13:24:00 ZAny one an Idea how to get this date time format? 2001-12-17T09:30:47-05:00 Thanks Allardhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53448/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53448/read.awpgenerating a Xml from an XSDguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53424/read.awp5 Aug 2015 11:52:00 ZHi Derek, Indeed I did that earlier on.I use windev 18 and there seems to be a bug on that. So I use the whole path everytime…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53424/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53424/read.awpgenerating a Xml from an XSDguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53420/read.awp5 Aug 2015 09:48:00 ZAllard You need to declare an 'xmlNode' variable. Look in the Help - there is a very good example.https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53420/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53420/read.awpgenerating a Xml from an XSDguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53419/read.awp5 Aug 2015 09:43:00 ZHe Stefan, Thanks. I did the following and it works. Had do do this change to pass the validation of the xsd. xmldoc.audit…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53419/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53419/read.awpgenerating a Xml from an XSDericpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53416/read.awp5 Aug 2015 07:33:20 ZDid you try the following syntax in your FOR loop? xmldoc.auditfile.company.customersSuppliers.customerSupplier.custSupID[i] …https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53416/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53416/read.awpgenerating a Xml from an XSDguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53415/read.awp5 Aug 2015 07:15:00 ZHi Allard, you can try to use an index for this part: i is int = 1 FOR ALL Klanten //where klanten.NietActief = 0 xmldoc…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53415/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/53412-generating-xml-from-xsd-53415/read.awpgenerating a Xml from an XSD