日历不可用事件界面产线筛选

lazhen

2024-05-29 1aa50242db4bd962c4bbf68e7f8eb8c003bbde9a

 _Main/BL/Type_LibCal_SubscriberEventTable/StaticMethod_InitializeTable.qbl

@@ -2,7 +2,8 @@
#parent: #root
StaticMethod InitializeTable (
  LibCal_Calendars subscribers,
  LibCal_Calendar owner
  LibCal_Calendar owner,
  LibCal_EventCategory category
)
{
  TextBody:
@@ -13,10 +14,9 @@
      owner.LibCal_SubscriberEventTable( relnew, ID := 'Week', Name := 'Week' );
      owner.LibCal_SubscriberEventTable( relnew, ID := 'Month', Name := 'Month' );
    }
    category_i := selectobject( owner,CalendarRegistry.EventCategory, category, category.Name() = 'Unavaliable' );
    info('-----------------------------', owner.LibCal_SubscriberEventTable( relsize ), subscribers.Size(), isnull( category_i ) );
    info('-----------------------------', owner.LibCal_SubscriberEventTable( relsize ), subscribers.Size(), isnull( category ) );
    traverse( owner, LibCal_SubscriberEventTable, table ){
      table.InitializeTable( subscribers, category_i );
      table.InitializeTable( subscribers, category );
    }
  *]
}