陈清红
2025-04-14 880f3c0257eeb8c37761d484258fdd102a369a19
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Quintiq file version 2.0
#parent: #root
StaticMethod Delete (
  LibCal_ExplicitTimeIntervals timeIntervals_i
)
{
  TextBody:
  [*
    traverse( timeIntervals_i, Elements, eti ){
      leadingeti := eti.LeadingETI();
    
      if( leadingeti.SubscribingETI( relsize ) = 1 ){
        part     := leadingeti.Participation();
    
        if( part.ExplicitTimeInterval( relsize ) = 1 ){
          part.Event().Delete();
        }
        if( not isnull( leadingeti ) ){
          leadingeti.Delete();
        }
      }
      if( not isnull( eti ) ){
        subscription := selectobject( eti, Participation.Event.LeadingParticipation.Subscription, subscription, subscription.Calendar().CalendarID() = eti.Participation().Calendar().CalendarID() );
        if( not isnull( subscription ) and subscription.ExplicitTimeInterval( relsize ) = 1 ){
          subscription.Delete();
        }else{
          eti.Delete();
        }
      }
    }
  *]
}