| | |
| | | Body: |
| | | [* |
| | | this.ApplyChanges(); |
| | | info( '------------------',cbCustomDemand.Checked() |
| | | ,cbOfflinePlan.Checked() |
| | | ,cbShiftPlan.Checked() |
| | | ,cbAssembleOnlinePlan.Checked() |
| | | ,cbInventoryPlan.Checked() |
| | | ,cbTRCDemand.Checked() |
| | | ,cbTransferPlan.Checked() |
| | | ,cbPackagePlan.Checked() ); |
| | | showlabel := '是否存档'; |
| | | if( cbCustomDemand.Checked() |
| | | or cbOfflinePlan.Checked() |
| | | or cbShiftPlan.Checked() |
| | | or cbAssembleOnlinePlan.Checked() |
| | | or cbInventoryPlan.Checked() |
| | | or cbTRCDemand.Checked() |
| | | or cbTransferPlan.Checked() |
| | | or cbPackagePlan.Checked() ){ |
| | | |
| | | //showlabel := '是否存档'; |
| | | //if( cbCustomDemand.Checked() |
| | | // or cbOfflinePlan.Checked() |
| | | // or cbShiftPlan.Checked() |
| | | // or cbAssembleOnlinePlan.Checked() |
| | | // or cbInventoryPlan.Checked() |
| | | // or cbTRCDemand.Checked() |
| | | // or cbTransferPlan.Checked() |
| | | // or cbPackagePlan.Checked() ){ |
| | | showlabel := '是否存档'; |
| | | plannames := construct( Strings ); |
| | | if( cbCustomDemand.Checked() ){ |
| | |
| | | plannames.Add( lblPackagePlan.Label() ); |
| | | } |
| | | showlabel := showlabel.Concat( plannames.Concatenate( "、" ) ).Concat( '?' ); |
| | | info( '*****************************' ); |
| | | // info( '*****************************' ); |
| | | if( WebMessageBox::Question( this, showlabel, 'OK|Cancel' ) = 0 ){ |
| | | } |
| | | }else{ |
| | | info( '************###########*****************' ); |
| | | WebMessageBox::Information( this, '未选择任何计划进行存档' ) |
| | | } |
| | | |
| | | //}else{ |
| | | // info( '************###########*****************' ); |
| | | // WebMessageBox::Information( this, '未选择任何计划进行存档' ) |
| | | //} |
| | | this.Close(); |
| | | *] |
| | | } |