| | |
| | | TextBody: |
| | | [* |
| | | // Akari Oct-23-2024 (created) |
| | | //packagingPlanCells := selectset( macroPlan,PackagingPlanRow.PackagingPlanCell,cell,true ); |
| | | //packagingPlanCellIndexTree := NamedValueTree::Create(); |
| | | //for( i := 0; i < packagingPlanCells.Size(); i++ ){ |
| | | // packagingPlanCell := packagingPlanCells.Element( i ); |
| | | // packagingPlanRow := packagingPlanCell.PackagingPlanRow(); |
| | | // packagingPlanColumn := packagingPlanCell.PackagingPlanColumn(); |
| | | // |
| | | // packagingPlanRowKey := packagingPlanRow.Category() + packagingPlanRow.Factory() + packagingPlanRow.ProductID() + packagingPlanRow.StockingPointID(); |
| | | // packagingPlanColumnKey := packagingPlanColumn.StartDate().AsQUILL(); |
| | | // packagingPlanCellKey := packagingPlanRowKey + packagingPlanColumnKey; |
| | | // packagingPlanCellHandle := packagingPlanCellIndexTree.GetHandle( packagingPlanCellKey ); |
| | | // |
| | | // packagingPlanCellIndexTree.Root().AddChild( packagingPlanCellHandle,i ); |
| | | //} |
| | | |
| | | archivePackagingPlanCells := selectset( archive,ArchivePackagingPlanRow.ArchivePackagingPlanCell,cell,true ); |
| | | archivePackagingPlanCellIndexTree := NamedValueTree::Create(); |
| | | for( i := 0; i < archivePackagingPlanCells.Size(); i++ ){ |
| | |
| | | archivePackagingPlanColumnIndexTree.Root().AddChild( archivePackagingPlanColumnHandle,i ); |
| | | } |
| | | |
| | | traverse( macroPlan,PackagingPlanRow.PackagingPlanCell,packagingPlanCell ){ |
| | | traverse( macroPlan,PackagingPlanRow.PackagingPlanCell,packagingPlanCell,packagingPlanCell.PackagingPlanColumn().StartDate() >= macroPlan.StartOfPlanning().Date() ){ |
| | | packagingPlanRow := packagingPlanCell.PackagingPlanRow(); |
| | | packagingPlanColumn := packagingPlanCell.PackagingPlanColumn(); |
| | | packagingPlanRowKey := packagingPlanRow.Category() + packagingPlanRow.Factory() + packagingPlanRow.ProductID() + packagingPlanRow.StockingPointID(); |