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 );
    }
  *]
}