更新 StaticMethod_GenerateDispatchData.qbl

xiaoding721

2024-12-06 3783009c3f9316f082c4db688613bbdb86cb7288

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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.Concat( '。' );
    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();
  *]
}