Quintiq file version 2.0
|
#parent: #root
|
StaticMethod SetAllChildRelation1 (
|
PeggingProductInSalesDemandBase ppisdb
|
)
|
{
|
TextBody:
|
[*
|
traverse ( ppisdb, PeggingResult, pr, pr.NumberOfPlies() = 0 ) {
|
targetPeggingResults := selectset( pr, AllChild, tempPR, tempPR.SupplyType() = "库存供应" );
|
traverse ( targetPeggingResults, Elements, cpr ) {
|
targetChild := select( pr, AllChild, tempPR,
|
tempPR.PeggingProductInSalesDemandBase().SalesDemandBaseID() = cpr.PeggingProductInSalesDemandBase().SalesDemandBaseID() and
|
tempPR.ProductID() = cpr.ProductID() and
|
tempPR.StockingPointID() = cpr.StockingPointID() and
|
tempPR.StartDate() = cpr.StartDate() and
|
tempPR.SupplyType() <> "库存供应"
|
);
|
if ( not isnull( targetChild ) ) {
|
info( "库存供应数量：", cpr.SupplyQuantity(), " 其他供应数量：", targetChild.SupplyQuantity() );
|
targetChild.SupplyQuantity( targetChild.SupplyQuantity() + cpr.SupplyQuantity() );
|
targetChild.FulfillmentQuantity( targetChild.FulfillmentQuantity() + cpr.FulfillmentQuantity() );
|
targetChild.SupplyType( targetChild.SupplyType() + " + " + cpr.SupplyType() );
|
cpr.Delete();
|
}
|
}
|
}
|
*]
|
}
|
