| | |
| | | { |
| | | Body: |
| | | [* |
| | | LockPeriod::Create( ddlContent.Data(),dsContent.Date() ); |
| | | if( cbAllProduct.Checked() ){ |
| | | traverse( MacroPlan,Product_MP,product ){ |
| | | traverse( product,ProductInStockingPoint_MP,productInStockingPoint ){ |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date() ); |
| | | } |
| | | } |
| | | }else{ |
| | | if( cbAllProductInStockingPoint.Checked() ){ |
| | | product := ddlProduct.Data(); |
| | | traverse( product,ProductInStockingPoint_MP,productInStockingPoint ){ |
| | | LockPeriod::Create( productInStockingPoint,dsLockDate.Date() ); |
| | | } |
| | | }else{ |
| | | LockPeriod::Create( ddlProductInStockingPoint.Data(),dsLockDate.Date() ); |
| | | } |
| | | } |
| | | Form.Close(); |
| | | *] |
| | | } |