Quintiq file version 2.0
#parent: #root
Method OnOK () id:Method_DialogPublishPlan_OnOK
{
  #keys: '[415136.0.1255982634]'
  Body:
  [*
    this.ApplyChanges();
    
    showlabel       := '是否发送';
    dlplannames     := construct( Strings );
    ccplannames     := construct( Strings );
    if( cbCustomDemand.Checked() ){
      dlplannames.Add( lblCustomDemand.Label() );
    }
    if( cbCustomDemandCC.Checked() ){
      ccplannames.Add( lblCustomDemandCC.Label() );
    }
    if( cbOfflinePlan.Checked() ){
      dlplannames.Add( lblOfflinePlan.Label() );
      ArchiveCell_ScheduleSummary::Create( MacroPlan,Archive );
    }
    if( cbOfflinePlanCC.Checked() ){
      ccplannames.Add( lblOfflinePlanCC.Label() );
      ArchiveCell_ScheduleSummary::Create( MacroPlan,Archive );
    }
    if( cbShiftPlan.Checked() ){
      dlplannames.Add( lblShiftPlan.Label() );
      ArchiveCell_ScheduleSummary::Create( MacroPlan,Archive );
    }
    if( cbShiftPlanCC.Checked() ){
      ccplannames.Add( lblShiftPlanCC.Label() );
      ArchiveCell_ScheduleSummary::Create( MacroPlan,Archive );
    }
    if( cbAssembleOnlinePlan.Checked() ){
      dlplannames.Add( lblAssembleOnlinePlan.Label() );
    }
    if( cbAssembleOnlinePlanCC.Checked() ){
      ccplannames.Add( lblAssembleOnlinePlanCC.Label() );
    }
    if( cbInventoryPlan.Checked() ){
      dlplannames.Add( lblInventoryPlan.Label() );
    }
    if( cbInventoryPlanCC.Checked() ){
      ccplannames.Add( lblInventoryPlanCC.Label() );
    }
    
    dlshowname      := '大连工厂的';
    if( dlplannames.Size() > 0 ){
      showlabel     := showlabel.Concat( dlshowname.Concat( dlplannames.Concatenate( "、" ) ) ).Concat( "；");
    }
    ccshowname      := '长春工厂的';
    if( ccplannames.Size() > 0 ){
      showlabel     := showlabel.Concat( ccshowname.Concat( ccplannames.Concatenate( "、" ) ) ).Concat( "；");
    }
    showlabel       := showlabel.Replace( showlabel.Length() - 1, 1, '。' );
    currentuser     := QuintiqUser::CurrentUser().DisplayName();
    if( WebMessageBox::Question( this, showlabel, 'OK|Cancel' ) = 0 ){
      InterfaceDataset.PublishPlanReportData( MacroPlan,Archive, cbCustomDemand.Checked()
                                              , cbCustomDemandCC.Checked()
                                              , cbOfflinePlan.Checked()
                                              , cbOfflinePlanCC.Checked()
                                              , cbShiftPlan.Checked()
                                              , cbShiftPlanCC.Checked()
                                              , cbAssembleOnlinePlan.Checked()
                                              , cbAssembleOnlinePlanCC.Checked()
                                              , cbInventoryPlan.Checked()
                                              , cbInventoryPlanCC.Checked()
                                                , currentuser );
    }
    
    this.Close();
  *]
}
