日历不可用事件日期连续补充bug

lazhen

2024-08-01 d02b35cb54b769466aeb74bc9538d56b65d8d207

日历不可用事件日期连续补充bug

 _Main/BL/Type_LibCal_SubscriberEventTable/Method_ProcessColumnMonth#1.qbl

@@ -5,13 +5,13 @@
  TextBody:
  [*
    // 甄兰鸽 Aug-1-2024 (created)
    day      := this.MinDayDate().StartOfNextMonth();
    day      := this.MinMonthDate().StartOfNextMonth();
    
    while( day < this.MaxDayDate() ){
      if( not exists( this, LibCal_SubscriberEventColumn, column, column.Period() = day and column.TimeUnit() = Translations::MP_GlobalParameters_Day() ) ){
    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      := this.MinDayDate().StartOfNextMonth();
      day      := day.StartOfNextMonth();
    }
  *]
}

 _Main/BL/Type_LibCal_SubscriberEventTable/Method_ProcessColumnWeek.qbl

@@ -5,10 +5,10 @@
  TextBody:
  [*
    // 甄兰鸽 Aug-1-2024 (created)
    day      := this.MinDayDate().StartOfNextWeek();
    day      := this.MinWeekDate().StartOfNextWeek();
    
    while( day < this.MaxDayDate() ){
      if( not exists( this, LibCal_SubscriberEventColumn, column, column.Period() = day and column.TimeUnit() = Translations::MP_GlobalParameters_Day() ) ){
    while( day < this.MaxWeekDate() ){
      if( not exists( this, LibCal_SubscriberEventColumn, column, column.Period() = day and column.TimeUnit() = Translations::MP_GlobalParameters_Week() ) ){
        this.LibCal_SubscriberEventColumn( relnew, Name := day.Format( 'M/D/Y' ), Period := day, TimeUnit := Translations::MP_GlobalParameters_Week() );
      }
      day      := day.StartOfNextWeek();