chenqinghong
2024-05-07 3ec06a830367465068963156dcc1d8e522571c13
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
Quintiq file version 2.0
#parent: #root
Method SetYearlyPattern (
  Date date_i
) id:Method_LibCal_dlgEvent_SetYearlyPattern
{
  #keys: '[131094.0.2102177981]'
  Body:
  [*
    weekOfMonth := "";
    dayOfWeek   := "" 
    this.GetWeekOfMonthAndDayOfWeek( date_i, weekOfMonth, dayOfWeek );  // output-arguments
    
    // Set week of month.
    ssYearlyPatternWeekOfMonth.Strings( Translations::Pattern_WeekOfMonth() );
    ssYearlyPatternWeekOfMonth.Text( weekOfMonth );
    
    // Set day of week.
    ssYearlyPatternDayOfWeek.Strings( //Translations::Pattern_DayKind() + ssMonthlyPatternDayOfWeek.RowSeparator() +  To Do
                                      Translations::Pattern_Days() );
    ssYearlyPatternDayOfWeek.Text( dayOfWeek );
    
    // Set month.
    this.SetYearlyPatternMonth( date_i.Month() );
    
    // BUG: referencing the DropDownStringLists in methods GetDateOfFirstRecurrence and GetDateOfNextOccurrence
    //      results in an error in the TCE.
    // As a WORKAROUND, set the values also in a hidden label, and use that in those methods.
    lblYearlyPatternWeekOfMonth.Text( weekOfMonth );
    lblYearlyPatternDayOfWeek  .Text( dayOfWeek   );
  *]
}