1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Quintiq file version 2.0
| #parent: #root
| StaticMethod SetAllChildRelation (
| PeggingProductInSalesDemandBase peggingProductInSalesDemandBase,
| PeggingResult parentPeggingResult,
| PeggingResult childPeggingResult
| )
| {
| TextBody:
| [*
| if ( isnull( parentPeggingResult ) and isnull( childPeggingResult ) ) {
| parentPeggingResult := select( peggingProductInSalesDemandBase, PeggingResult, tempPR, tempPR.NumberOfPlies() = 0 );
| childPeggingResult := select( peggingProductInSalesDemandBase, PeggingResult, tempPR, tempPR.NumberOfPlies() = 0 );
| }
|
| traverse ( childPeggingResult, Child, pr ) {
| pr.AllParent( relset, parentPeggingResult );
| PeggingResult::SetAllChildRelation( peggingProductInSalesDemandBase, parentPeggingResult, pr );
| }
| *]
| }
|
|
