修复一些bug

xiaoding721

2024-10-10 3bf396310a7f98da92b47fcbf5799e7a01026451

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
Quintiq file version 2.0
#parent: PanelRight/bApply
Response OnClick () id:Response_PanelRight_bApply_OnClick
{
  #keys: '[414996.1.117189721]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  GroupServerCalls: true
  QuillAction
  {
    Body:
    [*
      weekdays := construct( Numbers );
      if( cbMonday.Checked() ){
        weekdays.Add( 1 ); 
      }
      if( cbTuesday.Checked() ){
        weekdays.Add( 2 ); 
      }
      if( cbWednesday.Checked() ){
        weekdays.Add( 3 ); 
      }
      if( cbThursday.Checked() ){
        weekdays.Add( 4 ); 
      }
      if( cbFriday.Checked() ){
        weekdays.Add( 5 ); 
      }
      if( cbSaturday.Checked() ){
        weekdays.Add( 6 ); 
      }
      if( cbSunday.Checked() ){
        weekdays.Add( 7 ); 
      }
      LocalTool::BatchSetUnitShiftPattern( dhSelectUnit.Data(),ddlShiftPattern.Data(),dsStartDate.Date(),dsEndDate.Date(),weekdays );
      WebMessageBox::Success( "Success");
    *]
  }
}