Quintiq file version 2.0
#parent: #root
Method NewDisaggregationFactor (
  internal[GUIComponent] parent
) as DisaggregationFactor id:Method_DialogCreateEditDisaggregationFactor_NewDisaggregationFactor
{
  #keys: '[124808.0.1994363517]'
  Body:
  [*
    // New disaggregation factor
    
    Dialog.EnableDisableComponent( false, true );
    
    stockingpoint := null( StockingPoint_MP );
    owner := DisaggregationFactor::GetDefaultOwner( MacroPlan, stockingpoint );
    
    data := owner.DisaggregationFactor( relshadow, StockingPointID := stockingpoint.ID(), ProductID := owner.ID(), Start := MacroPlan.StartOfPlanning().Date() );
    data.StockingPoint_MP( relset, stockingpoint );
    
    Dialog.Data( data );
    Dialog.SetDefaultValue( null( ProductInStockingPointInPeriod ) );
    
    result := Dialog.DoModal( parent );
    newobj := null( DisaggregationFactor );
    
    if( result > 0 )
    {
      newobj := DisaggregationFactor::Create( data.Product_MP(),
                                              data.StockingPoint_MP(),
                                              data.Start(),
                                              data.Factor(),
                                              false );
    }
    
    return newobj;
  *]
}