Quintiq file version 2.0
#parent: #root
Method EditStockingPoint (
  internal[GUIComponent] parent,
  StockingPoint_MP selection,
  StockingPointNode stockingPointNode
) as Number id:Method_DialogCreateEditStockingPoint_EditStockingPoint
{
  #keys: '[11660.0.15276981]'
  Body:
  [*
    // Edit stocking point
    
    data := shadow( selection );
    
    Dialog.Data( data );
    
    Dialog.SetImage();
    
    // Set belongs to checkbox
    CheckBoxBelongsTo.Checked( not isnull( selection.Unit() ) );
    
    // Check the start and end checkbox if the date is defined.
    CheckBoxHasStart.Checked( Dialog.Data().Start().IsFinite() );
    CheckBoxHasEnd.Checked( Dialog.Data().End().IsFinite() );
    
    if( not isnull( stockingPointNode ) )
    {
      DataHolderStockingPointNode.Data( stockingPointNode );
    }
    
    Dialog.SetUI();
    
    result := this.DoModal( parent );
    
    if ( result > 0 )
    {
      unitid := '';
      if( CheckBoxBelongsTo.Checked() )
      {
        unitid := guard( SelectionBelongsTo.Data().ID(), '' );
      }
      data.UnitID( unitid );
    
      // The validity of the stocking point.
      if( CheckBoxHasStart.Checked() )
      {
        data.Start( GUIDateTimeSelectorStart.DateTime().Date() );
      }
    
      if( CheckBoxHasEnd.Checked() )
      {
        data.End( GUIDateTimeSelectorEnd.DateTime().Date() );
      }
    
      if( isnull( stockingPointNode ) )
      {
        stockingPointNode := select ( selection, StockingPointNode, spn, spn.SupplyChainView() = DataHolderView.Data(), true );
      }
      else
      {
        selection.UpdateTypeIndex( EditorID.Text() );      // Read-only, apply changes to shadow is not taking place for read-only attribute when editing.
        data.Commit();
      }
    }
    
    return result;
  *]
}