修改下发班次计划为存档班次计划，添加班次计划存档功能

xiaoding721

2024-11-22 8efa02c57ec252109a3d8bd9e72482ae353816ab

修改下发班次计划为存档班次计划，添加班次计划存档功能

 _Main/BL/Type_ArchiveShiftPlanCell/Attribute_MacroPlanMDSID.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,7 @@
Quintiq file version 2.0
#parent: #root
Attribute MacroPlanMDSID
{
  #keys: '3[414996.1.240980117][414996.1.240980116][414996.1.240980118]'
  ValueType: Key
}

 _Main/BL/Type_ArchiveShiftPlanCell/Attribute_macroPlanName.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,7 @@
Quintiq file version 2.0
#parent: #root
Attribute MacroPlanName
{
  #keys: '3[414996.1.240980104][414996.1.240980103][414996.1.240980105]'
  ValueType: String
}

 _Main/BL/Type_ArchiveShiftPlanCell/StaticMethod_Archive.qbl

@@ -52,6 +52,8 @@
      archiveShiftPlanCellHandle := archiveShiftPlanCellIndexTree.GetHandle( shiftPlanCellKey );
      archiveShiftPlanCellIndex := guard( archiveShiftPlanCellIndexTree.Root().Child( archiveShiftPlanCellHandle ),null( NamedValue ) );
      if( isnull( archiveShiftPlanCellIndex )){
        factory := LocalTool::GetFactoryByUnit( shiftPlanCell.UnitPeriodTime().Unit() );
        
        archiveShiftPlanRow := null( ArchiveShiftPlanRow );
        archiveShiftPlanRowHandle := archiveShiftPlanRowIndexTree.GetHandle( shiftPlanRowKey );
        archiveShiftPlanRowIndex := guard( archiveShiftPlanRowIndexTree.Root().Child( archiveShiftPlanRowHandle ),null( NamedValue ));
@@ -60,8 +62,10 @@
          archiveShiftPlanRows.Add( archiveShiftPlanRow );
          archiveShiftPlanRowIndexTree.Root().AddChild( archiveShiftPlanRowHandle,archiveShiftPlanRows.Size() - 1 );
        }else{
          archiveShiftPlanRow := archiveShiftPlanRows.Element( archiveShiftPlanRowIndex.GetValueAsNumber() ); 
          archiveShiftPlanRow := archiveShiftPlanRows.Element( archiveShiftPlanRowIndex.GetValueAsNumber() );
        }
        
        archiveShiftPlanRow.FactoryName( factory.ID() );
        
        archiveShiftPlanColumn := null( ArchiveShiftPlanColumn );
        archiveShiftPlanColumnHandle := archiveShiftPlanColumnIndexTree.GetHandle( shiftPlanColumnKey );
@@ -85,6 +89,8 @@
      archiveShiftPlanCell.IsHoliday( shiftPlanCell.IsHoliday() );
      archiveShiftPlanCell.Outcome( shiftPlanCell.Outcome() );
      archiveShiftPlanCell.Remark( shiftPlanCell.Remark() );
      archiveShiftPlanCell.MacroPlanName( shiftPlanCell.UnitPeriodTime().MacroPlan().MDSMacroPlan().Description() );
      archiveShiftPlanCell.MacroPlanMDSID( shiftPlanCell.UnitPeriodTime().MacroPlan().MDSID() );
    }
  *]
}

 _Main/BL/Type_ArchiveShiftPlanRow/Attribute_FactoryName.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,7 @@
Quintiq file version 2.0
#parent: #root
Attribute FactoryName
{
  #keys: '3[414996.1.241011396][414996.1.241011395][414996.1.241011397]'
  ValueType: String
}

 _Main/BL/Type_DispatchShiftPlan/StaticMethod_Dispatch.qbl

