修复一些bug

xiaoding721

2024-12-03 6c75b96c8b75d10226546637445c4ac50db3897d

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
Quintiq file version 2.0
#parent: PanelDispatchShiftSchedulingInformation/bDispatch
Response OnClick () id:Response_PanelDispatchShiftSchedulingInformation_bDispatch_OnClick
{
  #keys: '[414996.1.172931481]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    return cbCC.Checked() or cbDL.Checked();
  *]
  QuillAction
  {
    Body:
    [*
      factoryNameChinese := "";
      factoryNameEnglish := "";
      if( cbCC.Checked() ){
        factoryNameChinese := factoryNameChinese.Concat( "长春工厂;" );
        factoryNameEnglish := factoryNameEnglish.Concat( "CC;" );
      }
      if( cbDL.Checked() ){
        factoryNameChinese := factoryNameChinese.Concat( "大连工厂;" );
        factoryNameEnglish := factoryNameEnglish.Concat( "DL;" );
      }
      factoryNameChinese := factoryNameChinese.SubString( 0,factoryNameChinese.Length() - 1 );
      factoryNameEnglish := factoryNameEnglish.SubString( 0,factoryNameEnglish.Length() - 1 );
      if( WebMessageBox::Question( Translations::RecycleBin_DispatchShiftSchedulingDispatchCheck( factoryNameChinese,factoryNameEnglish ),Translations::MessageBox_YesNo() ) = 0 ){
        if( cbCC.Checked() ){
          respJSON := DispatchShiftSchedulingLine::DispatchCC( RecycleBin );
          result := respJSON.Get( "State" ).AsString(); 
          message := respJSON.Get( "Message" ).AsString();
          if( result = "Error" ){
            WebMessageBox::Error( "远程服务器返回了一个错误：" + message );
          }else{
            WebMessageBox::Information( message );
          }
        }
        if( cbDL.Checked() ){
          respJSON := DispatchShiftSchedulingLine::DispatchDL( RecycleBin ); 
          result := respJSON.Get( "State" ).AsString();
          message := respJSON.Get( "Message" ).AsString();
          if( result = "Error" ){
            WebMessageBox::Error( "远程服务器返回了一个错误：" + message );
          }else{
            WebMessageBox::Information( message,Translations::MessageBox_OK() );
          }
        }
        WebMessageBox::Success( "下发成功" );
      }else{
        WebMessageBox::Success( "Cancel" );
      }
    *]
    GroupServerCalls: false
  }
}