日历不可用事件界面调整

lazhen

2024-07-23 13d934438d09c738c7806f89205d409fa735adb7

 _Main/BL/Type_LibCal_SubscriberEventTable/Method_InitializeTable.qbl

@@ -8,14 +8,14 @@
  [*
    // 甄兰鸽 May-28-2024 (created)
    rownr                 := this.LibCal_SubscriberEventRow( relsize );
    subscribercolumn      := selectobject( this, LibCal_SubscriberEventColumn, column, column.RowName() = 'Line' );
    if( isnull( subscribercolumn ) ){
      subscribercolumn := this.LibCal_SubscriberEventColumn( relnew, RowName := 'Line' );
    }
    eventcolumn := selectobject( this, LibCal_SubscriberEventColumn, column, column.RowName() = 'Event' );
    if( isnull( eventcolumn ) ){
      eventcolumn := this.LibCal_SubscriberEventColumn( relnew, RowName := 'Event' );
    }
    //subscribercolumn      := selectobject( this, LibCal_SubscriberEventColumn, column, column.RowName() = 'Line' );
    //if( isnull( subscribercolumn ) ){
    //  subscribercolumn := this.LibCal_SubscriberEventColumn( relnew, RowName := 'Line' );
    //}
    //eventcolumn := selectobject( this, LibCal_SubscriberEventColumn, column, column.RowName() = 'Event' );
    //if( isnull( eventcolumn ) ){
    //  eventcolumn := this.LibCal_SubscriberEventColumn( relnew, RowName := 'Event' );
    //}
    
    traverse( subscribers, Elements, subscriber ){
    //  info( '------------------------', subscriber.CalendarID(), subscriber.CalendarType() );
@@ -34,14 +34,14 @@
                                                 Event := event.Subject(), 
                                                 EventType := event.EventType().Name() );
          
          subscribercell := subscribercolumn.LibCal_SubscriberEventCell( relnew, Value := row.Subscriber() );
          if( counter( this, LibCal_SubscriberEventRow, linerow, linerow.Subscriber() = row.Subscriber() ) <> 1 ){
            subscribercell.Value( '' );
          }
          row.LibCal_SubscriberEventCell( relinsert, subscribercell );
          
          eventcell := eventcolumn.LibCal_SubscriberEventCell( relnew, Value := row.Event() );
          row.LibCal_SubscriberEventCell( relinsert, eventcell );
    //      subscribercell := subscribercolumn.LibCal_SubscriberEventCell( relnew, Value := row.Subscriber() );
    //      if( counter( this, LibCal_SubscriberEventRow, linerow, linerow.Subscriber() = row.Subscriber() ) <> 1 ){
    //        subscribercell.Value( '' );
    //      }
    //      row.LibCal_SubscriberEventCell( relinsert, subscribercell );
    //      
    //      eventcell := eventcolumn.LibCal_SubscriberEventCell( relnew, Value := row.Event() );
    //      row.LibCal_SubscriberEventCell( relinsert, eventcell );
          rownr := rownr + 1;
        }