添加单班次计划配置，修复一些bug

xiaoding721

2024-11-27 56e177a01ebbaba93ec77e704bc15222332dece5

 _Main/BL/Type_Archive/StaticMethod_GenerateForecast.qbl

@@ -36,6 +36,10 @@
    }
    
    traverse ( archiveExecutionStatus, TemporaryDemandData, tdd ,tdd.Origin() = "" or tdd.StartDate() >= macroPlan.StartOfPlanning().Date()) {
      if( tdd.ProductID() = "6914" or tdd.ProductID() = "6916" or tdd.ProductID() = "6917" or tdd.ProductID() = "06S100010R" or tdd.ProductID() = "06S100010M" or tdd.ProductID() = "06S100010N" ){
        tdd.StockingPointID( "大连发动机的长春外租库" );
      }
      
      targetProduct_MP := null( Product_MP );
      
      productMPHandleNotes := productMPIndexTreeNotes.GetHandle( tdd.ProductID());
@@ -62,19 +66,19 @@
      // info( tdd.SalesSegmentName() );
      if ( not isnull( targetProduct_MP ) and not isnull( targetStockingPoint_MP ) ) {
        forcest := Forecast::Create( targetProduct_MP,
                          targetStockingPoint_MP,
                          IDHolder::GetGUID(),
                          tdd.StartDate(),
                          tdd.EndDate(),
                          tdd.Quantity(),
                          [Real]tdd.Price(),
                          tdd.PriorityName(),
                          tdd.SalesSegmentName(),
                          tdd.CurrencyID(),
                          tdd.UnitOfMeasureName(),
                          0.0,
                          false,
                          false );
                                     targetStockingPoint_MP,
                                     IDHolder::GetGUID(),
                                     tdd.StartDate(),
                                     tdd.EndDate(),
                                     tdd.Quantity(),
                                     [Real]tdd.Price(),
                                     tdd.PriorityName(),
                                     tdd.SalesSegmentName(),
                                     tdd.CurrencyID(),
                                     tdd.UnitOfMeasureName(),
                                     0.0,
                                     false,
                                     false );
        forcest.Origin( tdd.Origin() );
      }
      if( isnull( targetProduct_MP )){