Quintiq file version 2.0
#parent: #root
Method OnOK () id:Method_DialogReportArchiveConfirm_OnOK
{
  #keys: '[415136.0.1248982978]'
  Body:
  [*
    this.ApplyChanges();
    
    //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 ){
        InterfaceDataset.GenerateArchiveData( MacroPlan, RecycleBin, Archive, cbCustomDemand.Checked()
                                              , cbOfflinePlan.Checked()
                                              , cbShiftPlan.Checked()
                                              , cbAssembleOnlinePlan.Checked()
                                              , cbInventoryPlan.Checked()
                                              , cbTRCDemand.Checked()
                                              , cbTransferPlan.Checked()
                                              , cbPackagePlan.Checked() );
      }
    //}else{
    //  info( '************###########*****************' );
    //  WebMessageBox::Information( this, '未选择任何计划进行存档' )
    //}
    this.Close();
  *]
}