修复六位码匹配不上不警告的bug

xiaoding721

2024-08-22 5ef66da459a5a313477ccc62ddb2e26cac6f42ba

 _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 ){