需求存档

lihongji

2024-09-13 9b43cbcd7d48a3c7d0453bc723895ab3a5333aa3

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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();
    }
  *]
}