批量维护产能占用事件删除

lazhen

2024-07-23 dbe8c4ada76c0439a07daa47dd469d5cc6eafb5a

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
Quintiq file version 2.0
#parent: #root
Method CalculateDependentDemandSystemFulfilledQuantity (
  output Real totalremaining
) declarative
{
  Description: 'Greedy fufill the dependent demands'
  TextBody:
  [*
    dependentdemands := selectsortedset( this, DependentDemand, d,
                                         true,
                                         d.Quantity() );
    
    hasshelflifeormaturation :=( this.ProductInStockingPoint_MP().IsOptShelfLife() or this.ProductInStockingPoint_MP().IsOptMaturation() );
    
    if( hasshelflifeormaturation )
    {
      dependentdemands := ProductInStockingPointInPeriod::GetSortedDependentDemands( this );
    }
    
    traverse( dependentdemands, Elements, dd )
    {
      unallocatedqty := dd.Quantity() - dd.OptimizerFulfilledQuantity();
      unallocated := minvalue( totalremaining, unallocatedqty );
      
      // If the product has shelf-life or maturation, use the ShelfLifeFulfilledQuantity instead
      if( hasshelflifeormaturation )
      {
        unallocated := maxvalue( dd.ShelfLifeFulfilledQuantity() - dd.OptimizerFulfilledQuantity(), 0.0 );
      }
      
      dd.SystemFulfilledQuantity( unallocated );
      totalremaining := totalremaining - unallocated;
    }
  *]
}