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

xiaoding721

2024-11-27 56e177a01ebbaba93ec77e704bc15222332dece5

 _Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl

@@ -51,15 +51,16 @@
         dispatchShiftPlan.InterfaceTime( now );
       }else{
         if( archiveShiftPlan.Outcome() <> "" ){
           interfaceLoginfo.DispatchShiftPlan( relnew,ID := OS:: GenerateGUIDAsString(),
                                               ProductLine := productLine,
                                               FactoryName := factoryName,
                                               ShiftQty := archiveShiftPlan.Outcome(),
           dispatchShiftPlan := interfaceLoginfo.DispatchShiftPlan( relnew,ID := OS:: GenerateGUIDAsString(),
                                                                    ProductLine := productLine,
                                                                    FactoryName := factoryName,
                                                                    ShiftQty := archiveShiftPlan.Outcome(),
                                  
                                               ShiftDate := shiftDate,
                                               Tips := archiveShiftPlan.Remark(),
                                               VersionName := archiveShiftPlan.MacroPlanName(),
                                               InterfaceTime := now );
                                                                    ShiftDate := shiftDate,
                                                                    Tips := archiveShiftPlan.Remark(),
                                                                    VersionName := archiveShiftPlan.MacroPlanName(),
                                                                    InterfaceTime := now );
           dispatchShiftPlan.CalcFac();
         }
       }
    }