| Quintiq file version 2.0 | 
| #parent: #root | 
| Method ExportEntities | 
| { | 
|   Description: 'Method to export entities to message via QI' | 
|   TextBody: | 
|   [* | 
|     // Initiate some variables including base NVT | 
|     exportfilename := 'Entities.xml'; | 
|     routename := 'QuintiqExportEntitiesFileRoute'; | 
|     basenvt := NamedValueTree::Create(); | 
|     basenvt.Root( GlobalParameters_MP::GetDatasetMPSync() ); | 
|     mp := this.MacroPlan(); | 
|      | 
|     units := selectset( mp, Unit, unit, true ); | 
|     this.ExportObjectToNVT( basenvt, units, typeof( IOUnit ) ); | 
|      | 
|     stockingpoints := selectset( mp, StockingPoint_MP, sp, not sp.IsSystem() ); | 
|     this.ExportObjectToNVT( basenvt, stockingpoints, typeof( IOStockingPoint_MP ) ); | 
|      | 
|     salessegments := selectset( mp, SalesSegment_MP, seg, true ); | 
|     this.ExportObjectToNVT( basenvt, salessegments, typeof( IOSalesSegment_MP ) ); | 
|      | 
|     saleslevels := selectset( mp, SalesLevel_MP, slvl, true ); | 
|     this.ExportObjectToNVT( basenvt, saleslevels, typeof( IOSalesLevel_MP ) ); | 
|      | 
|     groups := selectset( mp, Group, group, true ); | 
|     this.ExportObjectToNVT( basenvt, groups, typeof( IOGroup ) ); | 
|      | 
|     this.ExportNVTToQI( exportfilename, routename, basenvt ); | 
|   *] | 
| } |