Quintiq file version 2.0
#parent: pl_splite_info/btn_splite_add
Response OnClick () id:Response_pl_splite_info_btn_splite_add_OnClick
{
  #keys: '[414724.0.292801656]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    return not isnull( dh_Paramer_FCOS.Data());
  *]
  QuillAction
  {
    Body:
    [*
      // 拆分一个订单
      SQty:=[Number]np_Qty_FCOS.Number().Round( 0);
      if(SQty>0)
      {
        OrderInfo :=dh_Paramer_FCOS.Data();
        MacroPlan.S_DT_SpliteStruct(relnew,ID := H_FunctionClass::SM_GenerateID( "OSR")
                                            ,OrderID := OrderInfo.OrderID()
                                            ,ID_S_DT_CustomOrder := OrderInfo.ID()
                                            ,SpliteReason := ef_SpliteReason_FCOS.Text()
                                            ,Qty :=SQty
                                            ,Status := 1
                                            ,ForecastDate:= ds_ForcastDate_FCOS.Date());
        // 计算剩余拆分
        LQty:= OrderInfo.Quantity()-sum(MacroPlan,S_DT_SpliteStruct,obj,obj.ID_S_DT_CustomOrder()=OrderInfo.ID() and obj.Status()=1,obj.Qty()) ;
        np_Qty_FCOS.Max(LQty);
        np_Qty_FCOS.Number(LQty);
        if( np_Qty_FCOS.Max()=0)
        {
         WebMessageBox::Information( "订单已经全部拆完！");  
        }
      }
      else
      {
        if( np_Qty_FCOS.Max()=0)
        {
         WebMessageBox::Information( "订单已经全部拆完！");  
        }
        else
        {
          WebMessageBox::Information( "请调整 订单数量");  
        }
      }
    *]
    GroupServerCalls: false
  }
}