优先级策略问题修改

limj

2023-10-08 bb0fb9e2032814bfea1176d0b5c513a87169fe6b

优先级策略问题修改

 _Main/BL/Type_PriorityFactor/StaticMethod_InitData.qbl

@@ -18,15 +18,15 @@
    {
          
          // æ·»åŠ äº‹ä¸šéƒ¨å¯¹åº”的预制优先级因子数据
          owner.PriorityFactor(relnew,Name := "客户策略" ,Desc := "将事业部计算的优先级，按该细分项比例阶梯确定该项得分。如：81%≤X≤100% 5分，61%≤X≤80% 4分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "客户等级" ,Desc := "根据需求数据中客户，匹配客户等级",BusinessType := businessType);
          owner.PriorityFactor(relnew,Name := "大张盈利水平" ,Desc := "1、获取客户*SKU大张盈利数 2、定义客户*SKU大张盈利数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "细分市场等级" ,Desc := "1、获取客户*SKU对应细分市场等级 2、匹配需求数据中客户及SKU对应细分市场评分等级，得到对应阶梯得分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "需求类型" ,Desc := "匹配不同需求种类，得到对应得分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "订单下单时间" ,Desc := "根据需求订单中下单时间与需求时间差值，匹配阶梯得分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "产品等级" ,Desc := "1、获取客户*SKU DOI&DSI数 2、定义客户*SKUDOI&DSI数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "DOI" ,Desc := "1、获取客户*SKU DOI&DSI数 2、定义客户*SKUDOI&DSI数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "DSI" ,Desc := "1、获取客户*SKU DOI&DSI数 2、定义客户*SKUDOI&DSI数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType );
          owner.PriorityFactor(relnew,Name := "客户策略" ,Desc := "将事业部计算的优先级，按该细分项比例阶梯确定该项得分。如：81%≤X≤100% 5分，61%≤X≤80% 4分", BusinessType := businessType, Coefficient := 100 );
          owner.PriorityFactor(relnew,Name := "客户等级" ,Desc := "根据需求数据中客户，匹配客户等级",BusinessType := businessType, Coefficient := 100);
          owner.PriorityFactor(relnew,Name := "大张盈利水平" ,Desc := "1、获取客户*SKU大张盈利数 2、定义客户*SKU大张盈利数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType, Coefficient := 100 );
          owner.PriorityFactor(relnew,Name := "细分市场等级" ,Desc := "1、获取客户*SKU对应细分市场等级 2、匹配需求数据中客户及SKU对应细分市场评分等级，得到对应阶梯得分", BusinessType := businessType, Coefficient := 100 );
          owner.PriorityFactor(relnew,Name := "需求类型" ,Desc := "匹配不同需求种类，得到对应得分", BusinessType := businessType, Coefficient := 100 );
          owner.PriorityFactor(relnew,Name := "订单下单时间" ,Desc := "根据需求订单中下单时间与需求时间差值，匹配阶梯得分", BusinessType := businessType, Coefficient := 100 );
          owner.PriorityFactor(relnew,Name := "产品等级" ,Desc := "1、获取客户*SKU DOI&DSI数 2、定义客户*SKUDOI&DSI数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType, Coefficient := 100 );
          owner.PriorityFactor(relnew,Name := "DOI" ,Desc := "1、获取客户*SKU DOI&DSI数 2、定义客户*SKUDOI&DSI数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType, Coefficient := 100 );
          owner.PriorityFactor(relnew,Name := "DSI" ,Desc := "1、获取客户*SKU DOI&DSI数 2、定义客户*SKUDOI&DSI数阶梯得分 3、匹配需求数据中客户及SKU数据，得到对应阶梯得分", BusinessType := businessType, Coefficient := 100 );
          
          // ä¼˜å…ˆçº§å› å­ç»†åˆ†
          priorityFactorList := selectset( owner,PriorityFactor,p,

 _Main/BL/Type_PriorityResult/StaticMethod_calculatePriorityResult.qbl

@@ -10,8 +10,14 @@
  [*
    // NBoTk Sep-26-2023 (created)
    
    // è®¡ç®—客户订单的优先级得分 å›žå¡«æƒé‡æ•°æ® ç”Ÿæˆæ–°çš„Priority明细数据
    // å…ˆåˆ é™¤åŽ†å²çš„跑分详情
    traverse( macroPlan,PriorityResult,p)
    {
          p.PriorityResultBusinessTypeDetail(relflush );
          p.Delete(); 
    }
    
    // è®¡ç®—客户订单的优先级得分 å›žå¡«æƒé‡æ•°æ® ç”Ÿæˆæ–°çš„Priority明细数据
    traverse( macroPlan,SalesDemand.astype( CustomerOrder ),e)
    {
         // äº‹ä¸šéƒ¨ä¿¡æ¯
@@ -54,11 +60,40 @@
                                   result.PriorityResultScore()
                                   )
    
    // Quintiq优先级分10级 éœ€è¦åˆ†æ®µè®¡ç®—
    subLevel := resultList.Size() div 10;
    // Quintiq优先级分10级 éœ€è¦åˆ†æ®µè®¡ç®— å‘上取整
    subLevel := round( resultList.Size() div 10);
    subLevelCount := 0;
    
    priorityValue := 1;
    if( resultList.Size() <= 10 )
    {
        traverse( resultList,Elements,e)
        {
            obj := selectobject( macroPlan,SalesDemand.astype( CustomerOrder ),order, 
                         order.ID() = e.CustomerOrderID()
                         );
                         
            // è®¢å•æ•°æ®ä¸ä¸ºç©ºå†åšå¤„理
            if( not isnull( obj ) )
            {
                  obj.PriorityName([String]priorityValue);
                  
                  // åˆ›å»ºä¼˜å…ˆçº§æ•°æ® éœ€è¦å…ˆæ¸…除上一次的计算结果
                  // åˆ¤æ–­å½“前customerOrder是否存在
                  oldPriority := selectobject( macroPlan,Priority,p,p.Name() = [String]priorityValue);
                  if(isnull( oldPriority ) )
                  {
                        macroPlan.Priority(relnew,Weight := priorityValue,Name := [String]priorityValue);
                  }        
            }
            
            // åˆ¤æ–­è®¡ç®—分段数量与Quintiq原始优先级
            //优先级+1
            priorityValue := priorityValue + 1;
        }
    }
    else
    {
    traverse( resultList,Elements,e)
    {
        obj := selectobject( macroPlan,SalesDemand.astype( CustomerOrder ),order, 
@@ -91,5 +126,7 @@
            subLevelCount := 0;
        }
    }
    
    }
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogChoosePriorityPolicy/Response_pnlActions_btnOk_OnClick.def

@@ -11,7 +11,7 @@
      name := PriorityPolicyStringList.Text();
      dlg := construct( DialogChoosePriorityPolicy );
      dlg.CalculatePriorityResult(name);
      dlg.Close();
      Form.Close();
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Component_listContextMenuPriorityFactor.def

@@ -5,39 +5,6 @@
  BaseType: 'listContextMenu'
  Children:
  [
    Component MenuEdit
    {
      #keys: '[414382.0.485622263]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'GEAR_EDIT'
        Taborder: 4
        Title: '编辑'
      ]
    }
    Component MenuNew
    {
      #keys: '[414382.0.593001800]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'GEAR_ADD'
        Taborder: 3
        Title: '新增'
      ]
    }
    Component MenuDel
    {
      #keys: '[414382.0.593001811]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'GEAR_DELETE'
        Taborder: 5
        Title: '删除'
      ]
    }
    Component MenuInit
    {
      #keys: '[414382.0.600301960]'
@@ -45,7 +12,7 @@
      Properties:
      [
        Image: 'GEAR_NEW'
        Taborder: 6
        Taborder: 3
        Title: '初始化'
      ]
    }

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_DataHolderPriorityFactorSelect_OnDataChanged.def

@@ -9,8 +9,8 @@
  {
    Body:
    [*
      data := selectset( MacroPlan,PriorityFactor,p,true);
      this.Data(&data);
      //data := selectset( MacroPlan,PriorityFactor,p,true);
      //this.Data(&data);
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_DropDownStringListBusinessType_OnCreated.def

@@ -9,9 +9,8 @@
  {
    Body:
    [*
      info( "create" + DropDownStringListBusinessType.Text());
      list := PriorityFactor::GetDataByBusinessType( MacroPlan, DropDownStringListBusinessType.Text());
      DataHolderPriorityFactorSelect.Data(&list);
      //list := PriorityFactor::GetDataByBusinessType( MacroPlan, DropDownStringListBusinessType.Text());
      //DataHolderPriorityFactorSelect.Data(&list);
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_DropDownStringListBusinessType_OnSelectionChanged.def

@@ -9,9 +9,8 @@
  {
    Body:
    [*
      info( "selection" + DropDownStringListBusinessType.Text());
      list := PriorityFactor::GetDataByBusinessType( MacroPlan, DropDownStringListBusinessType.Text());
      DataHolderPriorityFactorSelect.Data(&list);
      //list := PriorityFactor::GetDataByBusinessType( MacroPlan, DropDownStringListBusinessType.Text());
      //DataHolderPriorityFactorSelect.Data(&list);
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_ListPriorityFactor_OnClick#144.def

ÎļþÃû´Ó _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_ListPriorityFactor_MenuEdit_OnClick.def ÐÞ¸Ä
@@ -7,7 +7,6 @@
  #keys: '[414382.0.485894605]'
  CanBindMultiple: false
  DefinitionID => /ListPriorityFactor/Responsedef_ListPriorityFactor_WebMenu_OnClick
  Initiator: 'MenuEdit'
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_ListPriorityFactor_OnClick#582.def

ÎļþÃû´Ó _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_ListPriorityFactor_MenuNew_OnClick.def ÐÞ¸Ä
@@ -5,7 +5,6 @@
  #keys: '[414382.0.593002709]'
  CanBindMultiple: false
  DefinitionID => /ListPriorityFactor/Responsedef_ListPriorityFactor_WebMenu_OnClick
  Initiator: 'MenuNew'
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_ListPriorityFactor_OnClick.def

ÎļþÃû´Ó _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/Response_ListPriorityFactor_MenuDel_OnClick.def ÐÞ¸Ä
@@ -7,7 +7,6 @@
  #keys: '[414382.0.593002800]'
  CanBindMultiple: false
  DefinitionID => /ListPriorityFactor/Responsedef_ListPriorityFactor_WebMenu_OnClick
  Initiator: 'MenuDel'
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactor/_ROOT_Component_FormPriorityFactor.def

@@ -12,6 +12,21 @@
      #keys: '[414382.0.453562359]'
      BaseType: 'WebDataHolder'
      Databinding: 'structured[PriorityFactor]*'
      Children:
      [
        Component DataExtractorPriorityFactorSelect
        {
          #keys: '[414382.0.608512605]'
          BaseType: 'WebDataExtractor'
          Properties:
          [
            DataType: 'MacroPlan'
            Source: 'MacroPlan'
            Taborder: 0
            Transformation: 'PriorityFactor'
          ]
        }
      ]
      Properties:
      [
        Taborder: 1

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactorGrading/Component_listContextMenuPriorityFactorGrading.def

@@ -3,20 +3,6 @@
{
  #keys: '[414382.0.479530873]'
  BaseType: 'listContextMenu'
  Children:
  [
    Component MenuEdit
    {
      #keys: '[414382.0.478491125]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'GEAR_EDIT'
        Taborder: 3
        Title: '编辑'
      ]
    }
  ]
  Properties:
  [
    Taborder: 0

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactorGrading/Response_ListPriorityFactorGrading_OnClick.def

ÎļþÃû´Ó _Main/UI/MacroPlannerWebApp/Component_FormPriorityFactorGrading/Response_ListPriorityFactorGrading_MenuEdit_OnClick.def ÐÞ¸Ä
@@ -7,7 +7,6 @@
  #keys: '[414382.0.479531766]'
  CanBindMultiple: false
  DefinitionID => /ListPriorityFactorGrading/Responsedef_ListPriorityFactorGrading_WebMenu_OnClick
  Initiator: 'MenuEdit'
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyCoefficient_902_ButtonCommit_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.506250033]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_ButtonAddPriorityPolicy_OnClick.def

@@ -7,9 +7,18 @@
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    feedback := "该优先级因子已被选择."
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    
    return not LabelFormula.Text() ~ DropDownStringList.Text();
    if( not check)
    {
        // åˆ¤æ–­è¯¥ä¼˜å…ˆçº§å› å­æ˜¯å¦å·²ç»è¢«é€‰æ‹©
        check := LabelFormula.Text() ~ DropDownStringList.Text();
        feedback := "该优先级因子已被选择."
    }
    
    return not check;
  *]
  QuillAction
  {

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_ButtonDivide_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.500261587]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_ButtonLeftParenthesis_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.500261667]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_ButtonMultiply_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.500261507]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_ButtonRightParenthesis_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.500261748]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_ButtonRollBack_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.506055261]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_ButtonSubtract_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.500261427]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PanelPriorityPolicyOperationButton_Buttonplus_OnClick.def

@@ -5,6 +5,13 @@
  #keys: '[414382.0.500261347]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    // å½“前是否有选中的优先级策略
    feedback := "请先选择一条优先级策略后再进行编辑公式";
    check := PanelPriorityPolicyOperationName.Text() = "";
    return not check;
  *]
  QuillAction
  {
    Body:

 _Main/UI/MacroPlannerWebApp/Component_FormPriorityPolicy/Response_PriorityPolicyBusinessType_OnSelectionChanged.def

@@ -11,6 +11,12 @@
    [*
      list := PriorityPolicy::GetDataByBusinessType( MacroPlan, PriorityPolicyBusinessType.Text());
      DataHolderPriorityPolicyShowList.Data(&list);
      
      PanelPriorityPolicyOperationName.Text("");
      LabelFormula.Text("");
      LabelCalculateValue.Text("");
      data := shadow( null( PriorityPolicy ) );
      DataHolderEditPriorityPolicy.Data( &data );
    *]
    GroupServerCalls: false
  }