VWED.git - Gitblit

			@@ -2,14 +2,43 @@
			#parent: pnlActions/btnOk
			Response OnClick () id:Response_pnlActions_btnOk_OnClick
			{
			#keys: '[412672.0.1039310295]'
			#keys: '[414996.1.206961980]'
			DefinitionID: 'Responsedef_WebButton_OnClick'
			GroupServerCalls: true
			QuillAction
			{
			Body:
			[*
			LockPeriod::Create( ddlContent.Data(),dsContent.Date() );
			if( cbAllStockingPoint.Checked() ){
			if( cbAllProduct.Checked() ){
			// 锁定全部产品
			traverse( MacroPlan,Product_MP,product ){
			traverse( product,ProductInStockingPoint_MP,productInStockingPoint ){
			LockPeriod::Create( productInStockingPoint,dsLockDate.Date(),InterfaceDataset );
			}
			}
			}else{
			// 锁定指定产品下的全部库存点
			product := ddlProduct.Data();
			traverse( product,ProductInStockingPoint_MP,productInStockingPoint){
			LockPeriod::Create( productInStockingPoint,dsLockDate.Date(), InterfaceDataset );
			}
			}
			}else{
			if( cbAllProduct.Checked() ){
			// 锁定指定库存点下的全部产品
			stockingPoint := ddlStockingPoint.Data();
			traverse( stockingPoint,ProductInStockingPoint_MP,productInStockingPoint ){
			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(),InterfaceDataset );
			}
			}
			}
			Form.Close();
			*]
			}