装配上线计划+机加下线计划- SAP接口类

lazhen

2024-08-26 2d107a69e5d84532a7dd5defe3196280b23b4d1f

装配上线计划+机加下线计划- SAP接口类

 _Main/BL/InfoMessages.qbl

@@ -86,6 +86,14 @@
  {
    DefaultText: 'There are duplicate three digit codes present'
  }
  InfoMessage InterfaceDataset_AOnlineAndMOfflinePlanMS64_Name
  {
    DefaultText: 'Assembly online plan + Machine offline plan - MS64'
  }
  InfoMessage InterfaceDataset_AOnlineAndMOfflinePlanPIR_Name
  {
    DefaultText: 'Assembly online plan + Machine offline plan - PIR'
  }
  InfoMessage InterfaceDataset_ActualDailyProductionData_Name
  {
    DefaultText: 'Actual daily production data'

 _Main/BL/Relations/Relation_AOnlineAndMOfflinePlanMS64_InterfaceLoginfo_InterfaceLoginfo_AOnlin.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,23 @@
Quintiq file version 2.0
#parent: #root
Relation AOnlineAndMOfflinePlanMS64_InterfaceLoginfo_InterfaceLoginfo_AOnlineAndMOfflinePlanMS64
{
  #keys: '1[415136.0.1044616285]'
  DefaultRelationStrategy
  {
  }
  RelationSide.LeftSide InterfaceLoginfo
  {
    #keys: '3[415136.0.1044616287][415136.0.1044616286][415136.0.1044616288]'
    Cardinality: '0to1'
    ObjectDefinition: AOnlineAndMOfflinePlanMS64
    OwningSide: 'Reference'
  }
  RelationSide.RightSide AOnlineAndMOfflinePlanMS64
  {
    #keys: '3[415136.0.1044616290][415136.0.1044616289][415136.0.1044616291]'
    Cardinality: '1toN'
    ObjectDefinition: InterfaceLoginfo
    OwningSide: 'Reference'
  }
}

 _Main/BL/Relations/Relation_AOnlineAndMOfflinePlanPIR_InterfaceLoginfo_InterfaceLoginfo_AOnline.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,23 @@
Quintiq file version 2.0
#parent: #root
Relation AOnlineAndMOfflinePlanPIR_InterfaceLoginfo_InterfaceLoginfo_AOnlineAndMOfflinePlanPIR
{
  #keys: '1[415136.0.1044616244]'
  DefaultRelationStrategy
  {
  }
  RelationSide.LeftSide InterfaceLoginfo
  {
    #keys: '3[415136.0.1044616246][415136.0.1044616245][415136.0.1044616247]'
    Cardinality: '0to1'
    ObjectDefinition: AOnlineAndMOfflinePlanPIR
    OwningSide: 'Reference'
  }
  RelationSide.RightSide AOnlineAndMOfflinePlanPIR
  {
    #keys: '3[415136.0.1044616249][415136.0.1044616248][415136.0.1044616250]'
    Cardinality: '1toN'
    ObjectDefinition: InterfaceLoginfo
    OwningSide: 'Reference'
  }
}

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/Attribute_IsActive.qbl

@@ -4,5 +4,5 @@
{
  #keys: '3[415136.0.1039640227][415136.0.1039640226][415136.0.1039640228]'
  Description: '是否激活'
  ValueType: Number
  ValueType: Boolean
}

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/Attribute_Version.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/DefaultValue_Version.qbl

ÎļþÒÑɾ³ý

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,48 @@
Quintiq file version 2.0
#parent: #root
StaticMethod GenerateData (
  InterfaceDataset owner,
  String werk,
  Date startdate,
  Date enddate,
  const MacroPlan macroplanfrom,
  const MacroPlan macroplanto,
  Boolean versionflag,
  const Product_MPs products,
  String executor
)
{
  TextBody:
  [*
    // ç”„兰鸽 Aug-23-2024 (created)
    cdlast                 := maxobject( owner, AOnlineAndMOfflinePlanMS64, cd, cd.StartDate(), cd.EndDate(), cd.Werk() );
    if( not isnull( cdlast ) ){
      loginfo              := cdlast.InterfaceLoginfo();
      if( not loginfo.IsShow() ){
        loginfo.Delete();
      }else{
        loginfo.Last( false );
      }
      owner.AOnlineAndMOfflinePlanMS64( relflush );
    }
    nowdate                := DateTime::ActualTime();
    loginfo                := owner.InterfaceLoginfo( relnew, ExecuteUser := executor
                                                      , Name := Translations::InterfaceDataset_AOnlineAndMOfflinePlanMS64_Name()
                                                      , InterfaceDateTime := nowdate
                                                      , Message := '装配上线计划 + æœºåŠ ä¸‹çº¿è®¡åˆ’ - MS64'
                                                      , IsShow := false
                                                      , Last := true
                                                      , ReturnSuccess := true
                                                      , ReturnMsg := 'Success'
                                                      , Success := true
                                                      );
    ms64                   := owner.AOnlineAndMOfflinePlanMS64( relnew, Werk := werk, StartDate := startdate, EndDate := enddate
                                                                , VersionFrom := macroplanfrom.ScenarioName()
                                                                , VersionTo := macroplanto.ScenarioName(), IsActive := versionflag );
    loginfo.AOnlineAndMOfflinePlanMS64( relinsert, ms64 );
    traverse( products, Elements, product, product.IsLeaf() ){
      ms64.MS64Data( relnew, Product := product.ID() );
    }
    loginfo.TotalRow( ms64.MS64Data( relsize ) );
  *]
}

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl

@@ -5,26 +5,58 @@
  String werk,
  const MacroPlan macroplan,
  Date startdate,
  Date enddate
  Date enddate,
  String executor
)
{
  TextBody:
  [*
    // ç”„兰鸽 Aug-23-2024 (created)
    owner.AOnlineAndMOfflinePlanPIR( relflush );
    cdlast                 := maxobject( owner, AOnlineAndMOfflinePlanPIR, cd, cd.StartDate(), cd.EndDate(), cd.Werk() );
    if( not isnull( cdlast ) ){
      loginfo              := cdlast.InterfaceLoginfo();
      if( not loginfo.IsShow() ){
        loginfo.Delete();
      }else{
        loginfo.Last( false );
      }
      owner.AOnlineAndMOfflinePlanPIR( relflush );
    }
    nowdate                := DateTime::ActualTime();
    loginfo                := owner.InterfaceLoginfo( relnew, ExecuteUser := executor
                                                      , Name := Translations::InterfaceDataset_AOnlineAndMOfflinePlanPIR_Name()
                                                      , InterfaceDateTime := nowdate
                                                      , Message := '装配上线计划 + æœºåŠ ä¸‹çº¿è®¡åˆ’ - PIR'
                                                      , IsShow := false
                                                      , Last := true
                                                      , ReturnSuccess := true
                                                      , ReturnMsg := 'Success'
                                                      , Success := true
                                                      );
    pir                    := owner.AOnlineAndMOfflinePlanPIR( relnew, Werk := werk, Version := macroplan.ScenarioName(), StartDate := startdate, EndDate := enddate );
    totalrows              := 0;
    loginfo.AOnlineAndMOfflinePlanPIR( relinsert, pir );
    traverse( macroplan, AssemblyOnlinePlanColumn, column ){
      traverse( column, AssemblyOnlinePlanCell, cell, cell.Value() <> '' and cell.AssemblyOnlinePlanRow().RowNr() = '1' ){
        quantityrow        := cell.AssemblyOnlinePlanRow();
    
        pir.PIRData( relnew, Product           := quantityrow.ProductID()
                                           , PlanningDate            := column.ColumnDate()
                                           , PlanningQty             := [Number]cell.Value());
                     , PlanningDate            := column.ColumnDate()
                     , PlanningQty             := [Number]cell.Value());
      }
    }
    totalrows              := totalrows + pir.PIRData( relsize );
    
    //traverse( macroplan, OfflinePlanTable
    traverse( macroplan, OfflinePlanTable, table ){
      traverse( table, OfflinePlanColumn, column ){
        traverse( column, OfflinePlanCell, cell, cell.Value() <> '' 
                  and ( cell.OfflinePlanRow().ProductionLine() <> 'DL_MOMO' or cell.OfflinePlanRow().ProductionLine() <> 'CC_MOMO' ) ){
          row              := cell.OfflinePlanRow();
          
          pir.PIRData( relnew, Product         := row.ProductID()
                     , PlanningDate            := column.ColumnDate()
                     , PlanningQty             := [Number]cell.Value());
        }
      }
    }
    loginfo.TotalRow( pir.PIRData( relsize ) );
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_ApplicationMacroPlanner/Component_ContextMenuInterface.def

@@ -64,9 +64,43 @@
      BaseType: 'WebMenu'
      Properties:
      [
        Description: 'Customer demand(PPA + IDS)'
        Image: 'FLAG_AMBER'
        Taborder: 5
        Title: 'Customer demand(PPA + IDS)'
        Title: '客户需求（PPA+IDS）-PPPS'
      ]
    }
    Component MenuIAssemblyOnlinePlanPPPS
    {
      #keys: '[415136.0.1044250211]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'DELIVERY_AMBER'
        Taborder: 6
        Title: '装配上线计划-PPPS'
      ]
    }
    Component MenuIAOnlineAndMOfflinePlanPIR
    {
      #keys: '[415136.0.1044250378]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'DELIVERY_BLUE'
        Taborder: 7
        Title: '装配上线计划+机加下线计划-PIR'
      ]
    }
    Component MenuAOnlineAndMOfflinePlanMS64
    {
      #keys: '[415136.0.1044210780]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'DELIVERY_CYAN'
        Taborder: 8
        Title: '装配上线计划+机加下线计划-MS64'
      ]
    }
  ]

 _Main/UI/MacroPlannerWebApp/Component_ApplicationMacroPlanner/Response_MacroPlanner_ContextMenuInterface_MenuAOnlineAndMOfflinePlanMS64_On.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,21 @@
