Merge branch 'master' of http://47.101.211.7:10101/r/VWED into dev

admin

2025-01-22 7e31442f0e9b07764e9c6a9680d3d4aeba5fe1de

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
Quintiq file version 2.0
#parent: #root
Method InitializeRecurrencePattern (
  shadow[LibCal_RecurrencePattern] sRecurrencePattern_i,
  Date startDate_i
) id:Method_LibCal_dlgEvent_InitializeRecurrencePattern
{
  #keys: '[131094.0.1357896154]'
  Body:
  [*
    // First initialize everything as new...
    this.InitializeRecurrencePatternAsNew( startDate_i );
    
    // ... then take over the existing pattern (if applicable)
    if( not isnull( sRecurrencePattern_i ) )
    {
      // Daily
      if( sRecurrencePattern_i.istype( shadow[LibCal_RecurrencePatternDaily] ) )
      {
        pattern := sRecurrencePattern_i.astype( shadow[LibCal_RecurrencePatternDaily] );
    
        ckbEvery        .Checked( not pattern.IsEveryWeekday() );
        edtEveryNrOfDays.Text(    [String]pattern.RecurrenceInterval() );
        edtEveryNrOfDays.Enabled( not pattern.IsEveryWeekday() );
        ckbEveryWeekday .Checked(     pattern.IsEveryWeekday() );
     
        this.ToggleRecurrencePattern( LibCal_RecurrencePattern::TYPE_DAILY() );
      }
    
      // Weekly
      else if( sRecurrencePattern_i.istype( shadow[LibCal_RecurrencePatternWeekly] ) )
      {
        pattern := sRecurrencePattern_i.astype( shadow[LibCal_RecurrencePatternWeekly] );
    
        edtEveryNrOfWeeks.Text( [String]pattern.RecurrenceInterval() );
    
        btnMonday   .Pressed( pattern.Monday()    );
        btnTuesday  .Pressed( pattern.Tuesday()   );
        btnWednesday.Pressed( pattern.Wednesday() );
        btnThursday .Pressed( pattern.Thursday()  );
        btnFriday   .Pressed( pattern.Friday()    );
        btnSaturday .Pressed( pattern.Saturday()  );
        btnSunday   .Pressed( pattern.Sunday()    );
    
        this.ToggleRecurrencePattern( LibCal_RecurrencePattern::TYPE_WEEKLY() );
      }
    
      // Monthly
      else if( sRecurrencePattern_i.istype( shadow[LibCal_RecurrencePatternMonthly] ) )
      {
        pattern := sRecurrencePattern_i.astype( shadow[LibCal_RecurrencePatternMonthly] );
    
        // Specific day    
        ckbMonthlyDay.Checked( pattern.IsDay() );
    
        if( pattern.Day() <> 0 )
        {
          edtMonthlyDay.Text( [String]pattern.Day() );
        }
        edtMonthlyDayEveryNrOfMonths.Text( [String]pattern.RecurrenceInterval() );
        
        // Pattern
        ckbMonthlyPattern.Checked( not pattern.IsDay() );
    
        if( pattern.PatternWeekOfMonth() <> "" and
            pattern.PatternDayOfWeek()   <> "" )
        {                                 
          ssMonthlyPatternWeekOfMonth.BoundValue( pattern.PatternWeekOfMonth() );
          ssMonthlyPatternDayOfWeek  .BoundValue( pattern.PatternDayOfWeek()   );
        }
        edtMonthlyPatternEveryNrOfMonths.Text( [String]pattern.RecurrenceInterval() );
    
        this.ToggleRecurrencePattern( LibCal_RecurrencePattern::TYPE_MONTHLY() );
      }
    
      // Yearly
      else if( sRecurrencePattern_i.istype( shadow[LibCal_RecurrencePatternYearly] ) )
      {
        pattern := sRecurrencePattern_i.astype( shadow[LibCal_RecurrencePatternYearly] );
    
        edtEveryNrOfYears.Text( [String]pattern.RecurrenceInterval() );
    
        // Specific date
        ckbYearlyDay.Checked( pattern.IsDay() );
        if( pattern.Month() <> 0 and pattern.Day() <> 0 )
        {
          this.SetYearlyMonthAndDay( pattern.Month(), pattern.Day() );
        }
        
        // Pattern
        ckbYearlyPattern.Checked( not pattern.IsDay() );
        if( pattern.PatternWeekOfMonth() <> "" and
            pattern.PatternDayOfWeek()   <> "" )
        {
          ssYearlyPatternWeekOfMonth.BoundValue( pattern.PatternWeekOfMonth() );
          ssYearlyPatternDayOfWeek  .BoundValue( pattern.PatternDayOfWeek()   );
    
          if( pattern.Month() <> 0 )
          {
            this.SetYearlyPatternMonth( pattern.Month() );
          }
        }
    
        this.ToggleRecurrencePattern( LibCal_RecurrencePattern::TYPE_YEARLY() );
      }
    }
    
    else  // Show Weekly (disabled) when not recurring.
    {
      this.ToggleRecurrencePattern( LibCal_RecurrencePattern::TYPE_WEEKLY() );
      this.DisableRecurrence();
      this.ToggleRecurrencePattern( LibCal_RecurrencePattern::TYPE_NONE() );
    }
  *]
}