Quintiq file version 2.0
#parent: #root
Method InitializeCapacity () id:Method_LibCal_dlgEvent_InitializeCapacity
{
  #keys: '[131094.1.527551346]'
  Body:
  [*
    // Extensible method USE_PARTIAL_CAPACITY indicates if partial capacity is allowed.
    // If so, then add it as possible option.
    useParticalCapacity := LibCal_Event::USE_PARTIAL_CAPACITY();
    
    if( useParticalCapacity )
    {
      ddslType.Strings( ddslType.Strings() + ";" + LibCal_Event::TYPE_PARTIAL() );
    }
    
    event     := dhEvent.Data();
    eventType := event.Type();
    
    // See if the eventType can be used as is or if it should be converted first.
    if( useParticalCapacity )
    {
      ddslType.Text( eventType );
    }
    else
    {
      // Partial capacity should not be used. Convert it to Unavailable or Available.
      // This is an edge case that can only happen via import, or when using partial capacity was first enabled and later disabled.
      if( eventType = LibCal_Event::TYPE_PARTIAL() )
      {
        if( event.PartialCapacity() = 0.0 )
        {
          eventType := LibCal_Event::TYPE_UNAVAILABLE();
        }
        else
        {
          eventType := LibCal_Event::TYPE_AVAILABLE();
        }
          
        // Show a message to inform the user that the EventType and Capacity was changed.
        capacity := LibCal_GlobalState.RealToString( event.PartialCapacity() );
        WebMessageBox::Warning( "The event type was 'Partial' with Capacity = " + capacity + ", but partial capacity is not enabled."
                              + "The event type is set to '" + eventType + "'.", false, false );
      }
      
      ddslType.Text( eventType );
    }
  *]
}