Quintiq file version 2.0
#parent: #root
Method SetDefaultValue (
  UnitPeriodTransportTime unitperiodtransport
) id:Method_DialogCreateEditTransportAvailability_SetDefaultValue
{
  #keys: '[135040.0.3056409]'
  Body:
  [*
    // Set the default value for the fields in the dialog
    
    data := Dialog.Data();
    
    start := MacroPlan.Start();
    timeunit := MacroPlan.StartOfPlanningPeriod().TimeUnit(); 
    maintenance := Duration::Zero();
    lotsize := 0.0;
    minperlot := 0.0;
    minquantity := MacroPlan.GlobalParameters_MP().DefaultMinCapacityPerDayForUnit();
    maxquantity := MacroPlan.GlobalParameters_MP().DefaultMaxCapacityPerDayForUnit();
    shiftpattern := data.Unit().MacroPlan().DefaultShiftPattern();
    numberofunit := 1;
    
    if( not isnull( unitperiodtransport ) )
    {
      // To inherit the value from the last transport capacity while creating a new one.
      transportcapacity := unitperiodtransport.TransportAvailability();
      start := unitperiodtransport.Start();
    
      if( not isnull( transportcapacity ) )
      {
        timeunit := transportcapacity.TimeUnit();
        maintenance := transportcapacity.Maintenance();
        lotsize := transportcapacity.LotSize();
        minperlot := transportcapacity.MinimumPerLot();
        minquantity := transportcapacity.MinimumQuantity();
        maxquantity := transportcapacity.MaximumQuantity();
        shiftpattern := transportcapacity.ShiftPattern();
        numberofunit := transportcapacity.NumberOfUnit();
      }
      else
      {
        timeunit := unitperiodtransport.Period_MP().TimeUnit();
        maintenance := unitperiodtransport.Maintenance();
        lotsize := unitperiodtransport.LotSize();
        minperlot := unitperiodtransport.MinimumPerLot();
        minquantity := unitperiodtransport.MinimumQuantity();
        maxquantity := unitperiodtransport.MaximumQuantity();
        shiftpattern := unitperiodtransport.ShiftPattern();
        numberofunit := unitperiodtransport.NrOfOpen();
      }
    }
    
    // Assigning value to Read-Only attribute will result in runtime error.
    if( isnull( data.WrappedInstance() ) )
    {
      data.Start( start );
    }
    
    data.TimeUnit( timeunit );
    data.NrOfTimeUnit( 1 );
    data.Maintenance( maintenance );
    data.LotSize( lotsize );
    data.MinimumPerLot( minperlot );
    data.MinimumQuantity( minquantity );
    data.MaximumQuantity( maxquantity );
    data.ShiftPattern( relset, shiftpattern );
    data.NumberOfUnit( numberofunit);
  *]
}