Quintiq file version 2.0
|
#parent: #root
|
Method ExportXML (
|
String filename
|
)
|
{
|
Description: 'Export data to xml'
|
TextBody:
|
[*
|
// Adhi Feb-21-2016 (created)
|
|
progress('Creating xml file', DateTime::ActualTime());
|
xmlfile := OSFile::Construct( filename );
|
if( not isnull( xmlfile ) and filename.TrimBoth() <> '' )
|
{
|
progress('Exporting to xml file', DateTime::ActualTime());
|
xml := this.ExportXMLString();
|
|
xmlfile.ReadWriteMode( 'Write' );
|
xmlfile.Open();
|
progress('Writing to xml file', DateTime::ActualTime());
|
xmlfile.WriteText( xml );
|
progress('Clearing data', DateTime::ActualTime());
|
xmlfile.Flush();
|
progress('Closing xml file', DateTime::ActualTime());
|
xmlfile.Close();
|
}
|
*]
|
}
|
