Kevin: 修改了Operation.GetHasValidOperationInputOutput以让系统能够对没有投入料并非供应商生产单元的操作...

Kevin Kok Khah Whey

2023-09-25 53dd77cb4acdbe54af218fa7034b1ae8d272cc4d

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
Quintiq file version 2.0
#parent: #root
MethodOverride GetActualCosts (
  Period_MP period
) remote as Real
{
  TextBody:
  [*
    totalCost := 0.0;
    
    if( period.IsPlanning() ) //planning period, derive calculation
    {
      totalCost := sum( this, InventorySupply.ProductInStockingPoint_MP.InventorySupply, is,
                        is.ProductInStockingPointInPeriodPlanning().Period_MP() = period,
                        is.GetTotalBaseCost( this.AccountAssignment() ) );
    }
    else if( period.IsBase() ) //base period, disaggregate from planning period
    {
      totalCost := this.GetActualCosts( period.PlanningPeriod() ) * period.PlanningSystemRatio();
    }
    else  //non base non planning, sum from planning
    {
      traverse( this, InventorySupply.ProductInStockingPoint_MP.InventorySupply, is, is.ProductInStockingPointInPeriodPlanning().Period_MP() = period )
      {
        traverse( is.ProductInStockingPointInPeriodPlanning().GetChildrenOfPeriodDimension(), Elements, childspip )
        {
          totalCost := totalCost + this.GetActualCosts( childspip.Period_MP() );
        }
      }            
    }
    
    return totalCost;
  *]
}