Quintiq file version 2.0
|
#parent: #root
|
Method RetrieveBookmark (
|
Bookmark bookmark
|
) id:Method_FormNavigationPanel_RetrieveBookmark
|
{
|
#keys: '[137818.0.125566862]'
|
Body:
|
[*
|
// Retrieve the selection in bookmark
|
//Clear the list selction before retrieve bookmark
|
Form.ClearAllNavSelection();
|
|
entities := construct( Entitys );
|
units := bookmark.GetUnits( MacroPlan );
|
stockingpoints := bookmark.GetStockingPoints( MacroPlan );
|
products := bookmark.GetProducts( MacroPlan );
|
salesSegments := bookmark.GetSalesSegments( MacroPlan );
|
entities := entities.Union( units );
|
entities := entities.Union( stockingpoints );
|
DataHolderOpenedBookmark.Data( bookmark );
|
|
// Workaround: List is not checked when collapsed, (-1) to expand all.
|
ListEntity.ExpandAll( -1 );
|
ListProduct.ExpandAll( -1 );
|
ListSalesSegment.ExpandAll( -1 );
|
|
traverse( entities, Elements, entity )
|
{
|
ListEntity.ExtendCheckByKey( entity.Key() );
|
}
|
traverse( products, Elements, product )
|
{
|
ListProduct.ExtendCheckByKey( product.Key() );
|
}
|
traverse( salesSegments, Elements, salessegment )
|
{
|
ListSalesSegment.ExtendCheckByKey( salessegment.Key() );
|
}
|
|
// Populate DH with to include leaf descendants of the checked item
|
allentities := selectset( entities, Elements, e, true )
|
.Union( selectset( entities, Elements.astype( Unit ).AllChildren.AsChildren, e, true) )
|
.Union( selectset( entities, Elements.astype( Unit ).AllChildren.AsChildren.StockingPoint_MP, e, not e.IsSystem() ) );
|
|
allproducts := selectset( products, Elements.AllChildren.AsChildren, product, true );
|
allsalessegment := selectset( salesSegments, Elements.AllChildren.AsChildren, ss, true );
|
|
// Update dataholders data
|
DataHolderCheckedEntities.Data( &allentities );
|
DataHolderCheckedProduct.Data( &allproducts );
|
DataHolderCheckedSalesSegment.Data( &allsalessegment );
|
*]
|
}
|
