Merge branch 'dev' of http://47.101.211.7:10101/r/VWED into dev

xiaoding721

2024-11-27 36246de5a7290b28f93e4adf81c93778e7207416

Merge branch 'dev' of http://47.101.211.7:10101/r/VWED into dev

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_GenerateData.qbl

@@ -49,6 +49,7 @@
      
    }
    loginfo.TotalRow( ms64.MS64Data( relsize ) );
    InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
    AOnlineAndMOfflinePlanMS64::Publish( owner, loginfo );
    //InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
  *]
}

 _Main/BL/Type_AOnlineAndMOfflinePlanMS64/StaticMethod_Publish.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,35 @@
Quintiq file version 2.0
#parent: #root
StaticMethod Publish (
  InterfaceDataset owner,
  InterfaceLoginfo loginfo
)
{
  TextBody:
  [*
    // ç”„兰鸽 Nov-27-2024 (created)
    jsondata           := JSON::Object();
    
    traverse( loginfo, AOnlineAndMOfflinePlanMS64, pir ){
      jsonarray        := JSON::Array();//.Add( "dto", JSON::Object().Add( "dday", date.Format( "Y-M2-D2" ) ).Add( "fac", "" ) ).Build();
      traverse( pir, MS64Data, pirdata ){
        pirjson        := JSON::Object().Add( "product", pirdata.Product() )
                                        .Add( "factory", pirdata.Werk() ).Build();/*"2024-10-01 12:00:00" )*/
        jsonarray.Add( pirjson );
      }
      jsondata.Add( 'ZPPPSCode', pir.ZPPPSCode() )
      .Add( 'BERID', '' ).Add( 'BEDAE', '' )
      .Add( 'DATEV', pir.StartDate().Format( 'YM2D2' ) )
      .Add( 'DATEB', pir.EndDate().Format( 'YM2D2' ) )
      .Add( 'VERSBF', pir.VersionFrom() )
      .Add( 'VERSBT', pir.VersionTo() )
      .Add( 'VERVS', ifexpr( pir.IsActive(), "X", "" ) )
      .Add( 'dataList', jsonarray );
    }
    
    loginfo.RequestBody( jsondata.Build().AsString() );
    info( loginfo.RequestBody() );
    data              := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
    info( '----------------', data.Size() );
  *]
}

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GenerateData.qbl

@@ -80,6 +80,6 @@
      }
    }
    loginfo.TotalRow( pir.PIRData( relsize ) );
    InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
    AOnlineAndMOfflinePlanPIR::Publish( owner, loginfo );
  *]
}

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_GetWerk.qbl

@@ -9,9 +9,9 @@
    // ç”„兰鸽 Oct-30-2024 (created)
    value      := '8201;8200';
    if( werk = FinancialProductionReport::GetDefaultCCUnit() ){
      value    := '8200';
    }else if( werk = FinancialProductionReport::GetDefaultDLUnit() ){
      value    := '8201';
    }else if( werk = FinancialProductionReport::GetDefaultDLUnit() ){
      value    := '8200';
    }
    return value;
  *]

 _Main/BL/Type_AOnlineAndMOfflinePlanPIR/StaticMethod_Publish.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,35 @@
Quintiq file version 2.0
#parent: #root
StaticMethod Publish (
  InterfaceDataset owner,
  InterfaceLoginfo loginfo
)
{
  TextBody:
  [*
    // ç”„兰鸽 Nov-27-2024 (created)
    jsondata           := JSON::Object();
    
    traverse( loginfo, AOnlineAndMOfflinePlanPIR, pir ){
      jsonarray        := JSON::Array();//.Add( "dto", JSON::Object().Add( "dday", date.Format( "Y-M2-D2" ) ).Add( "fac", "" ) ).Build();
      traverse( pir, PIRData, pirdata ){
        pirjson        := JSON::Object().Add( "product", pirdata.Product() )
                                        .Add( "planningDate", pirdata.PlanningDate().Format( 'YM2D2' ) )//"2024-10-01" )
                                        .Add( "planningQty", pirdata.PlanningQty() )
                                        .Add( "factory", pirdata.Werk() ).Build();/*"2024-10-01 12:00:00" )*/
        jsonarray.Add( pirjson );
      }
      jsondata.Add( 'ZPPPSCode', pir.ZPPPSCode() )
      .Add( 'werk', pir.Werk() )
      .Add( 'VERSB', pir.Version() )
      .Add( 'startDate', pir.StartDate().Format( 'YM2D2' ) )
      .Add( 'endDate', pir.EndDate().Format( 'YM2D2' ) )
      .Add( 'dataList', jsonarray );
    }
    
    loginfo.RequestBody( jsondata.Build().AsString() );
    info( loginfo.RequestBody() );
    data              := InterfaceLoginfo::CallInterfaceForSAPGet( owner, loginfo );
    info( '----------------', data.Size() );
  *]
}

 _Main/BL/Type_AssemblyOnlinePlanCell0/Attribute_OrderNr.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,8 @@
