From 6fa6f627b1706561e0d11b44be45dbc35bba5d41 Mon Sep 17 00:00:00 2001
From: xiaoding721 <33130084+xiaoding721@users.noreply.github.com>
Date: 星期三, 29 五月 2024 19:44:12 +0800
Subject: [PATCH] Merge branch 'dev' of http://47.101.211.7:10101/r/VWED into dev
---
_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def | 39 +++++++++++++++++++++++++++++++++++++++
1 files changed, 39 insertions(+), 0 deletions(-)
diff --git a/_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def b/_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def
new file mode 100644
index 0000000..cdc74a7
--- /dev/null
+++ b/_Main/UI/MacroPlannerWebApp/Component_FormCalendarUnavailableEvent/Method_InitializeSubscribers.def
@@ -0,0 +1,39 @@
+Quintiq file version 2.0
+#parent: #root
+Method InitializeSubscribers () id:Method_FormCalendarUnavailableEvent_InitializeSubscribers
+{
+ #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(),
+ // StartTimeOfDay := start_i.TimeOfDay( timezone ),
+ // EndTimeOfDay := end_i .TimeOfDay( timezone ),
+ EventCategory := category_i,
+ IsDefault := false );
+
+ sLeadPart := owner_i.Participation( relshadow, LibCal_LeadingParticipation,
+ ParticipationID := [String]Key::NextPersistentKey()
+ // ,StartDate := start_i.Date( timezone ),
+ // EndDate := end_i .Date( timezone )
+ );
+
+ calendar := sLeadPart.Calendar();
+ potentialSubscribers := calendar.GetPotentialSubscribers();
+
+ // Remove the calendar of the initiator (cannot subscribe to self).
+ initiator := sEvent.Calendar();
+ if( potentialSubscribers.Find( initiator ) >= 0 )
+ {
+ potentialSubscribers.Remove( initiator );
+ }
+
+ dhPotentialSubscribers.Data( &potentialSubscribers );
+
+ lstSubscribers.CheckAll();
+ *]
+}
--
Gitblit v1.9.3