Quintiq file version 2.0
#parent: ContextMenuInterface/MenuAOnlineAndMOfflinePlanMS64
Response OnClick () id:Response_MacroPlanner_ContextMenuInterface_MenuAOnlineAndMOfflinePlanMS64_OnClick
{
  #keys: '[415136.0.1044250720]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebMenu_OnClick'
  Precondition:
  [*
    return not isnull( MacroPlan ) and not isnull( InterfaceDataset );
  *]
  QuillAction
  {
    Body:
    [*
      dlg := construct( DialogZEDPPSMS64 );
      ApplicationMacroPlanner.ShowFormModal( dlg );
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_ApplicationMacroPlanner/Response_MacroPlanner_ContextMenuInterface_MenuIAOnlineAndMOfflinePlanPIR_On.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,23 @@
Quintiq file version 2.0
#parent: ContextMenuInterface/MenuIAOnlineAndMOfflinePlanPIR
Response OnClick () id:Response_MacroPlanner_ContextMenuInterface_MenuIAOnlineAndMOfflinePlanPIR_OnClick
{
  #keys: '[415136.0.1044210948]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebMenu_OnClick'
  Precondition:
  [*
    return not isnull( MacroPlan ) and not isnull( InterfaceDataset );
  *]
  QuillAction
  {
    Body:
    [*
      dlg := construct( DialogZEDPPSPIR );
      //dlg.Title( Translations::InterfaceDataset_AssemblyOnlinePlanPPPSPush_Name() );
      ApplicationMacroPlanner.ShowFormModal( dlg );
      //dlg.New( Translations::InterfaceDataset_AssemblyOnlinePlanPPPSPush_Name() );
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_ApplicationMacroPlanner/Response_MacroPlanner_ContextMenuInterface_MenuIAssemblyOnlinePlanPPPS_OnCli.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,22 @@
Quintiq file version 2.0
#parent: ContextMenuInterface/MenuIAssemblyOnlinePlanPPPS
Response OnClick () id:Response_MacroPlanner_ContextMenuInterface_MenuIAssemblyOnlinePlanPPPS_OnClick
{
  #keys: '[415136.0.1044210507]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebMenu_OnClick'
  Precondition:
  [*
    return not isnull( MacroPlan ) and not isnull( InterfaceDataset );
  *]
  QuillAction
  {
    Body:
    [*
      dlg := construct( DialogCustomerDemandPPAIDS );
      dlg.Title( Translations::InterfaceDataset_AssemblyOnlinePlanPPPSPush_Name() );
      dlg.New( Translations::InterfaceDataset_AssemblyOnlinePlanPPPSPush_Name() );
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_DialogCustomerDemandPPAIDS/Method_OnOK.def

@@ -8,9 +8,15 @@
    // On ok
    Form.ApplyChanges();
    
    if( efInterfacename.Text() = Translations::InterfaceDataset_CustomerDemandPPAIDS_Name() ){
      CustomerDemandPPAIDS::GenerateData( MacroPlan, InterfaceDataset, QuintiqUser::CurrentUser().DisplayName(), ifexpr( rbgVersionFlag.BoundValue() = "true", true, false ) );
    currentuser  := QuintiqUser::CurrentUser().DisplayName();
    isactive     := ifexpr( rbgVersionFlag.BoundValue() = "true", true, false );
    if( efInterfacename.Text() = Translations::InterfaceDataset_CustomerDemandPPAIDS_Name() ){//客户需求
      CustomerDemandPPAIDS::GenerateData( MacroPlan, InterfaceDataset, currentuser, isactive );
    }
    if( efInterfacename.Text() = Translations::InterfaceDataset_AssemblyOnlinePlanPPPSPush_Name()){//装配上线
      AssemblyOnlinePlanPPPSPush::GenerateData( MacroPlan, InterfaceDataset, currentuser, isactive );
    }
    
    
    Form.Close();
  *]

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_abpRight.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,10 @@
Quintiq file version 2.0
Component abpRight
{
  #keys: '[415136.0.1044211333]'
  BaseType: 'listActionBarPage'
  Properties:
  [
    Taborder: 1
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_cmRight.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,10 @@
Quintiq file version 2.0
Component cmRight
{
  #keys: '[415136.0.1044211335]'
  BaseType: 'listContextMenu'
  Properties:
  [
    Taborder: 0
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_lstRight.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,57 @@
Quintiq file version 2.0
Component lstRight
{
  #keys: '[415136.0.1044211331]'
  BaseType: 'WebList'
  Children:
  [
    Component deRight
    {
      #keys: '[415136.0.1044211332]'
      BaseType: 'WebDataExtractor'
      Properties:
      [
        DataType: 'external[MacroPlan]'
        Source: 'MacroPlan'
        Taborder: 0
        Transformation: 'Product_MP'
      ]
    }
    #child: abpRight
    Component dslRight
    {
      #keys: '[415136.0.1044211334]'
      BaseType: 'WebDataSetLevel'
      Children:
      [
        #child: cmRight
        Component dslRightChild
        {
          #keys: '[415136.0.1044211336]'
          BaseType: 'WebDataSetLevel'
          Properties:
          [
            Columns: '[{"attribute":{"classtype":"WebApiDefinitionAttributeDataMember","columnid":"ID","title":"ID","subtotals":"","tooltip":"","width":-1,"display":"shown","attribute":"ID"}}]'
            ContextMenu: 'cmRight'
            RelationFromParent: 'Child'
            RelationRepeating: 'Child'
            Taborder: 1
          ]
        }
      ]
      Properties:
      [
        Columns: '[{"attribute":{"classtype":"WebApiDefinitionAttributeDataMember","columnid":"ID","title":"ID","subtotals":"","tooltip":"","width":-1,"display":"shown","attribute":"ID"}}]'
        ContextMenu: 'cmRight'
        SortCriteria: 'ID'
        Taborder: 2
      ]
    }
  ]
  Properties:
  [
    CheckboxBehavior: 'include children'
    SelectionCheckboxes: true
    Taborder: 1
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_pnlActions.def

@@ -5,16 +5,6 @@
  BaseType: 'WebPanel'
  Children:
  [
    Component btnApply
    {
      #keys: '[415136.0.1033612184]'
      BaseType: 'WebButton'
      Properties:
      [
        Label: 'Apply'
        Taborder: 0
      ]
    }
    Component btnOk
    {
      #keys: '[415136.0.1033612186]'
@@ -22,7 +12,7 @@
      Properties:
      [
        Label: 'OK'
        Taborder: 1
        Taborder: 0
      ]
    }
    Component btnCancel
@@ -32,7 +22,7 @@
      Properties:
      [
        Label: 'Cancel'
        Taborder: 2
        Taborder: 1
      ]
    }
  ]

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_pnlContent.def

@@ -5,95 +5,7 @@
  BaseType: 'WebPanel'
  Children:
  [
    Component efFactory id:efFactory_891
    {
      #keys: '[415136.0.1033612218]'
      BaseType: 'WebEditField'
      Properties:
      [
        Label: '工厂代码'
        Taborder: 0
      ]
    }
    Component dsStartDate id:dsStartDate_57
    {
      #keys: '[415136.0.1033612231]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '开始日期'
        Taborder: 1
      ]
    }
    Component dsEndDate id:dsEndDate_963
    {
      #keys: '[415136.0.1033612244]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '结束日期'
        Taborder: 2
      ]
    }
    Component efOriginMacroPlan
    {
      #keys: '[415136.0.1033612274]'
      BaseType: 'WebEditField'
      Properties:
      [
        Label: '从版本'
        Taborder: 3
      ]
    }
    Component efDestinationMacroPlan
    {
      #keys: '[415136.0.1033612302]'
      BaseType: 'WebEditField'
      Properties:
      [
        Label: '到版本'
        Taborder: 4
      ]
    }
    Component cbActiveVersion
    {
      #keys: '[415136.0.1033612322]'
      BaseType: 'WebCheckbox'
      Properties:
      [
        Checked: true
        Label: '是否激活版本'
        Taborder: 5
      ]
    }
    Component ddlProduct
    {
      #keys: '[415136.0.1034848130]'
      BaseType: 'WebDropDownList'
      Databinding: 'Product_MP'
      Children:
      [
        Component deContent
        {
          #keys: '[415136.0.1034848132]'
          BaseType: 'WebDataExtractor'
          Properties:
          [
            DataType: 'MacroPlan'
            FixedFilter: 'object.IsLeaf()'
            Source: 'MacroPlan'
            Taborder: 0
            Transformation: 'Product_MP'
          ]
        }
      ]
      Properties:
      [
        DisplayField: 'Name'
        Label: '物料号'
        Taborder: 6
      ]
    }
    #child: pnlDialog
  ]
  Properties:
  [

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_pnlDialog.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,16 @@
Quintiq file version 2.0
Component pnlDialog
{
  #keys: '[415136.0.1044211250]'
  BaseType: 'WebPanel'
  Children:
  [
    #child: pnlLeft_88
    #child: pnlRight
  ]
  Properties:
  [
    Orientation: 'horizontal'
    Taborder: 0
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_pnlLeft#88.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,108 @@
Quintiq file version 2.0
Component pnlLeft id:pnlLeft_88
{
  #keys: '[415136.0.1044211286]'
  BaseType: 'WebPanel'
  Children:
  [
    Component efFactory
    {
      #keys: '[415136.0.1044211287]'
      BaseType: 'WebEditField'
      Properties:
      [
        Label: '工厂代码'
        Taborder: 0
      ]
    }
    Component dsStartDate
    {
      #keys: '[415136.0.1044211288]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '开始日期'
        Taborder: 1
      ]
    }
    Component dsEndDate
    {
      #keys: '[415136.0.1044211289]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '结束日期'
        Taborder: 2
      ]
    }
    Component cbActiveVersion
    {
      #keys: '[415136.0.1044211292]'
      BaseType: 'WebCheckbox'
      Properties:
      [
        Checked: true
        Label: '是否激活版本'
        Taborder: 5
      ]
    }
    Component ddlOriginMacroPlan
    {
      #keys: '[415136.0.1043064647]'
      BaseType: 'WebDropDownList'
      Databinding: 'ScenarioMP'
      Children:
      [
        Component deMacroPlan id:deMacroPlan_640
        {
          #keys: '[415136.0.1043064648]'
          BaseType: 'WebDataExtractor'
          Properties:
          [
            DataType: 'ScenarioManager'
            Source: 'ScenarioManager'
            Taborder: 0
            Transformation: 'ScenarioMP'
          ]
        }
      ]
      Properties:
      [
        DisplayField: 'Name'
        Label: '从版本'
        Taborder: 3
      ]
    }
    Component ddlDestinationMacroPlan
    {
      #keys: '[415136.0.1043064790]'
      BaseType: 'WebDropDownList'
      Databinding: 'ScenarioMP'
      Children:
      [
        Component deMacroPlan950
        {
          #keys: '[415136.0.1043064791]'
          BaseType: 'WebDataExtractor'
          Properties:
          [
            DataType: 'ScenarioManager'
            Source: 'ScenarioManager'
            Taborder: 0
            Transformation: 'ScenarioMP'
          ]
        }
      ]
      Properties:
      [
        DisplayField: 'Name'
        Label: '到版本'
        Taborder: 4
      ]
    }
  ]
  Properties:
  [
    Taborder: 0
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Component_pnlRight.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,25 @@
Quintiq file version 2.0
Component pnlRight
{
  #keys: '[415136.0.1044211330]'
  BaseType: 'WebPanel'
  Children:
  [
    Component dhProducts
    {
      #keys: '[415136.0.1044211337]'
      BaseType: 'WebDataHolder'
      Databinding: 'structured[Product_MP]*'
      Properties:
      [
        Taborder: 0
      ]
    }
    #child: lstRight
  ]
  Properties:
  [
    Taborder: 1
    Title: '产品'
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,24 @@
Quintiq file version 2.0
#parent: #root
Method OnOk () id:Method_DialogZEDPPSMS64_OnOk
{
  #keys: '[415136.0.1043064582]'
  Body:
  [*
    Form.ApplyChanges();
    componentmds    := ApplicationScope.ComponentMDS();
    mdsinstanceF    := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlOriginMacroPlan.Data().DatasetMDSID() );
    handleF         := mdsinstanceF.GetMDSHandle()
    macroplanF      := handleF.AsMacroPlan();
    
    mdsinstanceT    := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlDestinationMacroPlan.Data().DatasetMDSID() );
    handleT         := mdsinstanceT.GetMDSHandle()
    macroplanT      := handleT.AsMacroPlan();
    
    currentuser     := QuintiqUser::CurrentUser().DisplayName();
    
    AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, efFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), macroplanF, macroplanT, cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
    
    Form.Close();
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Response_lstRight_OnCheckedChanged#648.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,19 @@
Quintiq file version 2.0
#parent: lstRight
Response OnCheckedChanged (
  structured[Product_MP] checkeditems
) id:Response_lstRight_OnCheckedChanged_648
{
  #keys: '[415136.0.1044211326]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebList_OnCheckedChanged'
  QuillAction
  {
    Body:
    [*
      products := checkeditems.Copy();
      dhProducts.Data( &products );
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Response_lstRight_OnCheckedChanged.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,16 @@
Quintiq file version 2.0
#parent: lstRight
Response OnCheckedChanged () id:Response_lstRight_OnCheckedChanged
{
  #keys: '[415136.0.1044211327]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebList_OnCheckedChanged'
  QuillAction
  {
    Body:
    [*
      dhProducts.Data().Flush();
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Response_pnlActions_btnApply_OnClick.def

ÎļþÒÑɾ³ý

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Response_pnlActions_btnOk_OnClick.def

@@ -4,13 +4,12 @@
{
  #keys: '[415136.0.1033612191]'
  DefinitionID: 'Responsedef_WebButton_OnClick'
  GroupServerCalls: true
  QuillAction
  {
    Body:
    [*
      Form.ApplyChanges();
      Form.Close();
      Form.OnOk();
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Component_pnlContent.def

@@ -5,46 +5,7 @@
  BaseType: 'WebPanel'
  Children:
  [
    Component efFactory
    {
      #keys: '[415136.0.1033611885]'
      BaseType: 'WebEditField'
      Properties:
      [
        Label: '工厂代码'
        Taborder: 0
      ]
    }
    Component efMacroPlan
    {
      #keys: '[415136.0.1033611906]'
      BaseType: 'WebEditField'
      Properties:
      [
        Label: '版本'
        Taborder: 1
      ]
    }
    Component dsStartDate
    {
      #keys: '[415136.0.1033611945]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '计划开始时间'
        Taborder: 2
      ]
    }
    Component dsEndDate
    {
      #keys: '[415136.0.1033611978]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '计划结束时间'
        Taborder: 3
      ]
    }
    #child: pnlLeft
  ]
  Properties:
  [

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Component_pnlLeft.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,70 @@
Quintiq file version 2.0
Component pnlLeft
{
  #keys: '[415136.0.1043000500]'
  BaseType: 'WebPanel'
  Children:
  [
    Component efFactory id:efFactory_672
    {
      #keys: '[415136.0.1043000546]'
      BaseType: 'WebEditField'
      Properties:
      [
        Label: '工厂代码'
        Taborder: 0
      ]
    }
    Component dsStartDate id:dsStartDate_60
    {
      #keys: '[415136.0.1043000586]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '计划开始时间'
        Taborder: 2
      ]
    }
    Component dsEndDate id:dsEndDate_236
    {
      #keys: '[415136.0.1043000606]'
      BaseType: 'WebDateSelector'
      Properties:
      [
        Label: '计划结束时间'
        Taborder: 3
      ]
    }
    Component ddlMacroPlan
    {
      #keys: '[415136.0.1043063334]'
      BaseType: 'WebDropDownList'
      Databinding: 'ScenarioMP'
      Children:
      [
        Component deMacroPlan
        {
          #keys: '[415136.0.1043063336]'
          BaseType: 'WebDataExtractor'
          Properties:
          [
            DataType: 'ScenarioManager'
            Source: 'ScenarioManager'
            Taborder: 0
            Transformation: 'ScenarioMP'
          ]
        }
      ]
      Properties:
      [
        DisplayField: 'Name'
        Label: '版本'
        Taborder: 1
      ]
    }
  ]
  Properties:
  [
    Taborder: 0
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,17 @@
Quintiq file version 2.0
#parent: #root
Method OnOk () id:Method_DialogZEDPPSPIR_OnOk
{
  #keys: '[415136.0.1044120442]'
  Body:
  [*
    Form.ApplyChanges();
    componentmds    := ApplicationScope.ComponentMDS();
    mdsinstance     := select( componentmds, ComponentMDSKinds.ComponentMDSInstances, m, m.MDSID().MDSKey() = ddlMacroPlan.Data().DatasetMDSID() );
    handle          := mdsinstance.GetMDSHandle()
    macroplan       := handle.AsMacroPlan();
    AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, efFactory.Text(), macroplan, dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() );
    
    Form.Close();
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Response_pnlActions_btnOk_OnClick.def

@@ -4,13 +4,12 @@
{
  #keys: '[415136.0.1033611826]'
  DefinitionID: 'Responsedef_WebButton_OnClick'
  GroupServerCalls: true
  QuillAction
  {
    Body:
    [*
      Form.ApplyChanges();
      Form.Close();
      Form.OnOk()
    *]
    GroupServerCalls: false
  }
}