Quintiq file version 2.0
#parent: #root
Method OnOK () id:Method_DialogReportArchiveConfirm_OnOK
{
  #keys: '[415136.0.1248982978]'
  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 := '是否存档';
      plannames := construct( Strings );
      if( cbCustomDemand.Checked() ){
        plannames.Add( lblCustomDemand.Label() );
      }
      if( cbOfflinePlan.Checked() ){
        plannames.Add( lblOfflinePlan.Label() );
      }
      if( cbShiftPlan.Checked() ){
        plannames.Add( lblShiftPlan.Label() );
      }
      if( cbAssembleOnlinePlan.Checked() ){
        plannames.Add( lblAssembleOnlinePlan.Label() );
      }
      if( cbInventoryPlan.Checked() ){
        plannames.Add( lblInventoryPlan.Label() );
      }
      if( cbTRCDemand.Checked() ){
        plannames.Add( lblTRCDemand.Label() );
      }
      if( cbTransferPlan.Checked() ){
        plannames.Add( lblTransferPlan.Label() );
      }
      if( cbPackagePlan.Checked()){
        plannames.Add( lblPackagePlan.Label() );
      }
      showlabel := showlabel.Concat( plannames.Concatenate( "、" ) ).Concat( '？' );
      info( '*****************************' );
      if( WebMessageBox::Question( this, showlabel, 'OK|Cancel' ) = 0 ){
      }
    }else{
      info( '************###########*****************' );
      WebMessageBox::Information( this, '未选择任何计划进行存档' )
    }
    
    this.Close();
  *]
}