Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method ExportCapacities 
 | 
{ 
 | 
  Description: 'Method to export capacities to message via QI' 
 | 
  TextBody: 
 | 
  [* 
 | 
    // Initiate some variables including base NVT 
 | 
    exportfilename := 'Capacities.xml'; 
 | 
    routename := 'QuintiqExportCapacitiesFileRoute'; 
 | 
    basenvt := NamedValueTree::Create(); 
 | 
    basenvt.Root( GlobalParameters_MP::GetDatasetMPSync() ); 
 | 
    mp := this.MacroPlan(); 
 | 
     
 | 
    shiftpatterns := selectset( mp, ShiftPattern, sp, true ); 
 | 
    this.ExportObjectToNVT( basenvt, shiftpatterns, typeof( IOShiftPattern ) ); 
 | 
     
 | 
    unitshiftpatterns := selectset( mp, Unit.UnitShiftPattern, usp , true ); 
 | 
    this.ExportObjectToNVT( basenvt, unitshiftpatterns, typeof( IOUnitShiftPattern ) ); 
 | 
     
 | 
    shiftdays := selectset( mp, ShiftPattern.ShiftDay, sd, true ); 
 | 
    this.ExportObjectToNVT( basenvt, shiftdays, typeof( IOShiftDay ) ); 
 | 
     
 | 
    stockingpointcapacities := selectset( mp, StockingPoint_MP.StockingPointCapacity, spc, true ); 
 | 
    this.ExportObjectToNVT( basenvt, stockingpointcapacities, typeof( IOStockingPointCapacity ) ); 
 | 
     
 | 
    transportavailabilities := selectset( mp, Unit.TransportAvailability, ta, true ); 
 | 
    this.ExportObjectToNVT( basenvt, transportavailabilities, typeof( IOTransportAvailability ) );  
 | 
     
 | 
    transportcapacities := selectset( mp, Unit.TransportCapacity, tc, true ); 
 | 
    this.ExportObjectToNVT( basenvt, transportcapacities, typeof( IOTransportCapacity ) ); 
 | 
     
 | 
    unitcalendarelements := selectset(  mp, Unit.UnitCalendarElement, uce, true ); 
 | 
    this.ExportObjectToNVT( basenvt, unitcalendarelements, typeof( IOUnitCalendarElement ) ); 
 | 
     
 | 
    unitavailabilities := selectset(  mp, Unit.UnitAvailability, ua, true ); 
 | 
    this.ExportObjectToNVT( basenvt, unitavailabilities, typeof( IOUnitAvailability ) ); 
 | 
     
 | 
    unitcapacities := selectset( mp, Unit.UnitCapacity, uc, true ); 
 | 
    this.ExportObjectToNVT( basenvt, unitcapacities, typeof( IOUnitCapacity ) ); 
 | 
     
 | 
    // Export NVT to QI 
 | 
    this.ExportNVTToQI( exportfilename, routename, basenvt ); 
 | 
  *] 
 | 
} 
 |