PR

yypsybs

2023-09-13 795184402d79c6c4ce7bb7cb0babfcb175c51982

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_dlgEvent_ShowDaysOnlyModeWarning
{
  #keys: '[146730.0.1590318931]'
  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 );
    }
  *]
}