PeggingResult增加运行状态

hongji.li

2023-11-09 8a8582d827499854fdc8ee191b20306dcebaf213

PeggingResult增加运行状态

 _Main/BL/EDI/Broker_GlobalOTDTable_SummaryOfInboundTransaction.qbl

@@ -28,7 +28,7 @@
  {
    DataIntegrityStrategy: 'Disabled'
    SettingsEngineLink: 'domainmodel.ediremotedatasourcedefinition.remotestorage.oracle'
    EDIODBCLinkTable MID_ANNUAL_BUDGET_REVIEW
    EDIODBCLinkTable MID_SUMMARYOFINBOUNDTRANSACTION
    {
      OthersMayCreateTable: true
      OthersMayDeleteRow: true
@@ -60,7 +60,7 @@
      EDIODBCLinkColumn TRANSACTIONDATE
      {
        OthersMayUpdateColumn: true
        ValueType: String
        ValueType: DateTime
      }
      EDIODBCLinkColumn TRANSACTIONQTY
      {
@@ -73,7 +73,7 @@
  {
    EDITableTransformation
    {
      InputTable: MID_ANNUAL_BUDGET_REVIEW
      InputTable: MID_SUMMARYOFINBOUNDTRANSACTION
      OutputTable: Global_MappingSummaryOfInboundTransaction
      EDIColumnMatch { InputColumn: ITEM OutputColumn: Item }
      EDIColumnMatch { InputColumn: ORGANCODE OutputColumn: OrganCode }
@@ -88,15 +88,12 @@
          XMLDefinition:
          [*
            <?xml version="1.0" encoding="UTF-16"?>
            <StringToDate xmlns="http://www.quintiq.com/GEB/StringToDate" Key="@1">
            <DateTimeToDate xmlns="http://www.quintiq.com/GEB/DateTimeToDate" Key="@1">
              <IsStandard>true</IsStandard>
              <IsISO>false</IsISO>
              <IsCustom>false</IsCustom>
              <ConversionType>0</ConversionType>
              <DateFormatString>DefaultDate</DateFormatString>
              <LocaleString>Chinese (China)</LocaleString>
              <CustomFormatString></CustomFormatString>
            </StringToDate>
            </DateTimeToDate>
          *]
        }
      }

 _Main/BL/Relations/Relation_RunStatus_GlobalOTDLog_GlobalOTDLog_RunStatus.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,23 @@
Quintiq file version 2.0
#parent: #root
Relation RunStatus_GlobalOTDLog_GlobalOTDLog_RunStatus
{
  #keys: '1[414702.1.428321355]'
  DefaultRelationStrategy
  {
  }
  RelationSide.LeftSide GlobalOTDLog
  {
    #keys: '3[414702.1.428321357][414702.1.428321356][414702.1.428321358]'
    Cardinality: '0to1'
    ObjectDefinition: RunStatus
    OwningSide: 'Reference'
  }
  RelationSide.RightSide RunStatus
  {
    #keys: '3[414702.1.428321360][414702.1.428321359][414702.1.428321361]'
    Cardinality: '1toN'
    ObjectDefinition: GlobalOTDLog
    OwningSide: 'Owned'
  }
}

 _Main/BL/Type_GlobalOTDLog/StaticMethod_SetSuccessStatus.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,12 @@
Quintiq file version 2.0
#parent: #root
StaticMethod SetSuccessStatus (
  Object object,
  String type
)
{
  TextBody:
  [*
    // hongjli Nov-9-2023 (created)
  *]
}

 _Main/BL/Type_PeggingProduct_MP/StaticMethod_AsyncCreateData.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,13 @@
Quintiq file version 2.0
#parent: #root
StaticMethod AsyncCreateData (
  GlobalOTDSOP globalOTDSOP,
  Product_MPs product_MPs
)
{
  TextBody:
  [*
    globalOTDSOP -> PeggingProduct_MP::CreateData( product_MPs )
                 -> PeggingResult::SetSuccessRunStatus();
  *]
}

 _Main/BL/Type_PeggingResult/StaticMethod_AsyncCreateData.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,13 @@
Quintiq file version 2.0
#parent: #root
StaticMethod AsyncCreateData (
  MacroPlan macroPlan,
  PeggingProductInSalesDemandBases peggingProductInSalesDemandBases
)
{
  TextBody:
  [*
    macroPlan -> PeggingResult::CreateData( peggingProductInSalesDemandBases )
              -> PeggingResult::SetSuccessRunStatus();
  *]
}

 _Main/BL/Type_PeggingResult/StaticMethod_AsyncCreateDataSuccess.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,15 @@
Quintiq file version 2.0
#parent: #root
StaticMethod AsyncCreateDataSuccess (
  String runType
)
{
  TextBody:
  [*
    options := DatasetFindOptions::Construct( "GlobalOTDLog" ).IncludeOffline( true );
    
    mdskey := DatasetController::FindUnique( options );
    
    MDSGlobalOTDLog::Root( mdskey ) -> RunStatus::OnSuccess( runType );
  *]
}

 _Main/BL/Type_PeggingResult/StaticMethod_AsyncRunPeggingAlgorithm.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,12 @@
Quintiq file version 2.0
#parent: #root
StaticMethod AsyncRunPeggingAlgorithm (
  MacroPlan macroPlan
)
{
  TextBody:
  [*
    macroPlan -> RunPeggingAlgorithm()
              -> PeggingResult::AsyncRunPeggingAlgorithmSuccess( "Pegging Result" );
  *]
}

 _Main/BL/Type_PeggingResult/StaticMethod_AsyncRunPeggingAlgorithmSuccess.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,16 @@
Quintiq file version 2.0
#parent: #root
StaticMethod AsyncRunPeggingAlgorithmSuccess (
  MacroPlan macroPlan,
  String runType
)
{
  TextBody:
  [*
    options := DatasetFindOptions::Construct( "GlobalOTDLog" ).IncludeOffline( true );
    
    mdskey := DatasetController::FindUnique( options );
    
    MDSGlobalOTDLog::Root( mdskey ) -> RunStatus::OnSuccess( runType );
  *]
}

 _Main/BL/Type_PeggingResult/StaticMethod_CreateData.qbl

@@ -1,8 +1,8 @@
Quintiq file version 2.0
#parent: #root
StaticMethod CreateData (
  PeggingProductInSalesDemandBases peggingProductInSalesDemandBases,
  const MacroPlan macroPlan
  const MacroPlan macroPlan,
  PeggingProductInSalesDemandBases peggingProductInSalesDemandBases
)
{
  TextBody:

 _Main/BL/Type_PeggingResult/StaticMethod_SetSuccessRunStatus.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,6 @@
Quintiq file version 2.0
#parent: #root
StaticMethod SetSuccessRunStatus
{
  TextBody: 'RunStatus::SetCommonSuccessStatus( "Pegging Result" )'
}

 _Main/BL/Type_PeggingResultProductInStockingPoint_MP/StaticMethod_AsyncCreateData.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,13 @@
Quintiq file version 2.0
#parent: #root
StaticMethod AsyncCreateData (
  const MacroPlan macroPlan,
  PeggingProductInStockingPoint_MPs peggingProductInStockingPoint_MPs
)
{
  TextBody:
  [*
    macroPlan -> PeggingResultProductInStockingPoint_MP::CreateData( peggingProductInStockingPoint_MPs )
              -> PeggingResult::SetSuccessRunStatus();
  *]
}

 _Main/BL/Type_PeggingResultProductInStockingPoint_MP/StaticMethod_CreateData.qbl

@@ -1,8 +1,8 @@
Quintiq file version 2.0
#parent: #root
StaticMethod CreateData (
  PeggingProductInStockingPoint_MPs peggingProductInStockingPoint_MPs,
  const MacroPlan macroPlan
  const MacroPlan macroPlan,
  PeggingProductInStockingPoint_MPs peggingProductInStockingPoint_MPs
)
{
  TextBody:

 _Main/BL/Type_RunStatus/Attribute_Status#1.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,13 @@
Quintiq file version 2.0
#parent: #root
Attribute Status
{
  #keys: '3[414702.1.428321377][414702.1.428321376][414702.1.428321378]'
  Description:
  [*
    0：成功
    1：运行
    2：失败
  *]
  ValueType: Number
}

 _Main/BL/Type_RunStatus/Attribute_Type.qbl

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

 _Main/BL/Type_RunStatus/StaticMethod_OnRun.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,15 @@
Quintiq file version 2.0
#parent: #root
StaticMethod OnRun (
  GlobalOTDLog globalOTDLog,
  String runType
)
{
  TextBody:
  [*
    targetRunStatus := select( globalOTDLog, RunStatus, tempRS, tempRS.Type() = runType );
    targetRunStatus.Delete();
    
    globalOTDLog.RunStatus( relnew, Status := 1, Type := runType );
  *]
}

 _Main/BL/Type_RunStatus/StaticMethod_OnSuccess.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,15 @@
Quintiq file version 2.0
#parent: #root
StaticMethod OnSuccess (
  GlobalOTDLog globalOTDLog,
  String runType
)
{
  TextBody:
  [*
    targetRunStatus := select( globalOTDLog, RunStatus, tempRS, tempRS.Type() = runType );
    targetRunStatus.Delete();
    
    globalOTDLog.RunStatus( relnew, Status := 0, Type := runType );
  *]
}

 _Main/BL/Type_RunStatus/StaticMethod_SetCommonSuccessStatus.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,15 @@
Quintiq file version 2.0
#parent: #root
StaticMethod SetCommonSuccessStatus (
  String runType
)
{
  TextBody:
  [*
    options := DatasetFindOptions::Construct( "GlobalOTDLog" ).IncludeOffline( true );
    
    mdskey := DatasetController::FindUnique( options );
    
    MDSGlobalOTDLog::Root( mdskey ) -> RunStatus::OnSuccess( runType );
  *]
}

 _Main/BL/Type_RunStatus/_ROOT_Type_RunStatus.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,9 @@
Quintiq file version 2.0
#root
#parent: #DomainModel
Type RunStatus
{
  #keys: '5[414702.1.428321347][414702.1.428321345][0.0.0][414702.1.428321346][414702.1.428321348]'
  BaseType: Object
  StructuredName: 'RunStatuss'
}

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingProductInSalesDemandBase/Response_ListPeggingProductInSalesDemandBase_886_mGeneratePeggingResult_OnCl.def

@@ -16,7 +16,7 @@
  {
    Body:
    [*
      PeggingResult::CreateData( selection, MacroPlan );
      //PeggingResult::CreateData( selection, MacroPlan );
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Component_ListPeggingProduct_MP#34.def

@@ -36,7 +36,7 @@
  ]
  Properties:
  [
    Taborder: 1
    Taborder: 0
  ]
  ResponseDefinitions:
  [

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Component_PanelAbove.def

@@ -11,6 +11,6 @@
  Properties:
  [
    Orientation: 'horizontal'
    Taborder: 0
    Taborder: 1
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Component_PanelBelow.def

@@ -11,6 +11,6 @@
  Properties:
  [
    Border: true
    Taborder: 1
    Taborder: 2
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Component_PanelPeggingResult570.def

@@ -5,7 +5,6 @@
  BaseType: 'WebPanel'
  Children:
  [
    #child: pButton_407
    #child: ListPeggingProduct_MP_34
  ]
  Properties:

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Component_pButton#407.def

ÎļþÒÑɾ³ý

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Component_pButton.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,73 @@
Quintiq file version 2.0
Component pButton
{
  #keys: '[414702.1.426684184]'
  BaseType: 'WebPanel'
  Children:
  [
    Component bCreate
    {
      #keys: '[414702.1.426684185]'
      BaseType: 'WebButton'
      Properties:
      [
        Image: 'BOMB'
        Label: '创建Pegging产品'
        Taborder: 1
      ]
    }
    Component bRunPeggingAlgorithm
    {
      #keys: '[414702.1.426684186]'
      BaseType: 'WebButton'
      Properties:
      [
        Image: 'TREE'
        Label: '运行Pegging算法'
        Taborder: 0
      ]
    }
    Component iRunStatus
    {
      #keys: '[414702.1.428459298]'
      BaseType: 'WebImage'
      Properties:
      [
        Image: 'CHECK'
        Taborder: 2
      ]
    }
    Component DataHolderRunStatus
    {
      #keys: '[414702.1.428501585]'
      BaseType: 'WebDataHolder'
      Databinding: 'structured[RunStatus]*'
      Children:
      [
        Component DataExtractorRunStatus
        {
          #keys: '[414702.1.429648320]'
          BaseType: 'WebDataExtractor'
          Properties:
          [
            DataType: 'GlobalOTDLog'
            FixedFilter: 'object.Type() = "Pegging Result"'
            Source: 'GlobalOTDLog'
            Taborder: 0
            Transformation: 'RunStatus'
          ]
        }
      ]
      Properties:
      [
        Taborder: 3
      ]
    }
  ]
  Properties:
  [
    FixedSize: true
    Orientation: 'horizontal'
    Taborder: 0
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Response_ListPeggingProductInSalesDemandBase_mGeneratePeggingResult_OnClick.def

@@ -16,7 +16,9 @@
  {
    Body:
    [*
      PeggingResult::CreateData( selection, MacroPlan );
      RunStatus::OnRun( GlobalOTDLog, "Pegging Result" );
      
      PeggingResult::AsyncCreateData( MacroPlan, selection );
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Response_ListStockingPoint_140_mGeneratePeggingResult266_OnClick.def

@@ -12,7 +12,9 @@
  {
    Body:
    [*
      PeggingResultProductInStockingPoint_MP::CreateData( selection, MacroPlan );
      RunStatus::OnRun( GlobalOTDLog, "Pegging Result" );
      
      PeggingResultProductInStockingPoint_MP::AsyncCreateData( MacroPlan, selection );
    *]
    GroupServerCalls: false
  }

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Response_pButton_407_bCreate_OnClick.def

ÎļþÒÑɾ³ý

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Response_pButton_407_bRunPeggingAlgorithm_OnClick.def

ÎļþÒÑɾ³ý

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Response_pButton_DataHolderRunStatus_OnDataChanged.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,28 @@
Quintiq file version 2.0
#parent: pButton/DataHolderRunStatus
Response OnDataChanged () id:Response_pButton_DataHolderRunStatus_OnDataChanged
{
  #keys: '[414702.1.430209224]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebComponent_OnDataChanged'
  QuillAction
  {
    Body:
    [*
      runStatus := guard( this.Data().Element( 0 ), null( RunStatus ) );
      
      if ( not isnull( runStatus ) ) {
        if ( runStatus.Status() = 1 ) {
          iRunStatus.Image( "MEDIA_PLAY_GREEN" );
          bRunPeggingAlgorithm.Enabled( false, "正在运行中" );
          bCreate.Enabled( false, "正在运行中" );
        } else if ( runStatus.Status() = 0 ) {
          iRunStatus.Image( "CHECK" ); 
          bRunPeggingAlgorithm.Enabled( true, "" );
          bCreate.Enabled( true, "" );
        }
      }
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Response_pButton_bCreate_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,25 @@
Quintiq file version 2.0
#parent: pButton/bCreate
Response OnClick () id:Response_pButton_bCreate_OnClick
{
  #keys: '[414702.1.426684183]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    return not isnull( GlobalOTDSOP ) and not isnull( MacroPlan );
  *]
  QuillAction
  {
    Body:
    [*
      form := construct( FormNavigationPanel );
      form.ShowDockLeft();
      
      RunStatus::OnRun( GlobalOTDLog, "Pegging Result" );
      
      PeggingProduct_MP::AsyncCreateData( GlobalOTDSOP, DataHolderCheckedProduct.Data() );
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/Response_pButton_bRunPeggingAlgorithm_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,22 @@
Quintiq file version 2.0
#parent: pButton/bRunPeggingAlgorithm
Response OnClick () id:Response_pButton_bRunPeggingAlgorithm_OnClick
{
  #keys: '[414702.1.426684182]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  Precondition:
  [*
    return not isnull( MacroPlan );
  *]
  QuillAction
  {
    Body:
    [*
      RunStatus::OnRun( GlobalOTDLog, "Pegging Result" );
      
      PeggingResult::AsyncRunPeggingAlgorithm( MacroPlan );
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_FormPeggingResult/_ROOT_Component_FormPeggingResult.def

@@ -9,6 +9,7 @@
  [
    #child: PanelAbove
    #child: PanelBelow
    #child: pButton
  ]
  Properties:
  [

 _Main/UI/MacroPlannerWebApp/Views/Pegging·ÖÎö.vw

@@ -19,19 +19,19 @@
        }
        components
        {
          FormPeggingResult_pButton
          {
            sizeRatio: 1
          }
          FormPeggingResult_PanelAbove
          {
            sizeRatio: 0.956634174600973
            sizeRatio: 0.888839122693552
          }
          FormPeggingResult_PanelLeft
          {
            sizeRatio: 0.432843330645635
          }
          FormPeggingResult_PanelPeggingResult570
          {
            sizeRatio: 1
          }
          FormPeggingResult_pButton
          {
            sizeRatio: 1
          }
@@ -328,7 +328,7 @@
          }
          FormPeggingResult_PanelBelow
          {
            sizeRatio: 1.04336582539903
            sizeRatio: 1.11116087730645
          }
          FormPeggingResult_ListPeggingAllResult
          {