haorenhui
2023-10-30 6d6cc10d9e8e242661da7fd655dec155a09d676c
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
Quintiq file version 2.0
#parent: Panel227/btn_OK_FAACM
Response OnClick () id:Response_Panel227_btn_OK_FAACM_OnClick
{
  #keys: '[414724.0.61672228]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    return not isnull( MacroPlan);
  *]
  QuillAction
  {
    Body:
    [*
      strQty := np_Qty_FAACM.Number().AsQUILL();
      Qty := 0;
      if( strQty.FindString( ".",0)>0)
      {
        Qty := [Number]strQty.SubString( 0,strQty.FindString( ".",0));
      }
      else
      {
        Qty := [Number]strQty;
      }
      OperateMsg :="";
      OperateResult := H_FunctionClass::SM_MaterialReverse(   MacroPlan,"-",txt_CustomID_FAACM.Text(),lb_MaterialCode_FAACM.Text(),Qty,
                                                            lb_Operator_FAACM.Text(),OperateMsg,ddsl_OperateType_FAACM.Text());
      
      if( OperateMsg.Length()>0)
      {
        if( OperateResult)
        {
          WebMessageBox::Success( OperateMsg);
        }
        else
        {
          WebMessageBox::Warning( OperateMsg);
        }
      }
    *]
    GroupServerCalls: false
  }
}