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 ProcessColumnDay
| {
| TextBody:
| [*
| // 甄兰鸽 Aug-1-2024 (created)
| day := ( this.MinDayDate() + Duration::Days( 1 ) ).Date();
|
| while( day < this.MaxDayDate() ){
| if( not exists( this, LibCal_SubscriberEventColumn, column, column.Period() = day and column.TimeUnit() = Translations::MP_GlobalParameters_Day() ) ){
| this.LibCal_SubscriberEventColumn( relnew, Name := day.Format( 'M/D/Y' ), Period := day, TimeUnit := Translations::MP_GlobalParameters_Day() );
| }
| day := ( day + Duration::Days( 1 ) ).Date();
| }
| *]
| }
|
|