计划库存去掉紧缺件数据

lazhen

2024-11-14 c74a399f02c4c4a9b3ef5c2d67fc48feb1a2406f

计划库存去掉紧缺件数据

 _Main/BL/Type_InventoryPlanArchiveVersion/StaticMethod_GenerateData.qbl

@@ -8,8 +8,10 @@
  Description: '生成计划库存存档数据'
  TextBody:
  [*
    //interfaceDataset.InventoryPlanArchiveVersion( relflush );
    interfaceDataset.InventoryPlanArchiveVersion( relflush );
    info( '-------------------------Start---------------------');
    machineproductparent   := MachiningPipelineReport::GetDefaultProductParent();
    engineproductparent    := EnginePipelineReport::GetDefaultProductParent();
    allunit                := AssemblyOnlinePlanVersion::GetDefaultAllUnit();
    name                   := InventoryPlanArchiveVersion::GetDefaultName();
    search                 := interfaceDataset.InventoryPlanArchiveVersionSearch( relnew, Product := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() );
@@ -46,7 +48,8 @@
        inventoryindex      := inventoryindex + 1;
      }
    }
    traverse ( macroPlan, Product_MP.ProductInStockingPoint_MP, pispmp, not pispmp.IsSystem() and pispmp.IsLeaf() ) {
    traverse( macroPlan, Product_MP, product, exists( product.GetAllParent(), Elements, e, e.ID() = machineproductparent or e.ID() = engineproductparent ) ){ 
      traverse ( product, ProductInStockingPoint_MP, pispmp, not pispmp.IsSystem() and pispmp.IsLeaf() ) {
      unit                 := ifexpr( pispmp.StockingPointID().Regex( "大连" ) or pispmp.StockingPointID().Regex( "DL" ), FinancialProductionReport::GetDefaultDLUnit(), FinancialProductionReport::GetDefaultCCUnit() );
      inventoryrow         := table.GetRowByUnit( pispmp.Product_MP(), unit );
      traverse ( pispmp, ProductInStockingPointInPeriodPlanning.astype( ProductInStockingPointInPeriodPlanningLeaf ), pispippl, not pispippl.IsPeriodFrozen() ) {
@@ -68,6 +71,7 @@
    
      }
    }
    }
    
    info( '-------------------------End---------------------');
    showtable.Generate( search );