装配上线计划添加一个4位码

lazhen

2024-08-29 bac6da002528f06ab9c91bb48d5a6e72493b2b60

装配上线计划添加一个4位码

 _Main/BL/Type_AssemblyOnlinePlanPush/Attribute_ProductFourCode.qbl

对比新文件
@@ -0,0 +1,8 @@
Quintiq file version 2.0
#parent: #root
Attribute ProductFourCode
{
  #keys: '3[415136.0.1082964677][415136.0.1082964676][415136.0.1082964678]'
  Description: '浜у搧4浣嶇爜code'
  ValueType: String
}

 _Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl

@@ -37,14 +37,16 @@
        ordercell          := selectobject( column, AssemblyOnlinePlanCell, ocell, ocell.AssemblyOnlinePlanRow().ProductID() = quantityrow.ProductID() 
                                            and ocell.AssemblyOnlinePlanRow().ProductionLine() = quantityrow.ProductionLine() 
                                            and ocell.AssemblyOnlinePlanRow().Type() = '2' );
        product            := selectobject( macroplan, Product_MP, product, product.ID() = quantityrow.ProductID() );
    
        cd                  :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product           := quantityrow.ProductID()
        cd                  :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product           := product.ID()
                                                                           , PlanningDate            := column.ColumnDate()
                                                                           , PlanningQty             := [Number]cell.Value()
                                                                           , Sequence                := ordercell.Value()
                                                                           , VersionName             := macroplan.ScenarioName()
                                                                           , InterfaceTime           := nowdate
                                                                           , VersionFlag             := versionflag
                                                                           , ProductFourCode         := product.Notes()
                                                                           );
        loginfo.AssemblyOnlinePlanPPPSPush( relinsert, cd );
      }