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

xiaoding721

2024-11-20 7fccbbd4d9982aaa349b36cf8031cddac610e57f

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

 _Main/BL/Type_AssemblyOnlinePlanVersion/Method_Generate.qbl

@@ -1,7 +1,9 @@
Quintiq file version 2.0
#parent: #root
Method Generate (
  AssemblyOnlinePlanVersionSearch search
  AssemblyOnlinePlanVersionSearch search,
  Strings products,
  Strings units
)
{
  TextBody:
@@ -12,9 +14,7 @@
    //清空之前存储的显示数据
    aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    this.Clear( aopcolumns );
    traverse( table, Row, row, ( search.Unit() = FinancialProductionReport::GetDefaultAllUnit() or row.Unit() = search.Unit() ) 
              and ( search.Product() = FinancialProductionReport::GetDefaultAllUnit() or search.Product() = row.Name() )
              and ( search.ProductionLine() = FinancialProductionReport::GetDefaultAllUnit() or search.ProductionLine() = row.ProductionLine() ) ){
    traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.ProductionLine() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 )  ){
      
      showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
      if( isnull( showrow ) ){

 _Main/BL/Type_AssemblyOnlinePlanVersion/StaticMethod_InitiateSearch.qbl

@@ -22,7 +22,9 @@
    }
    table                     := selectobject( owner, AssemblyOnlinePlanVersion, table, table.IsShow() );
    if( not isnull( table ) ){
      table.Generate( search);
      productids             := selectuniquevalues( table, Row, row, row.Name() );
      productlines           := selectuniquevalues( table, Row, row, row.Unit() );
      table.Generate( search, productids, productlines );
    }
    return table;
  *]

 _Main/BL/Type_AssemblyOnlinePlanVersion/StaticMethod_RefreshData.qbl

@@ -34,6 +34,8 @@
        cell.Quantity( qty );
      }
    }
    showtable.Generate( search );
    productids             := selectuniquevalues( table, Row, row, row.Name() );
    productlines           := selectuniquevalues( table, Row, row, row.ProductionLine() );
    showtable.Generate( search, productids, productlines );
  *]
}

 _Main/BL/Type_CustomerDemandIDS/Method_Generate.qbl

@@ -1,7 +1,8 @@
Quintiq file version 2.0
#parent: #root
Method Generate (
  CustomerDemandIDSSearch search
  CustomerDemandIDSSearch search,
  Strings products
)
{
  TextBody:
@@ -13,7 +14,7 @@
    idscolumns              := selectuniquevalues(  table, Column, idscolumn, idscolumn.TimeUnit() = search.TimeUnit() and idscolumn.StartDate() >= search.StartDate() and idscolumn.StartDate() <= search.EndDate(), idscolumn.StartDate() );
    this.Clear( idscolumns );
    traverse( table, Row, row, ( search.Unit() = FinancialProductionReport::GetDefaultAllUnit() or row.Factory() = search.Unit() ) 
              and ( search.Product() = FinancialProductionReport::GetDefaultAllUnit() or search.Product() = row.Name() ) ){
              and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
      
      showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Factory() = search.Unit() );
      if( isnull( showrow ) ){

 _Main/BL/Type_CustomerDemandIDS/StaticMethod_GenerateData.qbl

@@ -77,6 +77,7 @@
    
    source.Delete();
    info( '-------------------------End---------------------');
    showtable.Generate( search );
    productids             := selectuniquevalues( idstable, Row, row, row.Name() );
    showtable.Generate( search, productids );
  *]
}

 _Main/BL/Type_CustomerDemandIDS/StaticMethod_InitiateSearch.qbl

@@ -21,7 +21,8 @@
    }
    table                     := selectobject( owner, CustomerDemandIDS, table, table.IsShow() );
    if( not isnull( table ) ){
      table.Generate( search);
      productids             := selectuniquevalues( table, Row, row, row.Name() );
      table.Generate( search, productids );
    }
    return table;
  *]

 _Main/BL/Type_InventoryPlanArchiveVersion/Method_Generate.qbl

