Quintiq file version 2.0
|
#parent: #root
|
Method NewInventorySpecification (
|
internal[GUIComponent] parent,
|
ProductInStockingPointInPeriod pispip
|
) as InventorySpecification id:Method_DialogCreateEditInventorySpecification_NewInventorySpecification
|
{
|
#keys: '[105706.0.1322690604]'
|
Body:
|
[*
|
// New inventory specification
|
|
Dialog.ShowHideComponentForBatchEdit( false, true );
|
|
stockingpoint := guard( pispip.ProductInStockingPoint_MP().StockingPoint_MP(), null( StockingPoint_MP ) );
|
owner := guard( pispip.ProductInStockingPoint_MP().Product_MP(), InventorySpecification::GetDefaultOwner( MacroPlan, stockingpoint ) );
|
|
// Start
|
pispipstart := guard( pispip.Start().Date(), MacroPlan.StartOfPlanning().Date() );
|
data := owner.InventorySpecification( relshadow, StockingPointID := stockingpoint.ID(), ProductID := owner.ID(), Start := pispipstart );
|
data.StockingPoint_MP( relset, stockingpoint );
|
|
Dialog.Data( data );
|
Dialog.SetDefaultValue( pispip );
|
|
result := Dialog.DoModal( parent );
|
newobj := null( InventorySpecification );
|
|
if( result > 0 )
|
{
|
newobj := InventorySpecification::Create( data.Product_MP(),
|
data.StockingPoint_MP(),
|
data.Start(),
|
false,
|
0.0,
|
0.0,
|
data.HasMinLevelInDays(),
|
data.MinLevelInDays(),
|
data.MinLevelInQuantity(),
|
data.HasMaxLevel(),
|
data.HasMaxLevelInDays(),
|
data.MaxLevelInDays(),
|
data.MaxLevelInQuantity(),
|
false,
|
false );
|
}
|
|
return newobj;
|
*]
|
}
|