修复一些班次计划下发的bug

xiaoding721

2024-11-11 4f94ad9cd6bd7355017c88cdc8bdb67498d5410c

 _Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def

@@ -5,9 +5,11 @@
  #keys: '[415136.0.666291565]'
  Body:
  [*
    
    owner_i := LibCal_GlobalState.dhGlobalCalendarRegistry().Data().CommonCalendar();
    
    category_i := selectobject( owner_i,CalendarRegistry.EventCategory, category, category.Name() = 'Unavaliable' );
    info( '-------------------------------', isnull( owner_i ), isnull( category_i ) );
    
    sEvent := owner_i.Event( relshadow,
                             EventID        := [String]Key::NextPersistentKey(),
    //                         StartTimeOfDay := start_i.TimeOfDay( timezone ),
@@ -24,6 +26,9 @@
    calendar             := sLeadPart.Calendar();
    potentialSubscribers := calendar.GetPotentialSubscribers();
    
    period := MacroPlan.LibCal_SubscriberEventSearch( relnew, Start := Date::MinDate(), End := Date::MaxDate() );
    
    dhDate.Data( period );
    // Remove the calendar of the initiator (cannot subscribe to self).
    initiator := sEvent.Calendar();
    if( potentialSubscribers.Find( initiator ) >= 0 )
@@ -32,5 +37,8 @@
    }
    
    dhPotentialSubscribers.Data( &potentialSubscribers );
    
    lstSubscribers.CheckAll();
    ListCalendarEventTypes.CheckAll();
  *]
}