1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Quintiq file version 2.0
| #parent: #root
| Method ProcessColumnMonth
| {
| TextBody:
| [*
| // 甄兰鸽 Aug-1-2024 (created)
| day := this.MinMonthDate().StartOfNextMonth();
|
| while( day < this.MaxMonthDate()){
| if( not exists( this, LibCal_SubscriberEventColumn, column, column.Period() = day and column.TimeUnit() = Translations::MP_GlobalParameters_Month()) ){
| this.LibCal_SubscriberEventColumn( relnew, Name := day.Format( 'M/D/Y' ), Period := day, TimeUnit := Translations::MP_GlobalParameters_Month() );
| }
| day := day.StartOfNextMonth();
| }
| *]
| }
|
|
