1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Function CalcCO2Emission 
 |  { 
 |    TextBody: 
 |    [* 
 |      // Calculate co2 emission for current unit period 
 |      targetUoM := this.MacroPlan().DefaultCO2ProcessUoM(); 
 |       
 |      // period task * conversion factor * process co2 rate 
 |      value := sum( this, PeriodTask_MP, pt, pt.Quantity() * 
 |                                             this.Unit().UnitOfMeasure_MP().GetConversionFactor( targetUoM, null( Product_MP ) ) * 
 |                                             pt.Process_MP().CO2Emission() ); 
 |       
 |      this.CO2Emission( value ); 
 |    *] 
 |    InterfaceProperties { Accessibility: 'Module' } 
 |  } 
 |  
  |