产能分配优化

hongjli

2023-10-12 eb1bd2a543a8964ac3b4a2c6269f61001ed53a09

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
Quintiq file version 2.0
#parent: #root
StaticMethod OrderOffset (
  MacroPlan macroPlan
)
{
  TextBody:
  [*
    needOffsetFillingCapacityOrders := selectset( macroPlan, FillingCapacityOrder, tempFCO, tempFCO.State() = "未冲减" or tempFCO.State() ="" );
    
    traverse ( needOffsetFillingCapacityOrders, Elements, fco, fco.Quantity() > 0 ) {
      originalCounterSignedOrder := select( macroPlan, SalesDemand.astype( CustomerOrder ), tempCO, tempCO.CustomerName() = fco.Customer()  and 
                                                                                                    tempCO.ProductID()    = fco.ProductID() and 
                                                                                                    tempCO.OrderTag()     = "反签"
                                           );
      if ( fco.OrderType() = "反签" ) {
        if ( isnull( originalCounterSignedOrder ) ) {
          customerOrder := FillingCapacityOrder::CreateCustomOrder( macroPlan, fco, fco.Quantity() );
          customerOrder.OrderTag( "反签" );
        } else {
          originalCounterSignedOrder.Quantity( originalCounterSignedOrder.Quantity() + fco.Quantity() );
        }
      } else if ( fco.OrderType() = "授权" ) {
        originalAuthorizedOrder := select( macroPlan, SalesDemand.astype( CustomerOrder ), tempCO, tempCO.CustomerName() = fco.Customer()  and 
                                                                                                   tempCO.ProductID()    = fco.ProductID() and 
                                                                                                   tempCO.OrderTag()     = "授权"
                                          );
        if ( isnull( originalCounterSignedOrder ) ) {
          if ( isnull( originalAuthorizedOrder ) ) {
            customOrder := FillingCapacityOrder::CreateCustomOrder( macroPlan, fco, fco.Quantity() );
            customOrder.OrderTag( "授权" );
          } else {
            originalAuthorizedOrder.Quantity( originalAuthorizedOrder.Quantity() + fco.Quantity() );
          }
        } else {
          numberOfReverseSignatures := originalCounterSignedOrder.Quantity();
          newNumberOfAuthorizations := ifexpr( ( fco.Quantity() - numberOfReverseSignatures ) >= 0, fco.Quantity() - numberOfReverseSignatures, 0 );
          numberOfReverseSignatures := ifexpr( ( fco.Quantity() - numberOfReverseSignatures ) >= 0, 0, numberOfReverseSignatures - fco.Quantity() );
          
          if ( numberOfReverseSignatures >= 0 ) {
            originalCounterSignedOrder.Quantity( numberOfReverseSignatures );
          } else {
            originalCounterSignedOrder.Delete();
          }
          
          if ( newNumberOfAuthorizations > 0 ) {
            if ( isnull( originalAuthorizedOrder ) ) {
              customerOrder := FillingCapacityOrder::CreateCustomOrder( macroPlan, fco, newNumberOfAuthorizations );
              customerOrder.OrderTag( "授权" );
            } else {
              originalAuthorizedOrder.Quantity( originalAuthorizedOrder.Quantity() + newNumberOfAuthorizations );
            }
          }
        }
      }
    }
  *]
}