Quintiq file version 2.0
#parent: #root
Attribute OrderNr
{
  #keys: '3[415136.0.1339530029][415136.0.1339530028][415136.0.1339530030]'
  Description: '生产顺序（Number）'
  ValueType: Number
}

 _Main/BL/Type_AssemblyOnlinePlanPush/StaticMethod_GenerateData.qbl

@@ -33,7 +33,7 @@
        traverse( column, Cell, cell ){
          row              := cell.Row();
          if( ( iscc and row.Unit() = FinancialProductionReport::GetDefaultCCUnit() ) or ( isdl and row.Unit() = FinancialProductionReport::GetDefaultDLUnit() ) ){
            cd               :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product            := row.ProductID()
            cd               :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product            := row.Name()
                                                                             , PlanningDate            := column.StartDate()
                                                                             , PlanningQty             := [Number]cell.Quantity()
                                                                             , Sequence                := cell.Order()

 _Main/BL/Type_AssemblyOnlinePlanVersion/Method_GetRow.qbl

@@ -7,7 +7,7 @@
  TextBody:
  [*
    // ç”„兰鸽 Oct-11-2024 (created)
    row       := selectobject( this, Row, row, row.ProductID() = aoprow.ProductID() and row.ProductionLine() = aoprow.ProductionLine() and row.Type() = aoprow.Type() );
    row       := selectobject( this, Row, row, row.Name() = aoprow.ProductID() and row.ProductionLine() = aoprow.ProductionLine() and row.Type() = aoprow.Type() );
    
    if( isnull( row ) ){
      product := selectobject( aoprow.MacroPlan(), Product_MP, product, product.ID() = aoprow.ProductID() );

 _Main/BL/Type_AssemblyOnlinePlanVersion/StaticMethod_RefreshData.qbl

@@ -26,16 +26,21 @@
    }
    traverse( macroPlan, NewAssemblyOnlinePlanRow, aoprow, aoprow.Type() = '1' ){
      row                  := table.GetRow( aoprow );
      traverse( table, Column, column, exists( aopcolumns, Elements, e, e = column.StartDate() ) ){//, aopcolumns.Find( column.StartDate() ) > -1
        qty                := sum( aoprow, NewAssemblyOnlinePlanCell, aopcell, column.StartDate() <= aopcell.NewAssemblyOnlinePlanColumn().StartDate()
                                         and column.EndDate() >= aopcell.NewAssemblyOnlinePlanColumn().StartDate(), aopcell.Quantity() );
      traverse( aoprow, NewAssemblyOnlinePlanCell, aopcell ){
        column             := selectobject( table, Column, column, column.StartDate() = aopcell.NewAssemblyOnlinePlanColumn().StartDate() );
        
    //  traverse( table, Column, column, exists( aopcolumns, Elements, e, e = column.StartDate() ) ){//, aopcolumns.Find( column.StartDate() ) > -1
    //    qty                := se( aoprow, NewAssemblyOnlinePlanCell, aopcell, column.StartDate() <= aopcell.NewAssemblyOnlinePlanColumn().StartDate()
    //                                     and column.EndDate() >= aopcell.NewAssemblyOnlinePlanColumn().StartDate(), aopcell.Quantity() );
        
        cell               := selectobject( row, Cell, cell, cell.Column() = column );
        if( isnull( cell ) ){
          cell             := column.Cell( relnew, InventoryWeight := 0, ProductionSerialNumber := 0, Quantity := 0, Shift := '', Value := '' );
          row.Cell( relinsert, cell );
        }
        cell.Quantity( qty );
        cell.Order( aopcell.Order() );
        cell.OrderNr( aopcell.OrderNr() );
        cell.Quantity( aopcell.Quantity() );
      }
    }
    //productids             := selectuniquevalues( table, Row, row, row.Name() );

 _Main/BL/Type_InterfaceDataset/StaticMethod_PushPlanInventoryData.qbl

@@ -21,7 +21,7 @@
        cell := select( r, Cell, tempC, tempC.Column() = c );
        
        if ( not isnull( cell ) ) {
          idsjson := JSON::Object().Add( "product", r.ProductID() )       
          idsjson := JSON::Object().Add( "product", r.Name() )       
                                   .Add( "inventoryDate", c.StartDate().Format( 'Y-M2-D2' ) )
                                   .Add( "planningInventory", cell.PlanQuantity() )
                                   .Add( "versionName", macroPlan.ScenarioName() )

 _Main/BL/Type_InterfaceLoginfo/StaticMethod_CallInterfaceForSAPGet.qbl

@@ -10,8 +10,8 @@
  [*
    // ç”„兰鸽 Jul-22-2024 (created)
    address           := Translations::InterfaceDataset_SAP_Address(); 
    httpinterface     := HTTPInterface::Create( address,8080);
    httpinterface.PostMethod( false ); 
    httpinterface     := HTTPInterface::Create( address,80);
    httpinterface.PostMethod( true ); ; 
    httpinterface.MediaType( Translations::InterfaceDataset_ContentType() );
    try{
      if( loginfo.Name() = Translations::InterfaceDataset_AOnlineAndMOfflinePlanPIR_Name() ){//装配上线计划PIR
@@ -20,7 +20,7 @@
      if( loginfo.Name() = Translations::InterfaceDataset_AOnlineAndMOfflinePlanMS64_Name() ){//装配上线计划MS64
        httpinterface.URL( Translations::InterfaceDataset_AOnlineAndMOfflinePlanMS64_URL() );
      } 
      httpinterface.Call();
      httpinterface.Call( loginfo.RequestBody() );
      result         := httpinterface.Result();
      loginfo.Response( result );
      loginfo.Success( true );

 _Main/BL/Type_OfflinePlanArchiveVersion/Method_GetRow.qbl

@@ -7,7 +7,7 @@
  TextBody:
  [*
    // ç”„兰鸽 Oct-11-2024 (created)
    row       := selectobject( this, Row, row, row.ProductID() = noprow.ProductID() and row.ProductionLine() = noprow.ProductionLine() and row.Type() = noprow.Type() and row.StockingPointID() = noprow.StockingPointID() );
    row       := selectobject( this, Row, row, row.Name() = noprow.ProductID() and row.ProductionLine() = noprow.ProductionLine() and row.Type() = noprow.Type() and row.StockingPointID() = noprow.StockingPointID() );
    
    if( isnull( row ) ){
      product := selectobject( noprow.NewOfflinePlanTable().MacroPlan(), Product_MP, product, product.ID() = noprow.ProductID() );

 _Main/BL/Type_ShippingActualData/Method_SyncTable.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,14 @@
Quintiq file version 2.0
#parent: #root
Method SyncTable (
  InterfaceDataset owner
)
{
  TextBody:
  [*
    // ç”„兰鸽 Nov-27-2024 (created)
    column                := selectobject( owner, ShippingActualColumn, column, column.StartDate() = this.DDay() );
    cell                  := selectobject( column, ShippingActualCell, cell, cell.ShippingActualRow().Name() = this.FourCode() );
    cell.Quantity( this.Quantity() );
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Component_pnlActions.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,40 @@
Quintiq file version 2.0
Component pnlActions
{
  #keys: '[415136.0.1345221297]'
  BaseType: 'WebPanel'
  Children:
  [
    Component btnOk
    {
      #keys: '[415136.0.1345221301]'
      BaseType: 'WebButton'
      Properties:
      [
        Label: 'OK'
        Taborder: 0
      ]
    }
    Component btnCancel
    {
      #keys: '[415136.0.1345221303]'
      BaseType: 'WebButton'
      Properties:
      [
        Label: 'Cancel'
        Taborder: 1
      ]
    }
  ]
  Properties:
  [
    Alignment: 'trailing'
    Border: true
    ExcludeFromActiveComponent: true
    FixedSize: true
    Orientation: 'horizontal'
    Padding: 'true'
    Style: 'footer'
    Taborder: 2
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Component_pnlContent.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,24 @@
Quintiq file version 2.0
Component pnlContent
{
  #keys: '[415136.0.1345221295]'
  BaseType: 'WebPanel'
  Children:
  [
    Component efContent
    {
      #keys: '[415136.0.1345221341]'
      BaseType: 'WebEditField'
      Properties:
      [
        Mask: 'REAL'
        Taborder: 0
      ]
    }
  ]
  Properties:
  [
    Padding: 'true'
    Taborder: 1
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Method_Edit.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,17 @@
Quintiq file version 2.0
#parent: #root
Method Edit (
  ShippingActualData selection
) id:Method_DialogShippingActualData_Edit
{
  #keys: '[415136.0.1345221575]'
  Body:
  [*
    // Edit Product(s)
    
    data := shadow( selection );
    dhDialogData.Data( &data );
    
    ApplicationMacroPlanner.ShowFormModal( this );
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Method_OnOK.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,28 @@
Quintiq file version 2.0
#parent: #root
Method OnOK () id:Method_DialogShippingActualData_OnOK
{
  #keys: '[415136.0.1345221579]'
  Body:
  [*
    // onOK for ProductDialog
    // When the user clicks ok,
    // we either create or edit the data
    this.ApplyChanges();
    
    data := dhDialogData.Data();
    
    //if( isnull( data.WrappedInstance() ) ) // New
    //{
    //  data.Commit();
    //  dhForm.Data().ListChangeLossSetting().SelectByKey( data.WrappedInstance().Key() );
    //}
    //else
    //{
      data.Commit();
    data.WrappedInstance().SyncTable( InterfaceDataset );
    //}
    
    this.Close();
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Response_pnlActions_btnCancel_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,15 @@
Quintiq file version 2.0
#parent: pnlActions/btnCancel
Response OnClick () id:Response_pnlActions_btnCancel_OnClick
{
  #keys: '[415136.0.1345221307]'
  DefinitionID: 'Responsedef_WebButton_OnClick'
  GroupServerCalls: true
  QuillAction
  {
    Body:
    [*
      Form.Close();
    *]
  }
}

 _Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/Response_pnlActions_btnOk_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,16 @@
Quintiq file version 2.0
#parent: pnlActions/btnOk
Response OnClick () id:Response_pnlActions_btnOk_OnClick
{
  #keys: '[415136.0.1345221306]'
  DefinitionID: 'Responsedef_WebButton_OnClick'
  GroupServerCalls: true
  QuillAction
  {
    Body:
    [*
      Form.ApplyChanges();
      Form.Close();
    *]
  }
}

 _Main/UI/MacroPlannerWebApp/Component_DialogShippingActualData/_ROOT_Component_DialogShippingActualData.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,33 @@
Quintiq file version 2.0
#root
#parent: MacroPlannerWebApp
OrphanComponent DialogShippingActualData
{
  #keys: '[415136.0.1345221293]'
  BaseType: 'WebForm'
  Children:
  [
    #child: pnlContent
    #child: pnlActions
    Component dhDialogData
    {
      #keys: '[415136.0.1345221434]'
      BaseType: 'WebDataHolder'
      Databinding: 'shadow[ShippingActualData]*'
      Properties:
      [
        Taborder: 0
      ]
    }
  ]
  Properties:
  [
    Alignment: 'trailing'
    EnterButton: 'btnOk'
    EscapeButton: 'btnCancel'
    ExcludeFromActiveComponent: true
    Image: 'SHIPS_WHEEL'
    Padding: 'false'
    Title: 'Shipping actual data'
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSMS64/Method_OnOk.def

@@ -15,10 +15,12 @@
    //handleT         := mdsinstanceT.GetMDSHandle()
    //macroplanT      := handleT.AsMacroPlan();
    
    if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
    currentuser     := QuintiqUser::CurrentUser().DisplayName();
    
    AOnlineAndMOfflinePlanMS64::GenerateData( InterfaceDataset, ddslFactory.Text(), dsStartDate.Date(), dsEndDate.Date(), efVersionFrom.Text(), efVersionTo.Text(), cbActiveVersion.Checked(), dhProducts.Data(), currentuser );
    WebMessageBox::Success( "推送成功！" );
    }
    Form.Close();
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_DialogZEDPPSPIR/Method_OnOk.def

@@ -6,8 +6,10 @@
  Body:
  [*
    Form.ApplyChanges();
    if( WebMessageBox::Question( this, '是否确认推送', 'OK|Cancel' ) = 0 ){
    AOnlineAndMOfflinePlanPIR::GenerateData( InterfaceDataset, ddslFactory.Text(), efVersion.Text(), dsStartDate.Date(), dsEndDate.Date(), QuintiqUser::CurrentUser().DisplayName() );
    WebMessageBox::Success( "推送成功！" );
    }
    Form.Close();
  *]
}

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_MatrixEditorTable#384.def

@@ -26,7 +26,7 @@
      ]
      Properties:
      [
        Attributes: 'Quantity'
        Attributes: 'Order;Quantity'
        Column: 'Column'
        Row: 'Row'
        Taborder: 0
@@ -94,6 +94,7 @@
  ]
  Properties:
  [
    AllowMultipleAttributes: true
    Columns: 'MatrixEditorColumnsTable'
    ContextMenu: 'matrixeditorContextMenuTable'
    Rows: 'MatrixEditorRowsTable'

 _Main/UI/MacroPlannerWebApp/Component_FormInterfaceShippingData/Component_ListInterfaceShippingData.def

@@ -39,4 +39,22 @@
  [
    Taborder: 0
  ]
  ResponseDefinitions:
  [
    DelegatedResponseDefinition OnClick id:Responsedef_ListInterfaceShippingData_WebMenu_OnClick
    {
      #keys: '[415136.0.1345221879]'
      Initiator: 'WebMenu'
      IsInherited: false
      ResponseType: 'OnClick'
      Arguments:
      [
        ResponseDefinitionArgument selection
        {
          #keys: '[2035.0.6361849]'
          Binding: 'this.Selection()'
        }
      ]
    }
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormInterfaceShippingData/Component_listContextMenuInterfaceShippingData.def

@@ -3,6 +3,20 @@
{
  #keys: '[415136.0.1330021161]'
  BaseType: 'listContextMenu'
  Children:
  [
    Component MenuInterfaceShippingData
    {
      #keys: '[415136.0.1345221911]'
      BaseType: 'WebMenu'
      Properties:
      [
        Image: 'PENCIL'
        Taborder: 3
        Title: 'Edit Quantity'
      ]
    }
  ]
  Properties:
  [
    Taborder: 0

 _Main/UI/MacroPlannerWebApp/Component_FormInterfaceShippingData/Response_ListInterfaceShippingData_MenuInterfaceShippingData_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,20 @@
Quintiq file version 2.0
#parent: ListInterfaceShippingData
Response OnClick (
  ShippingActualData selection
) id:Response_ListInterfaceShippingData_MenuInterfaceShippingData_OnClick
{
  #keys: '[415136.0.1345221962]'
  CanBindMultiple: false
  DefinitionID => /ListInterfaceShippingData/Responsedef_ListInterfaceShippingData_WebMenu_OnClick
  Initiator: 'MenuInterfaceShippingData'
  QuillAction
  {
    Body:
    [*
      dlg := construct( DialogShippingActualData );
      dlg.Edit( selection );
    *]
    GroupServerCalls: false
  }
}