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
| Quintiq file version 2.0
| #parent: #root
| Method NewCurrencyRate (
| internal[GUIComponent] parent,
| Currency_MP owner
| ) as CurrencyRate_MP id:Method_DialogCreateEditCurrencyRate_NewCurrencyRate
| {
| #keys: '[11660.0.354469038]'
| Body:
| [*
| // New currency rate
| data := owner.CurrencyRate_MP( relshadow, CurrencyID := owner.ID(), Start := MacroPlan.StartOfPlanning().Date() );
|
| Dialog.Data( data );
| Dialog.SetDefaultValue();
|
| result := this.DoModal( parent );
| newobj := null( CurrencyRate_MP );
|
| if( result > 0 )
| {
| newobj := CurrencyRate_MP::Create( data.Currency_MP(),
| data.Start(),
| data.Rate(),
| false );
| }
|
| return newobj;
| *]
| }
|
|
