admin
2024-10-22 f6aa411801444444fd0216322d96c2e2f3bed9c7
_Main/BL/Type_WholeShift/Method_MobileCycleTask.qbl
@@ -8,6 +8,17 @@
  Description: '连续生产,移动两个周期任务'
  TextBody:
  [*
    // vwedadmin Oct-22-2024 (created)
    debuginfo( "需要填充的日期:", fillUPTB.StartDate().Format( "Y-M2-D2" ), "    目标被取数日期:", targetUPTB.StartDate().Format( "Y-M2-D2" ) );
    // 判断可用产能是否一致
    if ( fillUPTB.BaseAvailableCapacity().HoursAsReal() = targetUPTB.BaseAvailableCapacity().HoursAsReal() ) {
      traverse ( targetUPTB, PeriodTaskOperation, pto ) {
        PeriodTaskOperation::Create( pto.Operation(), fillUPTB, pto.Quantity(), false );
      }
      PeriodTaskOperation::Delete( selectset( targetUPTB, PeriodTaskOperation, tempPTO, true ) );
    }
    Transaction::Transaction().Propagate();
  *]
}