@@ -1,7 +1,9 @@
Quintiq file version 2.0
#parent: #root
Method Generate (
  InventoryPlanArchiveVersionSearch search
  InventoryPlanArchiveVersionSearch search,
  Strings products,
  Strings units
)
{
  TextBody:
@@ -12,8 +14,7 @@
    //清空之前存储的显示数据
    aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    this.Clear( aopcolumns );
    traverse( table, Row, row, ( search.Unit() = FinancialProductionReport::GetDefaultAllUnit() or row.Unit() = search.Unit() ) 
              and ( search.Product() = FinancialProductionReport::GetDefaultAllUnit() or search.Product() = row.Name() )){
    traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.Unit() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
      
      showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
      if( isnull( showrow ) ){

 _Main/BL/Type_InventoryPlanArchiveVersion/Method_GenerateColumn.qbl

@@ -9,7 +9,7 @@
  TextBody:
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    timeunit              := guard( this.InterfaceDataset().AssemblyOnlinePlanVersionSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    timeunit              := guard( this.InterfaceDataset().InventoryPlanArchiveVersionSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    weekstart             := periods.Element( 0 );
    
    monthstart            := periods.Element( 0 );

 _Main/BL/Type_InventoryPlanArchiveVersion/StaticMethod_GenerateData.qbl

@@ -74,6 +74,8 @@
    }
    
    info( '-------------------------End---------------------');
    showtable.Generate( search );
    productids             := selectuniquevalues( table, Row, row, row.Name() );
    productlines           := selectuniquevalues( table, Row, row, row.Unit() );
    showtable.Generate( search, productids, productlines );
  *]
}

 _Main/BL/Type_InventoryPlanArchiveVersion/StaticMethod_InitiateSearch.qbl

@@ -21,7 +21,9 @@
    }
    table                     := selectobject( owner, InventoryPlanArchiveVersion, table, table.IsShow() );
    if( not isnull( table ) ){
      table.Generate( search);
      productids             := selectuniquevalues( table, Row, row, row.Name() );
      productlines           := selectuniquevalues( table, Row, row, row.Unit() );
      table.Generate( search, productids, productlines );
    }
    return table;
  *]

 _Main/BL/Type_NewOfflinePlanCell/StaticMethod_SynchronizeToNewSupply.qbl

@@ -9,28 +9,25 @@
  TextBody:
  [*
    traverse ( selectedRows, Elements.NewOfflinePlanCell, cell, 
               cell.NewOfflinePlanRow().Type() = "1" and cell.Quantity() > 0.0 
               cell.NewOfflinePlanRow().Type() = "1" and cell.Quantity() >= 0.0 
    //           and cell.NewOfflinePlanRow().ProductionLine() = "eMotor Assy (France)" and cell.NewOfflinePlanColumn().StartDate() = Date::Construct( 2020, 4, 4 )
             ) 
    {
     pto := select( macroPlan, Unit.Operation.PeriodTaskOperation, tempPTO,
                    exists( tempPTO, NewSupply, tempNS, tempNS.ProductInStockingPointInPeriodPlanningLeaf().ProductInStockingPoint_MP().ProductID() = cell.NewOfflinePlanRow().ProductID() ) and
                    tempPTO.Operation().UnitID() = cell.NewOfflinePlanRow().ProductionLine()                                                                                                 and
                    tempPTO.Start().Date()       = cell.NewOfflinePlanColumn().StartDate() );
      if ( isnull( pto ) ) {
      pto := select( macroPlan, Unit.Operation.PeriodTaskOperation, tempPTO,
                     exists( tempPTO, NewSupply, tempNS, tempNS.ProductInStockingPointInPeriodPlanningLeaf().ProductInStockingPoint_MP().ProductID() = cell.NewOfflinePlanRow().ProductID() ) and
                     tempPTO.Operation().UnitID() = cell.NewOfflinePlanRow().ProductionLine()                                                                                                 and
                     tempPTO.Start().Date()       = cell.NewOfflinePlanColumn().StartDate() );
      if ( isnull( pto ) and cell.Quantity() > 0 ) {
        o  := select( macroPlan, Unit.Operation, tempO, tempO.ID() = cell.NewOfflinePlanRow().OperationID() );
        up := select( macroPlan, Unit.UnitPeriod, tempUP, tempUP.UnitID() = cell.NewOfflinePlanRow().ProductionLine() and tempUP.StartDate() = cell.NewOfflinePlanColumn().StartDate() );
        if ( not isnull( o ) and not isnull( up ) ) {
          PeriodTaskOperation::Create( o, up, cell.Quantity(), false );
        }
      } else {
      } else if ( not isnull( pto ) ) {
        if ( [Number]cell.Quantity() <> [Number]pto.Quantity() ) {
          pto.Update( cell.Quantity(), false );
        }
      }
      
      
      
      
    }
  *]

 _Main/BL/Type_NewOfflinePlanCell/StaticMethod_UpdateOrder.qbl

@@ -18,7 +18,16 @@
    
    if ( guard( [Number]value.SubString( 1, 2 ) <= 0, true ) ) {
      error( "不符合格式" );
    };
    }
    
    if ( exists( nopc, NewOfflinePlanColumn.NewOfflinePlanCell, tempNOPCell, 
                 tempNOPCell                                      <> nopc                                      and
                 tempNOPCell.NewOfflinePlanRow().Type()           =  "1"                                       and
                 tempNOPCell.NewOfflinePlanRow().ProductionLine() =  nopc.NewOfflinePlanRow().ProductionLine(),
                 tempNOPCell.OrderNr() = [Number]value.SubString( 1, 2 ) ) 
        ) {
      error( "已经存在Order：", [Number]value.SubString( 1, 2 ) );
    }
    
    nopc.Order( value );
    nopc.OrderNr( [Number]value.SubString( 1, 2 ) );

 _Main/BL/Type_NewOfflinePlanCell/StaticMethod_UpdateQuantity.qbl

