lazhen
2025-01-09 8afe90b633046db39042aada36b88193062f8cff
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
32
33
34
35
36
Quintiq file version 2.0
#parent: #root
Method ValuesPeriodRangeOK () as Boolean id:Method_LibCal_dlgEvent_ValuesPeriodRangeOK
{
  #keys: '[131094.1.45609393]'
  Body:
  [*
    // Some additional checks that should result in the OK-button being disabled, but should not prevent the EndOfPeriod from being set.
    feedback   := FeedbackObject::LocalFeedback();
    periodKind := "recurrence";
    
    // EndOfPeriod must be greater than StartOfPeriod.
    startOfPeriod := dsStartOfPeriod.Date();
    endOfPeriod   := dsEndOfPeriod.Date();
    
    if( ckbEndBy.Checked() and
        endOfPeriod < startOfPeriod )
    {
      feedback.AddHard( Translations::Period_EndMustBeGreaterThanStartOfPeriod( periodKind,
                                                                                startOfPeriod.Format( Translations::DateFormat() ),
                                                                                endOfPeriod  .Format( Translations::DateFormat() ) ) );
    }
    
    // EndOfPeriod must be greater than StartOfCalendar.
    startOfCalendar := dhEvent.Data().Calendar().StartDate();
    if( ckbEndBy.Checked() and
        endOfPeriod < startOfCalendar )
    {
      feedback.AddHard( Translations::Period_EndMustBeGreaterThanStartOfCalendar( periodKind,
                                                                                  endOfPeriod    .Format( Translations::DateFormat() ),
                                                                                  startOfCalendar.Format( Translations::DateFormat() ) ) ); 
    }
    
    return feedback.IsAllowed();
  *]
}