| | |
| | | info( '-------------------------Start---------------------'); |
| | | allunit := AssemblyOnlinePlanVersion::GetDefaultAllUnit(); |
| | | name := InventoryPlanArchiveVersion::GetDefaultName(); |
| | | interfaceDataset.InventoryPlanArchiveVersionSearch( relnew, Product := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() ); |
| | | search := interfaceDataset.InventoryPlanArchiveVersionSearch( relnew, Product := allunit, TimeUnit := Translations::MP_GlobalParameters_Day(), Unit := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() ); |
| | | table := selectobject( interfaceDataset, InventoryPlanArchiveVersion, version, not version.IsShow() ); |
| | | if( isnull( table ) ){ |
| | | table := interfaceDataset.InventoryPlanArchiveVersion( relnew, ID := name, Name := name ); |
| | | } |
| | | //showtable := selectobject( interfaceDataset, InventoryPlanArchiveVersion, version, version.IsShow() ); |
| | | //if( isnull( table ) ){ |
| | | // showtable := interfaceDataset.AssemblyOnlinePlanVersion( relnew, ID := name, Name := name, IsShow := true ); |
| | | //} |
| | | showtable := selectobject( interfaceDataset, InventoryPlanArchiveVersion, version, version.IsShow() ); |
| | | if( isnull( table ) ){ |
| | | 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 ); |
| | | table.GenerateColumn( periods, false ); |
| | | actinventorytree := NamedValueTree::Create(); |
| | | inventoryqrys := construct( Reals ); |
| | | inventoryindex := 0; |
| | |
| | | } |
| | | |
| | | info( '-------------------------End---------------------'); |
| | | showtable.Generate( search ); |
| | | *] |
| | | } |