上线计划优化

admin

2024-10-28 1282ec1b406f0cd04e6e1d0d22b020cb269df0ee

上线计划优化

 _Main/BL/Type_NewAssemblyOnlinePlanCell/Attribute_LineLayingOrEmptying.qbl

@@ -3,6 +3,6 @@
Attribute LineLayingOrEmptying
{
  #keys: '3[415754.0.554840210][415754.0.554840209][415754.0.554840211]'
  Description: '铺线或者排空'
  Description: '铺线或者拉空'
  ValueType: String
}

 _Main/BL/Type_NewAssemblyOnlinePlanCell/StaticMethod_RefreshData.qbl

@@ -68,6 +68,9 @@
    //  info( "当前产线：", pl, "    å¤„理拉空--------------------------" );
      traverse ( drainPs, Elements, p ) {
        traverse ( p, ExplicitTimeInterval, eti ) {
          // è®¾ç½®å•å…ƒæ ¼ä¸ºæ‹‰ç©º
          NewAssemblyOnlinePlanCell::SetLineLayingOrEmptyingStatus( macroPlan, eti.Start().Date(), "拉空", pl );
          
    //      info( "开始时间：", eti.Start().Format( "Y-M2-D2" ), "    ç»“束时间：", eti.End().Format( "Y-M2-D2" ) );
          naopc := select( macroPlan, NewAssemblyOnlinePlanColumn, tempNAOPC, tempNAOPC.StartDate() = ( eti.Start().Date() - 1 ) );
          
@@ -97,6 +100,9 @@
      // å¤„理铺线
      traverse ( lineLyingPs, Elements, p ) {
        traverse ( p, ExplicitTimeInterval, eti ) {
          // è®¾ç½®å•å…ƒæ ¼ä¸ºæ‹‰ç©º
          NewAssemblyOnlinePlanCell::SetLineLayingOrEmptyingStatus( macroPlan, eti.Start().Date(), "铺线", pl );
          
          info( "开始时间：", eti.Start().Format( "Y-M2-D2" ), "    ç»“束时间：", eti.End().Format( "Y-M2-D2" ) );
          
          cell  := minselect( macroPlan, NewAssemblyOnlinePlanRow.NewAssemblyOnlinePlanCell, tempNAOPCell, 

 _Main/BL/Type_NewAssemblyOnlinePlanCell/StaticMethod_SetLineLayingOrEmptyingStatus.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,22 @@
Quintiq file version 2.0
#parent: #root
StaticMethod SetLineLayingOrEmptyingStatus (
  MacroPlan macroPlan,
  Date date,
  String status,
  String pl
)
{
  Description: '设置单元格铺线或者拉空状态'
  TextBody:
  [*
    cells := selectset( macroPlan, NewAssemblyOnlinePlanRow.NewAssemblyOnlinePlanCell, tempNAOPCell, 
                        tempNAOPCell.NewAssemblyOnlinePlanRow().ProductionLine() = pl   and 
                        tempNAOPCell.NewAssemblyOnlinePlanColumn().StartDate()   = date and
                        tempNAOPCell.NewAssemblyOnlinePlanRow().Type()           = "1" ); 
    
    traverse ( cells, Elements, c ) {
      c.LineLayingOrEmptying( status );
    }
  *]
}