陈清红
2025-04-14 880f3c0257eeb8c37761d484258fdd102a369a19
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
Quintiq file version 2.0
#parent: #root
Method OnOK () id:Method_DialogCreateEditEventType_OnOK
{
  #keys: '[415136.0.724291168]'
  Body:
  [*
    // onOK for ProductDialog
    // When the user clicks ok,
    // we either create or edit the data
    this.ApplyChanges();
    this.SetAttributeAfterApplyData();
    
    data := dhDialogData.Data();
    
    if( isnull( data.WrappedInstance() ) ) // New
    {
      // When create product, parent relation must be null (as server method has logic to detect parent change using this relation)
      data.Parent( relflush );
      data.Commit();
      dhForm.Data().ListEventType().SelectByKey( data.WrappedInstance().Key() );
    }
    else
    {
      LibCal_EventType::Update( dhDialogData.Data().WrappedInstance(), efID.Text(), efName.Text()
                                ,guard( selParent.Data(), null(  LibCal_EventType ) ) );
    }
    
    this.Close();
  *]
}