| | |
| | | // 锁定全部产品 |
| | | traverse( MacroPlan,Product_MP,product ){ |
| | | traverse( product,ProductInStockingPoint_MP,productInStockingPoint ){ |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date() ); |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date(),InterfaceDataset ); |
| | | } |
| | | } |
| | | }else{ |
| | | // 锁定指定产品下的全部库存点 |
| | | product := ddlProduct.Data(); |
| | | traverse( product,ProductInStockingPoint_MP,productInStockingPoint){ |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date() ); |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date(), InterfaceDataset ); |
| | | } |
| | | } |
| | | }else{ |
| | |
| | | // 锁定指定库存点下的全部产品 |
| | | stockingPoint := ddlStockingPoint.Data(); |
| | | traverse( stockingPoint,ProductInStockingPoint_MP,productInStockingPoint ){ |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date() ); |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date(), InterfaceDataset ); |
| | | } |
| | | }else{ |
| | | // 锁定指定库存点的指定产品 |
| | | productInStockingPoint := select( ddlProduct.Data(),ProductInStockingPoint_MP,pisp,pisp.StockingPoint_MP() = ddlStockingPoint.Data() ); |
| | | if( not isnull( productInStockingPoint )){ |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date() ); |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date(),InterfaceDataset ); |
| | | } |
| | | } |
| | | } |