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
42
43
44
45
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 );
  *]
}