Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method CalcEngineCost ( 
 | 
  ProductInTrips pits, 
 | 
  LogisticsCostEngines enginecosts, 
 | 
  LogisticsCostTransports transcosts 
 | 
) as Real 
 | 
{ 
 | 
  TextBody: 
 | 
  [* 
 | 
    // 甄兰鸽 Nov-14-2024 (created)  
 | 
    transcost        := 0.0; 
 | 
    enginecost       := selectobject( enginecosts, Elements, engine, engine.StartDate() <= this.StartDate() and engine.EndDate() >= this.EndDate() ); 
 | 
    if( isnull( enginecost ) ){ 
 | 
      fenginecost    := selectobject( enginecosts, Elements, engine, engine.EndDate() > this.StartDate() and engine.EndDate() <= this.EndDate() and engine.StartDate() < this.StartDate() ); 
 | 
      if( not isnull( fenginecost ) ){ 
 | 
        fpits        := selectset( pits, Elements, pit, pit.Trip().Arrival().Date() >= fenginecost.StartDate() and pit.Trip().Arrival().Date() <= fenginecost.EndDate() ); 
 | 
        transcost    := transcost + this.CalcTransCost( fpits, transcosts, fenginecost ); 
 | 
      } 
 | 
      menginecost    := selectobject( enginecosts, Elements, engine, engine.StartDate() > this.StartDate() and engine.EndDate() < this.EndDate() ); 
 | 
      if( not isnull( menginecost ) ){ 
 | 
        mpits        := selectset( pits, Elements, pit, pit.Trip().Arrival().Date() >= menginecost.StartDate() and pit.Trip().Arrival().Date() <= menginecost.EndDate() ); 
 | 
        transcost    := transcost + this.CalcTransCost( mpits, transcosts, menginecost ); 
 | 
      } 
 | 
      benginecost    := selectobject( enginecosts, Elements, engine, engine.StartDate() > this.StartDate() and engine.StartDate() <= this.EndDate() and engine.EndDate() > this.EndDate() ); 
 | 
      if( not isnull( benginecost ) ){ 
 | 
        bpits        := selectset( pits, Elements, pit, pit.Trip().Arrival().Date() >= benginecost.StartDate() and pit.Trip().Arrival().Date() <= benginecost.EndDate() ) 
 | 
        transcost    := transcost + this.CalcTransCost( bpits, transcosts, benginecost ); 
 | 
      } 
 | 
    }else{ 
 | 
      transcost      := transcost + this.CalcTransCost( pits, transcosts, enginecost ); 
 | 
    } 
 | 
    return transcost; 
 | 
  *] 
 | 
} 
 |