Quintiq file version 2.0
|
#parent: #root
|
Method InitializeCapacity () id:Method_LibCal_dlgEvent_InitializeCapacity
|
{
|
#keys: '[131094.1.420576130]'
|
Body:
|
[*
|
event := this.Data();
|
eventType := event.Type();
|
|
// Extensible method USE_PARTIAL_CAPACITY indicates if partial capacity is allowed.
|
useParticalCapacity := LibCal_Event::USE_PARTIAL_CAPACITY();
|
|
// Show an additional radiobutton + editfield or the capacity when applicable.
|
if( useParticalCapacity )
|
{
|
rbgEventType.ButtonLabels( rbgEventType.ButtonLabels() + " ;Capacity" );
|
rbgEventType.ButtonValues( rbgEventType.ButtonValues() + ";" + LibCal_Event::TYPE_PARTIAL() );
|
}
|
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();
|
}
|
|
this.UserData( 1 ); // Register that a message should be shown to inform the user that the EventType and Capacity is changed.
|
// The message is triggered in the OnCreated-response of the Dialog.
|
}
|
}
|
|
// Set the value of the radiobutton.
|
rbgEventType.BoundValue( eventType );
|
|
// Always set the value in the editfield for the capacity...
|
capacity := this.RealToString( event.PartialCapacity() );
|
edtCapacity.Text( capacity );
|
|
// ... but only show the editfield if applicable.
|
edtCapacity.Visible( useParticalCapacity );
|
*]
|
}
|
