Quintiq file version 2.0
|
#parent: #root
|
Method GetLanePISP () as owning Strings
|
{
|
TextBody:
|
[*
|
// To propagate Origin/Destination relation while importing Lane
|
// and also Origin.ProductInStockingPoint while importing Product
|
Transaction::Transaction().Propagate( relation( Lane, Origin ) )
|
Transaction::Transaction().Propagate( relation( Lane, Destination ) )
|
Transaction::Transaction().Propagate( relation( Lane, ProductInLane ) )
|
|
lanepisp := construct( Strings );
|
|
traverse( this, Unit.Lane, lane )
|
{
|
origin := selectset( lane, Origin, origin, true );
|
destination := selectset( lane, Destination, destination, true ) ;
|
sps := origin.Union( destination );
|
|
traverse ( lane, ProductInLane, pil )
|
{
|
traverse( sps, Elements, s )
|
{
|
lanepisp.Add( pil.Product_MP().ID() + ";" + s.StockingPointID() );
|
}
|
}
|
}
|
|
return &lanepisp;
|
*]
|
}
|
