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
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method NewSalesDemand ( 
 |    internal[GUIComponent] parent 
 |  ) as SalesDemandBase id:Method_DialogCreateEditSalesDemand_NewSalesDemand 
 |  { 
 |    #keys: '[11660.1.388244316]' 
 |    Body: 
 |    [* 
 |      // New sales demand 
 |      Dialog.ShowHideComponentForBatchEdit( false ); 
 |       
 |      salesdemand := null( SalesDemandBase ); 
 |       
 |      owner := SalesDemandBase::GetDefaultOwner( MacroPlan ); 
 |      data := owner.SalesDemand( relshadow, Forecast, ID := "" ); // Temporary set ID to empty, will be defined after DoModal 
 |       
 |      Dialog.Data( data ); 
 |       
 |      // Set default values 
 |      Dialog.SetDefaultValue( null( ProductInStockingPointInPeriod ) ); 
 |       
 |      result := Dialog.DoModal( parent ); 
 |       
 |      if( result > 0 ) 
 |      { 
 |        data.ID( MacroPlan.IDHolder().GetSalesDemandID( "User_", "" ) ); 
 |       
 |        salesdemand := Forecast::Create( data.ID(), 
 |                                            SelectionProduct.Data(), 
 |                                            SelectionStockingPoint.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  
 |                                            ); 
 |      } 
 |       
 |       
 |      return salesdemand; 
 |    *] 
 |  } 
 |  
  |