xiaoding721
2024-10-26 ad92b664d0a336e605611e3f8b2cb16a8d1c01ee
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Quintiq file version 2.0
#parent: Toolbar935/btnOk
Response OnClick () id:Response_Toolbar935_btnOk_OnClick
{
  #keys: '[131094.0.1401958597]'
  Body:
  [*
    eti      := Dialog.Data().WrappedInstance().astype( LibCal_ExplicitTimeInterval );
    timezone := Dialog.GetCalendarTimeZone();
    
    startTime := datStartDate.Date().DateTime( timezone ).AddAsPeriod( timezone, durStartTimeOfDay.Duration() );
    endTime   := datEndDate  .Date().DateTime( timezone ).AddAsPeriod( timezone, durEndTimeOfDay  .Duration() );
    
    eti.Update( startTime, endTime, edtComment.Text() );
    
    Dialog.EndModal( 1 );
  *]
  DefinitionID: 'Responsedef_GUIButtonBase_OnClick'
  Precondition:
  [*
    return Dialog.ValuesDatesOK();
  *]
}