参数重复

yypsybs

2023-09-07 c000dc46ef27c081fbc15955bfc9c410f39d7191

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
Quintiq file version 2.0
#parent: #root
Method ValuesDatesOK () as Boolean id:Method_LibCal_dlgEditTimeInterval_ValuesDatesOK
{
  #keys: '[131094.0.2073179770]'
  Body:
  [*
    feedback := FeedbackObject::LocalFeedback();
    timezone := this.GetCalendarTimeZone();
    
    if( dsStartDate.Date().IsInfinite() )
    {
      feedback.AddHard( Translations::Event_InvalidStartDate() );
    }
    
    if( dsEndDate.Date().IsInfinite() )
    {
      feedback.AddHard( Translations::Event_InvalidEndDate() );
    }
    
    if( feedback.IsAllowed() )
    {
      start := dsStartDate.Date().DateTime( timezone ).AddAsPeriod( timezone, durStartTimeOfDay.Duration() );
      end   := dsEndDate  .Date().DateTime( timezone ).AddAsPeriod( timezone, durEndTimeOfDay  .Duration() );
      
      if( end <= start )
      {
        feedback.AddHard( Translations::Event_EndMustBeGreaterThanStart() );
      }
    }
    
    return feedback.IsAllowed();
  *]
}