包装计划优化

admin

2024-11-11 83ec31b01a61d9a6bc74933572991469eeea4d44

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
71
72
73
74
75
76
77
78
79
Quintiq file version 2.0
#parent: #root
Method OnOK () derived id:Method_DialogCreateEditForecast_OnOK #extension
{
  BaseType => //DialogCreateEditSalesDemand/Method_DialogCreateEditSalesDemand_OnOK
  Body:
  [*
    Form.ApplyChanges();
    this.SetAttributeAfterApplyData();
    
    data := DataHolderDialogData.Data();
    selection := DataHolderSalesDemands.Data().Copy();
    isbatchedit := selection.Size() >1; 
    
    
    if( isnull( data.WrappedInstance() ) )
    {
      data.ID( MacroPlan.IDHolder().GetSalesDemandID( "User_", "" ) );
      forecast := Forecast::Create( data.ID(),
                           DropDownListProduct.Data(),
                           DropDownListStockingPoint.Data(),
                           data.StartDate(),
                           data.EndDate(),
                           data.Quantity(),
                           data.Price(),
                           data.Priority(),
                           data.SalesSegment_MP(),
                           data.Currency_MP(),
                           data.UnitOfMeasure_MP(),
                           false,
                           true,
                           data.DemandUncertaintyPercentage(),
                           data.IsExcludedFromFulfillmentKPI(),
                           false 
                           );
      forecast.Origin( DropDownStringListOrigin.Text() );
                   
    }
    
    else
    {
      quantity := ApplicationMacroPlanner.FormatStringToReal( EditFieldQuantityUom.Text(), 0.0 );
      forecasts := selectset( selection, Elements.astype( Forecast ), forecast, true );
      Forecast::Update( forecasts,
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DropDownListProduct ),
                         DropDownListProduct.Data(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DropDownListStockingPoint ),
                         DropDownListStockingPoint.Data(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DateSelectorStart ),
                         data.StartDate(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DateSelectorEnd ),
                         data.EndDate(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( EditFieldQuantityUom ),
                         quantity,
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( EditFieldPrice ),
                         data.Price(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DropDownListPriority ) or ApplicationMacroPlanner.IsActionLinkEnabledEdit( CheckBoxIsExcludedFromFulfillmentKPI ),
                         data.Priority(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( EditFieldDemandUncertaintyPercentage ),
                         data.DemandUncertaintyPercentage(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DropDownListSalesSegment ),
                         data.SalesSegment_MP(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DropDownListCurrency ),
                         data.Currency_MP(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( DropDownListUnitOfMeasurement ),
                         data.UnitOfMeasure_MP(),
                         not isbatchedit or ApplicationMacroPlanner.IsActionLinkEnabledEdit( CheckBoxIsExcludedFromFulfillmentKPI ),
                         ifexpr( CheckBoxIsExcludedFromFulfillmentKPI.Enabled(), 
                                 CheckBoxIsExcludedFromFulfillmentKPI.Checked(),
                                 data.IsExcludedFromFulfillmentKPIUser() ),
                         true );
      traverse( forecasts,Elements,forecast ){
        forecast.Origin( DropDownStringListOrigin.Text() );
      }
    
    }
    Form.Close();
  *]
}