Quintiq file version 2.0
|
#parent: #root
|
MethodOverride CreateResourceCalendar (
|
LibCal_StagingCalendar stagingCalendar_i
|
) as LibCal_Calendar
|
{
|
TextBody:
|
[*
|
|
calendar := null( LibCal_Calendar );
|
calendarType := stagingCalendar_i.CalendarType();
|
// Find or create a calendar of the specific type.
|
if( calendarType = typeof( UnitCalendar ).Name() )
|
{
|
unit := Unit::FindUnitTypeIndex( stagingCalendar_i.StagingCalendarID() );
|
|
if( not isnull( unit ) )
|
{
|
calendar := unit.UnitCalendar();
|
if( isnull( calendar ) )
|
{
|
calendar := unit.UnitCalendar( relnew );
|
}
|
}
|
}
|
|
return calendar;
|
*]
|
}
|
