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
Quintiq file version 2.0
#parent: #root
Method ValuesPeriodOK () as Boolean id:Method_LibCal_dlgEvent_ValuesPeriodOK
{
  #keys: '[131092.1.1299019]'
  Body:
  [*
    feedback   := FeedbackObject::LocalFeedback();
    periodKind := "recurrence";
    
    if( dsStartOfPeriod.Date().IsInfinite() )
    {
      feedback.AddHard( Translations::Period_InvalidStartOfPeriod( periodKind ) );
    }
    
    if( ckbEndAfter.Checked() and
        guard( [Number]edtNrOfOccurrences.Text(), 0 ) = 0 )
    {
      feedback.AddHard( Translations::Period_InvalidNrOfOccurrences() );
    }
    
    if( ckbEndBy.Checked() and
        dsEndOfPeriod.Date().IsInfinite() )
    {
      feedback.AddHard( Translations::Period_InvalidEndOfPeriod( periodKind ) );
    }
    
    return feedback.IsAllowed();
  *]
}