Quintiq file version 2.0 
 | 
#parent: #root 
 | 
Method CopyExternalSupply ( 
 | 
  InventorySupply selection, 
 | 
  internal[GUIComponent] parent 
 | 
) id:Method_DialogCreateEditInventorySupply_CopyExternalSupply 
 | 
{ 
 | 
  #keys: '[136682.2.308003510]' 
 | 
  Body: 
 | 
  [* 
 | 
    // Copy supply specification 
 | 
    id := MacroPlan.IDHolder().GetInventorySupplyID(); 
 | 
    data := shadow( selection ); 
 | 
    data.ResetWrapped(); 
 | 
    data.ID( id ); 
 | 
    Dialog.Data( data ); 
 | 
    Dialog.EnableDisableComponent( false); 
 | 
     
 | 
     
 | 
    result := this.DoModal( parent ); 
 | 
     
 | 
     
 | 
     if ( result > 0 ) 
 | 
    {                                                                                                             
 | 
      //if manufactured date is restricted, default it to date of inv supply 
 | 
      data.ManufacturedDate( this.GetManufacturedDateWithUIRestriction( data.ManufacturedDate(), data.Date() ) ); 
 | 
      data.Commit(); 
 | 
    } 
 | 
  *] 
 | 
} 
 |