Quintiq file version 2.0
|
#parent: #root
|
StaticMethod Download (
|
MacroPlan macroPlan
|
) as BinaryValue
|
{
|
TextBody:
|
[*
|
xmlDOMI := XMLDOMImplementation::Create();
|
xmlDOM := xmlDOMI.CreateDocumentFromString( '<?xml version="1.0" encoding="UTF-16"?><table><name>Sheet1</name></table>' );
|
|
tableElement := xmlDOM.GetElementByTagName( "table", 0 );
|
|
// 第一列（名称）
|
tprs := selectsortedset( macroPlan, TransferPlanRow, tempTPR, true, tempTPR.SourceStockpoingPointID(), tempTPR.TargetStockpoingPointID(), tempTPR.ProductID() );
|
firstColumn := xmlDOM.CreateElement( "column" );
|
firstName := xmlDOM.CreateElement( "name" );
|
firstType := xmlDOM.CreateElement( "type" );
|
firstName.TextContent( "" );
|
firstType.TextContent( "String" );
|
firstColumn.AppendChild( firstName );
|
firstColumn.AppendChild( firstType );
|
traverse ( tprs, Elements, tpr ) {
|
firstCell := xmlDOM.CreateElement( "cell" );
|
firstCell.SetAttribute( "value", tpr.Name() );
|
firstColumn.AppendChild( firstCell );
|
}
|
tableElement.AppendChild( firstColumn );
|
|
tpcs := selectsortedset( macroPlan, TransferPlanColumn, tempTPC, true, tempTPC.ColumnDate() );
|
traverse ( tpcs, Elements, tpc ) {
|
column := xmlDOM.CreateElement( "column" );
|
name := xmlDOM.CreateElement( "name" );
|
type := xmlDOM.CreateElement( "type" );
|
name.TextContent( tpc.ColumnName() );
|
type.TextContent( /*ifexpr( tpc.ColumnDate().IsMinInfinity(), "String", "Number" )*/ "String" );
|
column.AppendChild( name );
|
column.AppendChild( type );
|
|
traverse ( tprs, Elements, tpr ) {
|
c := select( tpc, TransferPlanCell, tempTPC, tempTPC.TransferPlanRow() = tpr );
|
cell := xmlDOM.CreateElement( "cell" );
|
cell.SetAttribute( "value", guard( c.Value(), "" ) );
|
column.AppendChild( cell );
|
}
|
tableElement.AppendChild( column );
|
}
|
|
xmlString := xmlDOMI.CreateSerializer().WriteToString( xmlDOM )
|
|
//info( xmlString );
|
|
tableGroupHandle := TableGroupHandle::Create( "Sheet1" );
|
tableHandle := TableHandle::ImportXML( BinaryValue::Construct( xmlString ) );
|
tableGroupHandle.Add( tableHandle );
|
|
binaryData := XLS::SaveTableGroupToBinaryData( tableGroupHandle, true );
|
|
return binaryData.AsBinaryValue();
|
*]
|
}
|
