Quintiq file version 2.0
|
#parent: #root
|
Method SetTimeIntervalData () id:Method_LibCal_dlgEditTimeInterval_SetTimeIntervalData
|
{
|
#keys: '[131094.0.2073189978]'
|
Body:
|
[*
|
// Initialize the DataHolders that are related to the TimeInterval.
|
sTimeInterval := dhExplicitTimeInterval.Data();
|
timezone := Form.GetCalendarTimeZone();
|
|
// Split the date and the time.
|
// Start
|
date := sTimeInterval.Start().Date( timezone );
|
timeOfDay := sTimeInterval.Start().TimeOfDay( timezone );
|
|
dhStartDate.Data( date );
|
dhStartTimeOfDay.Data( timeOfDay );
|
|
dsStartDate.Date( date );
|
durStartTimeOfDay.Duration( timeOfDay );
|
|
// End
|
date := sTimeInterval.End().Date( timezone );
|
timeOfDay := sTimeInterval.End().TimeOfDay( timezone );
|
|
dhEndDate.Data( date );
|
dhEndTimeOfDay.Data( timeOfDay );
|
|
dsEndDate.Date( date );
|
durEndTimeOfDay.Duration( timeOfDay );
|
|
// In principle the dialog can also be used for 'generic' ExplicitTimeIntervals;
|
// in that case there is no participation available.
|
if( sTimeInterval.istype( shadow[LibCal_ExplicitTimeInterval] ) )
|
{
|
event := sTimeInterval.astype( shadow[LibCal_ExplicitTimeInterval] ).Participation().Event();
|
lblSubject.Text( event.Subject() );
|
lblSubject.Tooltip( event.Info() );
|
|
isAllDay := sTimeInterval.Start().TimeOfDay( timezone ) = Duration::Zero()
|
and sTimeInterval.End() .TimeOfDay( timezone ) = Duration::Zero();
|
ckbIsAllDay.Checked( isAllDay );
|
}
|
|
durationInDays := ( sTimeInterval.End() - sTimeInterval.Start() ).Ceil( Duration::Days( 1 ) );
|
npDuration.Number( durationInDays.Days() ); // Is only used when running in days only mode,
|
// but set it anyway.
|
|
edtComment.Text( sTimeInterval.Comment() );
|
*]
|
}
|
