Add Create/Update Method For SRMHeader

yanweiyuan3

2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Quintiq file version 2.0
#parent: #root
Method InitConstraintsForUnitPeriodCapacities (
  CapacityPlanningSuboptimizer_CapacityPlanningAlgorithm program,
  Boolean enableminconst,
  Real totalmincapacity,
  Real totalmaxcapacity,
  const RunContextForCapacityPlanning runcontext,
  const LibOpt_Scope scope,
  const CapacityPlanningSuboptimizer subopt
) const
{
  Description: 'The constraint to limit the production of period tasks to be within defined capacity'
  TextBody:
  [*
    // defining minimum capacities for unit, Sum of PT Qty + not met >= UP.MinCapacity
    // minconstup constraint UoM: Unit
    minconstup := null(  MPConstraint );
    if( this.Unit().HasCapacityTypeTimeBase() )
    {
      minconstup := program.MinUnitCapacityTimeConstraints().New( this );
    }
    else
    {
      minconstup := program.MinUnitCapacityQtyConstraints().New( this );
    }
    
    minconstup.Sense( '>=' );
    
    // RHS UoM: Unit
    minconstup.RHSValue( subopt.ScaleConstraintRHS( typeofexpression( minconstup ), totalmincapacity ) );
    // Term UoM: Unit
    var := this.GetCapacityNotMetVariable( program ); 
    
    minconstup.NewTerm( 1.0 * subopt.ScaleConstraintTerm( typeofexpression(  var ), typeofexpression( minconstup ) )
                        , var );
    minconstup.Enabled( enableminconst )
    
    // defining maximum capacities for unit, Sum of PT Qty <= UP.AvailableCapacity
    // maxconstup constraint UoM: Unit
    maxconstup := null( MPConstraint );
    if( this.Unit().HasCapacityTypeTimeBase() )
    {
      maxconstup := program.MaxUnitCapacityTimeConstraints().New( this );
    }
    else
    {
      maxconstup := program.MaxUnitCapacityQtyConstraints().New( this );
    }
    
    // When using shift optimization, total capacity depends on the shift patterns selected by the optimizer.
    if( this.IsInScopeForShiftOptimization( scope ) and runcontext.UseShiftOptimization() ){
      maxconstup.RHSValue( 0 );
      
      unitperiod := this.astype( UnitPeriodTimeBase );
      unitperiod.AddTermsForMaximumCapacity( program, subopt, maxconstup, runcontext );
    }
    else
    {
      // RHS UoM: Unit
      maxconstup.RHSValue( subopt.ScaleConstraintRHS( typeofexpression( maxconstup ), totalmaxcapacity ) );
    }
    
    maxconstup.Sense( '<=' );
    maxconstup.Enabled( not this.IsPlannedInfinite() );
    
    this.InitConstraintsForCapacityUsage( program, minconstup, maxconstup, runcontext, scope, subopt );
  *]
  InterfaceProperties { Accessibility: 'Module' }
}