1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Quintiq file version 2.0
| #parent: #root
| StaticMethod ImportFrom3DDrive (
| Strings fileNames,
| FileItems fileItems
| ) as owning BinaryValues
| {
| Description: 'Import files from 3DDrive'
| TextBody:
| [*
| result := construct( BinaryValues );
|
| traverse( fileNames, Elements, file )
| {
| fileItem := select( fileItems, Elements, fi, fi.Name() = file );
|
| bv := FileProviderManager::ReadAsBinaryData( fileItem );
| verify( not isnull( fileItem ) and bv.Size() > 0, 'FileItem for ', file,' not found or file is empty' );
| result.Add( bv.AsBinaryValue() );
| }
|
| return &result;
| *]
| }
|
|
