陈清红
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
Quintiq file version 2.0
#parent: #root
Method ShowDaysOnlyModeWarning () id:Method_LibCal_dlgMultipleEvent_ShowDaysOnlyModeWarning
{
  #keys: '[415136.0.646701003]'
  Body:
  [*
    // Show a warning when the StartTimeOfDay and/or EndTimeOfDay of the Event will be set to 0:00
    // because of running in days only mode.
    event := dhEvent.Data();
    msg   := "";
    
    if( event.StartTimeOfDay() <> Duration::Zero() )
    {
      msg := "StartTimeOfDay is changed from " + [String]event.StartTimeOfDay() + " to 0:00";
    }
    
    if( event.EndTimeOfDay() <> Duration::Zero() )
    {
      msg := msg + ifexpr( msg <> "", "\n", "" )
                 + "EndTimeOfDay is changed from " + [String]event.EndTimeOfDay() + " to 0:00";
    }
    
    if( msg <> "" )
    {
      WebMessageBox::Warning( "DaysOnly-mode is enabled for the calendars.\n" + msg, false, false );
    }
  *]
}