From 59f0db9da05209bf411652ee2ac5c5b1e14634ad Mon Sep 17 00:00:00 2001
From: lazhen <17772815105@139.com>
Date: 星期四, 30 五月 2024 17:07:20 +0800
Subject: [PATCH] 日历不可用事件界面表格
---
_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def | 7 ++++++-
1 files changed, 6 insertions(+), 1 deletions(-)
diff --git a/_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def b/_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def
index cdc74a7..77ef126 100644
--- a/_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def
+++ b/_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def
@@ -5,9 +5,10 @@
#keys: '[415136.0.666291565]'
Body:
[*
+
owner_i := LibCal_GlobalState.dhGlobalCalendarRegistry().Data().CommonCalendar();
+
category_i := selectobject( owner_i,CalendarRegistry.EventCategory, category, category.Name() = 'Unavaliable' );
- dhCategory.Data(category_i);
sEvent := owner_i.Event( relshadow,
EventID := [String]Key::NextPersistentKey(),
@@ -25,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 )
@@ -35,5 +39,6 @@
dhPotentialSubscribers.Data( &potentialSubscribers );
lstSubscribers.CheckAll();
+ ListCalendarEventTypes.CheckAll();
*]
}
--
Gitblit v1.9.3