修复一些bug

xiaoding721

2024-10-29 11b179f35b54d33f8414ccaa815b5fa8313b7746

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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;
  *]
}