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

rislai

2024-06-14 ccd7dc7d863341c202220c6c26bbef368d969446

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

 _Main/BL/Type_Routing/StaticMethod_Test.qbl

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,29 @@
Quintiq file version 2.0
#parent: #root
StaticMethod Test (
  MacroPlan macroplan
)
{
  TextBody:
  [*
    // ç”„兰鸽 Jun-13-2024 (created)
    traverse( macroplan, Unit, unit, unit.HasCapacityTypeQuantity() and unit.Operation( relsize ) < 2 ){
      info( '----------------------', unit.ID(), unit.MinCapacity(), unit.MaxCapacity(), unit.Operation( relsize ), unit.UnitPeriod( relsize ) );
      traverse( unit, UnitPeriod.astype( UnitPeriodQuantity ), upq, upq.Period_MP().TimeUnit() = Translations::MP_GlobalParameters_Day() and upq.Period_MP().Start().Year() = 2020 and upq.Period_MP().Start().Month() = 4 and upq.Period_MP().Start().Day() = 1 ){
        info( upq.MaxCapacityPerTimeUnit(), upq.MinCapacityPerTimeUnit(), upq.TotalAvailableCapacity(),upq.HasUnitCapacity(), upq.End() );
        if( upq.HasUnitCapacity() ){
          uc := upq.UnitCapacity();
          info( uc.MaxCapacity(), uc.MinCapacity(), uc.Start(), uc.TimeUnit() );
        }
      }
    //  traverse( unit, Operation, operation ){
    ////    info( '----------------------', operation.OperationBOM( relsize ), operation.OperationOutput( relsize ), operation.OperationInput( relsize ) );
    //    traverse( operation, OperationBOM, obom ){
    //      info( '----------------------', obom.OperationID(), '-------------', obom.ProductID(), '-------------', obom.StockingPointID() );
    //      info( '----------------------', obom.Quantity(), obom.OutputQuantity(), obom.InputQuantity() );
    //      info( '----------------------', obom.OperationLinkEdge().OperationOutput().Quantity() );
    //    }
    //  }
    }
  *]
}

 _Main/BL/Type_Routing/StaticMethod_ThermalTrialRatio.qbl

@@ -15,7 +15,22 @@
    thermaltrial := '热式';
    newroutings := construct( Routings );
    unit := selectobject( routing.MacroPlan(), Unit, unit, unit.ID() = thermaltrial and unit.HasCapacityTypeQuantity() );
    
    for( starttime := start; starttime <= end; starttime := starttime + 1 ){
      uc := selectobject( unit, UnitCapacity, uc, uc.Start().Date() = starttime );
      if( isnull( uc ) ){
        uc := UnitCapacity::Create( unit, starttime.DateTime(), 'Day', 0.0, [Real]capacity, 100.0, 1, false );
      }
      uc.MaxCapacity( [Real]capacity );
    }
    
    newrouting := routing.Copy();
    name := newrouting.Name().ReplaceAll( 'Copy', thermaltrial );
    newrouting.Name( name );
    newrouting.UpdateTypeIndex( name );
    routing.Start( start );
    routing.End( end );
    
    routingstep := newrouting.LastStep();
    //info( '------------------', routingstep.Tool(), ',', unit.ID() );
    newroutingstep := RoutingStep::Create( newrouting, thermaltrial, routingstep.Tool(), false );

 _Main/UI/MacroPlannerWebApp/Component_DialogCreateEditThermalTrialRatio/Method_OnOK.def

@@ -13,7 +13,10 @@
    data := dhDialogData.Data();
    
    newroutings := Routing::ThermalTrialRatio( data, [Number]efMaxCapacity.Text(), dsStartTime.Date(), dsEndTime.Date(), [Number]efThermalTrialRatio.Text() );
    
    info( '------------web---------------' );
    traverse( newroutings, Elements, e ){
      info( e.Key(), e.Name() );
    }
    ApplicationMacroPlanner.SelectListObjects( dhForm.Data().ListRoutings(), newroutings );
    
    this.Close();

 _Main/UI/MacroPlannerWebApp/Component_FormRoutings/Component_listContextMenuRoutings.def

@@ -46,5 +46,15 @@
        Title: '设置产品爬坡工艺路线'
      ]
    }
    Component MenuTest
    {
      #keys: '[415136.0.789811702]'
      BaseType: 'WebMenu'
      Properties:
      [
        Taborder: 13
        Title: 'Test'
      ]
    }
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormRoutings/Response_MacroPlanner_listContextMenuRoutings_MenuTest_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,16 @@
Quintiq file version 2.0
#parent: listContextMenuRoutings/MenuTest
Response OnClick () id:Response_MacroPlanner_listContextMenuRoutings_MenuTest_OnClick
{
  #keys: '[415136.0.789811732]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebMenu_OnClick'
  QuillAction
  {
    Body:
    [*
      Routing::Test( MacroPlan );
    *]
    GroupServerCalls: false
  }
}