| | |
| | | [* |
| | | // çå
°é¸½ 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() ); |
| | |
| | | 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; |
| | | } |
| | | |