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
| Quintiq file version 2.0
| #parent: #root
| Method NewCustomerOrder (
| internal[GUIComponent] parent
| ) as SalesDemandBase id:Method_DialogCreateEditCustomerOrder_NewCustomerOrder
| {
| #keys: '[142576.0.84643260]'
| Body:
| [*
| // New sales demand
| Dialog.ShowHideComponentForBatchEdit( false );
|
| customerorder := null( CustomerOrder );
|
| owner := SalesDemandBase::GetDefaultOwner( MacroPlan );
| data := owner.SalesDemand( relshadow, CustomerOrder, 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_", "" ) );
|
| customerorder := CustomerOrder::Create( data.ID(),
| SelectionProduct.Data(),
| SelectionStockingPoint.Data(),
| data.StartDate(),
| data.Quantity(),
| data.Price(),
| data.Priority(),
| data.SalesSegment_MP(),
| data.Currency_MP(),
| data.UnitOfMeasure_MP(),
| false,
| true,
| data.IsExcludedFromFulfillmentKPI(),
| data.CustomerName(),
| data.CustomerID(),
| data.OrderID(),
| data.OrderLineID(),
| data.IsEligibleForNetting(),
| data.IsFirmed(),
| false
| );
| }
|
|
| return customerorder;
| *]
| }
|
|