@@ -6,5 +6,20 @@
  String attrName
)
{
  TextBody: 'nopc.Quantity( value );'
  TextBody:
  [*
    if ( value < 0 ) {
      error( "数量不能为负" );
    }
    
    nopc.Quantity( value );
    
    // æ•°é‡ä¸º0，修改Order
    if ( value = 0 ) {
      nopc.Order( "" );
      nopc.OrderNr( 0 );
    }
    
    // å¦‚果数量不为0，修改Order
  *]
}

 _Main/BL/Type_OfflinePlanArchiveVersion/Method_Generate.qbl

@@ -14,7 +14,7 @@
    //清空之前存储的显示数据
    aopcolumns              := selectuniquevalues(  table, Column, aopcolumn, aopcolumn.TimeUnit() = search.TimeUnit() and aopcolumn.StartDate() >= search.StartDate() and aopcolumn.StartDate() <= search.EndDate(), aopcolumn.StartDate() );
    this.Clear( aopcolumns );
    traverse( table, Row, row, units.Find( row.ProductionLine() ) > -1 and products.Find( row.Name() ) > -1 ){
    traverse( table, Row, row, ( units.Size() = 0 or units.Find( row.ProductionLine() ) > -1 ) and ( products.Size() = 0 or products.Find( row.Name() ) > -1 ) ){
      
      showrow               := selectobject( this, Row, showrow, showrow.Name() = row.Name() and showrow.Unit() = search.Unit() );
      if( isnull( showrow ) ){

 _Main/BL/Type_OfflinePlanArchiveVersion/Method_GenerateColumn.qbl

@@ -9,7 +9,7 @@
  TextBody:
  [*
    // ç”„兰鸽 Jun-25-2024 (created)
    timeunit              := guard( this.InterfaceDataset().AssemblyOnlinePlanVersionSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    timeunit              := guard( this.InterfaceDataset().OfflinePlanArchiveSearch().TimeUnit(), Translations::MP_GlobalParameters_Day() ) ;
    weekstart             := periods.Element( 0 );
    
    monthstart            := periods.Element( 0 );

 _Main/Sys/Repr/Global/NewAssemblyOnlinePlanCell.qrp

@@ -25,6 +25,14 @@
        DefaultBackgroundColor: false
        InheritConversion: false
      }
      DataRepresentation.Conditional
      {
        BackgroundColor: '$FF0066'
        ConditionBody: 'object.Quantity() < 0.0'
        ConversionBody: ''
        DefaultBackgroundColor: false
        InheritConversion: false
      }
    ]
  }
  AttributeRepresentation ShiftPatternEnd

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelColumnSearch.def

@@ -7,6 +7,7 @@
  [
    #child: PanelPeriod_384
    #child: PanelTimeUnit
    #child: PanelOperation_653
  ]
  Properties:
  [

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelOperation#653.def

copy from _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelOperation.def
copy to "_Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelOperation\043653.def"
Îļþ´Ó _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelOperation.def ¸´ÖÆ
@@ -1,13 +1,13 @@
Quintiq file version 2.0
Component PanelOperation
Component PanelOperation id:PanelOperation_653
{
  #keys: '[415136.0.1307935388]'
  #keys: '[415136.0.1325100270]'
  BaseType: 'WebPanel'
  Children:
  [
    Component ButtonSearch
    {
      #keys: '[415136.0.1307935389]'
      #keys: '[415136.0.1325100271]'
      BaseType: 'WebButton'
      Properties:
      [

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelOperation.def

ÎļþÒÑɾ³ý

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelProduct.def

@@ -21,5 +21,6 @@
  Properties:
  [
    Taborder: 2
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelProductLine#623.def

@@ -19,5 +19,6 @@
  Properties:
  [
    Taborder: 1
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelProductSearch.def

@@ -5,7 +5,6 @@
  BaseType: 'WebPanel'
  Children:
  [
    #child: PanelOperation
    #child: PanelUnit_424
    #child: PanelProductLine_623
    #child: PanelProduct
@@ -14,5 +13,6 @@
  [
    Orientation: 'horizontal'
    Taborder: 0
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Component_PanelUnit#424.def

@@ -19,5 +19,6 @@
  Properties:
  [
    Taborder: 0
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Response_PanelOperation_653_ButtonSearch_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,20 @@
Quintiq file version 2.0
#parent: PanelOperation_653/ButtonSearch
Response OnClick () id:Response_PanelOperation_653_ButtonSearch_OnClick
{
  #keys: '[415136.0.1325100269]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  QuillAction
  {
    Body:
    [*
      if( not isnull( DataHolderTable.Data() ) ){ 
        productids      := selectuniquevalues( DataHolderProduct.Data(), Elements, product, product.ID() );
        units           := selectuniquevalues( DataHolderUnit.Data(), Elements, unit, unit.ID() );
        DataHolderTable.Data().Generate( dhSearch.Data(), productids, units );
      }
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_FormAssemblyOnlinePlanVersion/Response_PanelOperation_ButtonSearch_OnClick.def

ÎļþÒÑɾ³ý

 _Main/UI/MacroPlannerWebApp/Component_FormCustomerDemandPPAIDS/Component_PanelOperation.def

@@ -18,7 +18,6 @@
  ]
  Properties:
  [
    FixedSize: true
    Taborder: 6
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormCustomerDemandPPAIDS/Component_PanelProduct.def

@@ -21,5 +21,6 @@
  Properties:
  [
    Taborder: 3
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormCustomerDemandPPAIDS/Response_PanelOperation_ButtonSearch_OnClick.def

@@ -10,7 +10,8 @@
    Body:
    [*
      if( not isnull( DataHolderTable.Data() ) ){ 
        DataHolderTable.Data().Generate( dhSearch.Data() );
        productids      := selectuniquevalues( DataHolderProduct.Data(), Elements, product, product.ID() );
        DataHolderTable.Data().Generate( dhSearch.Data(), productids );
      }
    *]
    GroupServerCalls: false

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelColumnSearch.def

@@ -7,6 +7,7 @@
  [
    #child: PanelPeriod_71
    #child: PanelTimeUnit
    #child: PanelOperation_603
  ]
  Properties:
  [

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelOperation#603.def

ÎļþÃû´Ó _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelOperation.def ÐÞ¸Ä
@@ -1,13 +1,13 @@
Quintiq file version 2.0
Component PanelOperation
Component PanelOperation id:PanelOperation_603
{
  #keys: '[415136.0.1307935388]'
  #keys: '[415136.0.1323960400]'
  BaseType: 'WebPanel'
  Children:
  [
    Component ButtonSearch
    {
      #keys: '[415136.0.1307935389]'
      #keys: '[415136.0.1323960401]'
      BaseType: 'WebButton'
      Properties:
      [

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelProduct.def

@@ -21,5 +21,6 @@
  Properties:
  [
    Taborder: 1
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelRowSearch.def

@@ -7,11 +7,11 @@
  [
    #child: PanelUnit_925
    #child: PanelProduct
    #child: PanelOperation
  ]
  Properties:
  [
    Orientation: 'horizontal'
    Taborder: 0
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Component_PanelUnit#925.def

@@ -19,5 +19,6 @@
  Properties:
  [
    Taborder: 0
    Visible: false
  ]
}

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Response_PanelOperation_603_ButtonSearch_OnClick.def

¶Ô±ÈÐÂÎļþ
@@ -0,0 +1,20 @@
Quintiq file version 2.0
#parent: PanelOperation_603/ButtonSearch
Response OnClick () id:Response_PanelOperation_603_ButtonSearch_OnClick
{
  #keys: '[415136.0.1323960399]'
  CanBindMultiple: false
  DefinitionID: 'Responsedef_WebButton_OnClick'
  QuillAction
  {
    Body:
    [*
      if( not isnull( DataHolderTable.Data() ) ){ 
        productids      := selectuniquevalues( DataHolderProduct.Data(), Elements, product, product.ID() );
        units           := selectuniquevalues( DataHolderUnit.Data(), Elements, unit, unit.ID() );
        DataHolderTable.Data().Generate( dhSearch.Data(), productids, units );
      }
    *]
    GroupServerCalls: false
  }
}

 _Main/UI/MacroPlannerWebApp/Component_FormInventoryPlanArchive/Response_PanelOperation_ButtonSearch_OnClick.def

ÎļþÒÑɾ³ý