xiaoding721
2024-08-22 5ef66da459a5a313477ccc62ddb2e26cac6f42ba
修复六位码匹配不上不警告的bug
已修改3个文件
9 ■■■■ 文件已修改
_Main/BL/Type_Archive/StaticMethod_GenerateForecast.qbl 2 ●●● 补丁 | 查看 | 原始文档 | blame | 历史
_Main/BL/Type_Archive/StaticMethod_Success.qbl 4 ●●●● 补丁 | 查看 | 原始文档 | blame | 历史
_Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl 3 ●●●●● 补丁 | 查看 | 原始文档 | blame | 历史
_Main/BL/Type_Archive/StaticMethod_GenerateForecast.qbl
@@ -14,7 +14,7 @@
    traverse ( archiveExecutionStatus, TemporaryDemandData, tdd ,tdd.Origin() = "" or tdd.StartDate() >= macroPlan.StartOfPlanning().Date()) {
      targetProduct_MP       := select( macroPlan, Product_MP, tempPMP, tempPMP.ID() = tdd.ProductID() );
      targetStockingPoint_MP := select( macroPlan, StockingPoint_MP, tempSPMP, tempSPMP.ID() = tdd.StockingPointID() );
      info( tdd.SalesSegmentName() );
      // info( tdd.SalesSegmentName() );
      if ( not isnull( targetProduct_MP ) and not isnull( targetStockingPoint_MP ) ) {
        forcest := Forecast::Create( targetProduct_MP,
                          targetStockingPoint_MP,
_Main/BL/Type_Archive/StaticMethod_Success.qbl
@@ -23,7 +23,11 @@
      archiveExecutionStatus.AES_TemporaryDemandData().Source().FlatQuery( "truncate table A_Forecasts" );
      
      // 返回成功消息
      if( message <> ''){
        RequirementImportExecutionStatus::Create( archiveExecutionStatus, code, "Complete", userName, message, true );
      }else{
      RequirementImportExecutionStatus::Create( archiveExecutionStatus, code, "Complete", userName, Translations::A_VWED_RequirementImportSuccessful(), true );
      }
    } else {
      RequirementImportExecutionStatus::Create( archiveExecutionStatus, code, "Complete", userName, message, false );
    }
_Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl
@@ -8,6 +8,9 @@
  TextBody:
  [*
    // Akari Aug-21-2024 (created)
    owner.DispatchShiftPlan( relflush );
    owner.RB_DispatchShiftPlanBroker().Source().FlatQuery( "truncate table A_DispatchShiftPlan" );
    now := DateTime::Now();
    macroPlanName := macroPlan.MDSMacroPlan().Description();
    traverse( macroPlan,Unit.UnitPeriod.astype( UnitPeriodTime ).ShiftPlan,shiftPlan ){