| | |
|---|
| | | Description: '生成计划库存存档数据' |
|---|
| | | TextBody: |
|---|
| | | [* |
|---|
| | | interfaceDataset.InventoryPlanArchiveVersion( relflush ); |
|---|
| | | //interfaceDataset.InventoryPlanArchiveVersion( relflush ); |
|---|
| | | info( '-------------------------Start---------------------'); |
|---|
| | | allunit := AssemblyOnlinePlanVersion::GetDefaultAllUnit(); |
|---|
| | | name := InventoryPlanArchiveVersion::GetDefaultName(); |
|---|
| | |
|---|
| | | table := interfaceDataset.InventoryPlanArchiveVersion( relnew, ID := name, Name := name ); |
|---|
| | | } |
|---|
| | | showtable := selectobject( interfaceDataset, InventoryPlanArchiveVersion, version, version.IsShow() ); |
|---|
| | | if( isnull( table ) ){ |
|---|
| | | if( isnull( showtable ) ){ |
|---|
| | | showtable := interfaceDataset.InventoryPlanArchiveVersion( relnew, ID := name, Name := name, IsShow := true ); |
|---|
| | | } |
|---|
| | | periods := selectuniquevalues( macroPlan, Period_MP, period, not period.IsHistorical() and period.TimeUnit() = Translations::MP_GlobalParameters_Day() |
|---|
| | | and not exists( table, Column, column, column.TimeUnit() = Translations::MP_GlobalParameters_Day() and column.StartDate() = period.StartDate() ), period.StartDate() ); |
|---|
| | | table.GenerateColumn( periods, false ); |
|---|
| | | if( periods.Size() > 0 ){ |
|---|
| | | table.GenerateColumn( periods, false ); |
|---|
| | | } |
|---|
| | | actinventorytree := NamedValueTree::Create(); |
|---|
| | | inventoryqrys := construct( Reals ); |
|---|
| | | inventoryindex := 0; |
|---|
