连续生产优化

admin

2024-10-22 ef42765827dbd7c60d23dffd9a5bd510d0d76617

连续生产优化

 _Main/BL/Type_WholeShift/Method_MobileCycleTask.qbl

@@ -12,10 +12,14 @@
    
    // 判断可用产能是否一致
    if ( fillUPTB.BaseAvailableCapacity().HoursAsReal() = targetUPTB.BaseAvailableCapacity().HoursAsReal() ) {
      // 删除需要填充的UPTB
      PeriodTaskOperation::Delete( selectset( fillUPTB, PeriodTaskOperation, tempPTO, true ) );
      
      traverse ( targetUPTB, PeriodTaskOperation, pto ) {
        PeriodTaskOperation::Create( pto.Operation(), fillUPTB, pto.Quantity(), false );
      }
      
      // 删除目标被取数的UPTB
      PeriodTaskOperation::Delete( selectset( targetUPTB, PeriodTaskOperation, tempPTO, true ) );
    }
    

 _Main/BL/Type_WholeShift/Method_PostProcessing2.qbl

@@ -15,8 +15,8 @@
      uptbs    := selectsortedset( unit, UnitPeriod.astype( UnitPeriodTimeBase ), tempUPTB, not tempUPTB.IsPeriodFrozen() and tempUPTB.IsPlanning(), tempUPTB.Start() );
          
      // 圆整或补零当前产线下所生产的产品
    //  this.IsRoundingOrZeroFilling3( macroPlan, uptbs ); // 借还逻辑
    //  Transaction::Transaction().Propagate();
      this.IsRoundingOrZeroFilling3( macroPlan, uptbs ); // 借还逻辑
      Transaction::Transaction().Propagate();
            
    //        // 平衡当前产线下所生产的产品库存（库存 < 最大库存）
    //        // this.A_balanceInventory( macroPlan, unitPeriodTimeBases );