@@ -2,7 +2,7 @@
#parent: #root
StaticMethod Dispatch (
  InterfaceDataset interfaceDataset,
  const MacroPlan macroPlan,
  const Archive archive,
  String executor
)
{
@@ -36,31 +36,29 @@
    }
    
    now := DateTime::Now();
    macroPlanName := macroPlan.MDSMacroPlan().Description();
    traverse( macroPlan,Unit.UnitPeriod.astype( UnitPeriodTime ).ShiftPlan,shiftPlan ,shiftPlan.UnitPeriodTime().Period_MP().StartDate() >= macroPlan.StartOfPlanning().Date()){
       factory := LocalTool::GetFactoryByUnit( shiftPlan.UnitPeriodTime().Unit() );
    traverse( archive,ArchiveShiftPlanRow.ArchiveShiftPlanCell,archiveShiftPlan ){
       factoryName := archiveShiftPlan.ArchiveShiftPlanRow().FactoryName();
       
       productLine :=  shiftPlan.UnitPeriodTime().Unit().ID();
       shiftDate := shiftPlan.UnitPeriodTime().Period_MP().StartDate();
       factoryName := factory.ID();
       productLine :=  archiveShiftPlan.ArchiveShiftPlanRow().UnitID();
       shiftDate := archiveShiftPlan.ArchiveShiftPlanColumn().StartDate();
       
       dispatchShiftPlanHandle := dispatchShiftPlanIndexTree.GetHandle( factoryName + productLine + shiftDate.AsQUILL() );
       dispatchShiftPlanIndex := guard( dispatchShiftPlanIndexTree.Root().Child( dispatchShiftPlanHandle ),null( NamedValue ));
       if( not isnull( dispatchShiftPlanIndex )){
         dispatchShiftPlan := dispatchShiftPlans.Element( dispatchShiftPlanIndex.GetValueAsNumber() );
         dispatchShiftPlan.Tips( shiftPlan.Remark() );
         dispatchShiftPlan.VersionName( macroPlanName );
         dispatchShiftPlan.Tips( archiveShiftPlan.Remark() );
         dispatchShiftPlan.VersionName( archiveShiftPlan.MacroPlanName() );
         dispatchShiftPlan.InterfaceTime( now );
       }else{
         if( shiftPlan.Outcome() <> "" ){
         if( archiveShiftPlan.Outcome() <> "" ){
           interfaceLoginfo.DispatchShiftPlan( relnew,ID := OS:: GenerateGUIDAsString(),
                                               ProductLine := productLine,
                                               FactoryName := factory.ID(),
                                               ShiftQty := shiftPlan.Outcome(),
                                               FactoryName := factoryName,
                                               ShiftQty := archiveShiftPlan.Outcome(),
                                  
                                               ShiftDate := shiftDate,
                                               Tips := shiftPlan.Remark(),
                                               VersionName := macroPlanName,
                                               Tips := archiveShiftPlan.Remark(),
                                               VersionName := archiveShiftPlan.MacroPlanName(),
                                               InterfaceTime := now );
         }
       }

 _Main/BL/Type_InterfaceDataset/Method_PublishPlanReportData.qbl

@@ -2,6 +2,7 @@
#parent: #root
Method PublishPlanReportData (
  const MacroPlan macroplan,
  const Archive archive,
  Boolean iscustomdemanddl,
  Boolean iscustomdemandcc,
  Boolean isofflineplandl,

 _Main/UI/MacroPlannerWebApp/Component_ApplicationMacroPlanner/Component_ActionBarGroupArchiveReport.def

@@ -38,17 +38,6 @@
        Taborder: 2
      ]
    }
    Component ButtonActualDailyProduction
    {
      #keys: '[414996.1.186223693]'
      BaseType: 'WebButton'
      Properties:
      [
        Image: 'RSS'
        Label: '实际每日生产计划'
        Taborder: 3
      ]
    }
    Component ButtonInventoryPlanArchiveReport
    {
      #keys: '[415136.0.1277502282]'
@@ -57,7 +46,7 @@
      [
        Image: 'WAREHOUSE'
        Label: '计划库存存档'
        Taborder: 4
        Taborder: 3
      ]
    }
    Component ButtonArchivePackagingPlan
@@ -68,7 +57,7 @@
      [
        Image: 'PRODUCT'
        Label: 'Archive packaging plan'
        Taborder: 5
        Taborder: 4
      ]
    }
    Component ButtonArchiveTransferPlan
@@ -79,6 +68,17 @@
      [
        Image: 'TRUCK2_BLUE'
        Label: 'Archive transfer plan'
        Taborder: 5
      ]
    }
    Component ButtonActualDailyProduction id:ButtonActualDailyProduction_478
    {
      #keys: '[414996.1.241250423]'
      BaseType: 'WebButton'
      Properties:
      [
        Image: 'RSS'
        Label: '实际每日生产计划'
        Taborder: 6
      ]
    }

 _Main/UI/MacroPlannerWebApp/Component_ApplicationMacroPlanner/Response_MacroPlanner_ActionBarGroupArchiveReport_ButtonActualDailyProdu#791.def

ÎļþÃû´Ó _Main/UI/MacroPlannerWebApp/Component_ApplicationMacroPlanner/Response_MacroPlanner_ActionBarGroupArchiveReport_ButtonActualDailyProductio.def ÐÞ¸Ä
@@ -1,8 +1,8 @@
Quintiq file version 2.0
#parent: ActionBarGroupArchiveReport/ButtonActualDailyProduction
Response OnClick () id:Response_MacroPlanner_ActionBarGroupArchiveReport_ButtonActualDailyProduction_OnClick
#parent: ActionBarGroupArchiveReport/ButtonActualDailyProduction_478
Response OnClick () id:Response_MacroPlanner_ActionBarGroupArchiveReport_ButtonActualDailyProduction_OnClick_791
{
  #keys: '[414996.1.186223803]'
  #keys: '[414996.1.241250422]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  QuillAction

 _Main/UI/MacroPlannerWebApp/Component_DialogPublishPlan/Method_OnOK.def

@@ -56,7 +56,7 @@
    showlabel       := showlabel.Concat( '。' );
    currentuser     := QuintiqUser::CurrentUser().DisplayName();
    if( WebMessageBox::Question( this, showlabel, 'OK|Cancel' ) = 0 ){
      InterfaceDataset.PublishPlanReportData( MacroPlan, cbCustomDemand.Checked()
      InterfaceDataset.PublishPlanReportData( MacroPlan,Archive, cbCustomDemand.Checked()
                                              , cbCustomDemandCC.Checked()
                                              , cbOfflinePlan.Checked()
                                              , cbOfflinePlanCC.Checked()