admin
2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de
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
30
31
32
33
34
35
36
37
38
39
40
41
Quintiq file version 2.0
#parent: #root
StaticMethod Export (
  const constcontent Units owner
) as BinaryValue
{
  TextBody:
  [*
    // rislai Jul-3-2024 (created)
    xmlTemplate := '<?xml version="1.0" encoding="UTF-16"?><table><name>人员成本</name>';
    columnXML1 := "<column><name>人员类别</name><type>String</type>";
    columnXML2 := "<column><name>人数</name><type>Number</type>";
    columnXML3 := "<column><name>产线</name><type>String</type>";
    //columnXML4 := "<column><name>开始时间</name><type>String</type>";
    //columnXML5 := "<column><name>时间单位</name><type>String</type>";
    columnXML6 := "<column><name>基本工资</name><type>Number</type>";
    
    costs := selectsortedset( owner,Elements.EmployeeCost,cost,cost.Unit().Name() );
    traverse( costs,Elements,cost ){
      columnXML1 := columnXML1 + '<cell value="' + cost.EmployeeType().Name() + '"/>'
      columnXML2 := columnXML2 + '<cell value="' + [String]cost.EmployeeNumber() + '"/>'
      columnXML3 := columnXML3 + '<cell value="' + cost.Unit().Name() + '"/>'
    //  columnXML4 := columnXML4 + '<cell value="' + cost.StartDate().Format( "Y-M2-D2" ) + '"/>'
    //  columnXML5 := columnXML5 + '<cell value="' + cost.TimeUnit() + '"/>'
      columnXML6 := columnXML6 + '<cell value="' + cost.BaseSalary().Format( "N(Dec())" ) + '"/>'
    }
    columnXML1 := columnXML1 + "</column>";
    columnXML2 := columnXML2 + "</column>";
    columnXML3 := columnXML3 + "</column>";
    //columnXML4 := columnXML4 + "</column>";
    //columnXML5 := columnXML5 + "</column>";
    columnXML6 := columnXML6 + "</column>";
    
    xmlTemplate := xmlTemplate + columnXML1 + columnXML2 + columnXML3 + columnXML6 + "</table>";
    tableGroupHandle := TableGroupHandle::Create( "tableGroupHandle" );
    tableHandle := TableHandle::ImportXML( BinaryValue::Construct( xmlTemplate ));
    tableGroupHandle.Add( tableHandle );
    binaryData := XLS::SaveTableGroupToBinaryData( tableGroupHandle, true );
    return binaryData.AsBinaryValue();
  *]
}