| | |
|---|
| | | allunit := InventorySummaryReport::GetDefaultAllUnit(); |
|---|
| | | ccunit := InventorySummaryReport::GetDefaultCCUnit(); |
|---|
| | | dlunit := InventorySummaryReport::GetDefaultDLUnit(); |
|---|
| | | ccalineunit := FinancialProductionReport::GetDefaultCCALineUnit(); |
|---|
| | | dlalienunit := FinancialProductionReport::GetDefaultDLALineUnit() |
|---|
| | | ccmplineunit := FinancialProductionReport::GetDefaultCCMPLineUnit() |
|---|
| | | dlmplineunit := FinancialProductionReport::GetDefaultDLMPLineUnit(); |
|---|
| | | //ccalineunit := FinancialProductionReport::GetDefaultCCALineUnit(); |
|---|
| | | //dlalienunit := FinancialProductionReport::GetDefaultDLALineUnit() |
|---|
| | | //ccmplineunit := FinancialProductionReport::GetDefaultCCMPLineUnit() |
|---|
| | | //dlmplineunit := FinancialProductionReport::GetDefaultDLMPLineUnit(); |
|---|
| | | |
|---|
| | | source := owner.InventorySummarySource( relnew, ID := InventorySummaryReport::GetDefaultName(), Name := InventorySummaryReport::GetDefaultName() ); |
|---|
| | | table := source.InventorySummaryReport( relnew, ID := source.Name(), Name := source.Name() ); |
|---|
| | |
|---|
| | | startofyear := startofplanning.StartOfYear(); |
|---|
| | | startofnextyear := startofplanning.StartOfNextYear(); |
|---|
| | | |
|---|
| | | search := source.InventorySummarySearch( relnew, Unit := allunit, Generation := allunit, MqbMlb := allunit, Power := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() ); |
|---|
| | | search := owner.InventorySummarySearch( relnew, Unit := allunit, Generation := allunit, MqbMlb := allunit, Power := allunit, StartDate := Date::MinDate(), EndDate := Date::MaxDate() ); |
|---|
| | | |
|---|
| | | table.GenerateColumn( owner, 'All', startofyear, startofnextyear ); |
|---|
| | | //info( '-----------------------------------', table.InventorySummaryColumn( relsize ) ); |
|---|
| | | //库存数量为Actual inventories里面的点Planned inventories字段库存量加总 |
|---|
| | | traverse( owner, StockingPoint_MP, stockingpoint ){ |
|---|
| | | unit := stockingpoint.Unit(); |
|---|
| | | parentunits := unit.GetAllParent(); |
|---|
| | | //traverse( owner, StockingPoint_MP, stockingpoint ){ |
|---|
| | | traverse( owner, StockingPoint_MP, stockingpoint, stockingpoint.ID().EndsWith( '厂内库' ) ){ |
|---|
| | | // unit := stockingpoint.Unit(); |
|---|
| | | // parentunits := unit.GetAllParent(); |
|---|
| | | //是否属于长春工厂 |
|---|
| | | iscc := unit.ID() = ccalineunit or unit.ID() = ccmplineunit or exists( parentunits, Elements, punit, punit.ID() = ccalineunit or punit.ID() = ccmplineunit ); |
|---|
| | | iscc := stockingpoint.ID().StartsWith( 'CC' );//unit.ID() = ccalineunit or unit.ID() = ccmplineunit or exists( parentunits, Elements, punit, punit.ID() = ccalineunit or punit.ID() = ccmplineunit ); |
|---|
| | | // iscc := stockingpoint.ID().StartsWith( 'CC' ) or unit.ID().StartsWith( 'CC' ) or exists( parentunits, Elements, punit, punit.ID().StartsWith( 'CC' ) ); |
|---|
| | | //是否属于大连工厂 |
|---|
| | | isdl := unit.ID() = dlalienunit or unit.ID() = dlmplineunit or exists( parentunits, Elements, punit, punit.ID() = dlalienunit or punit.ID() = dlmplineunit ); |
|---|
| | | isdl := stockingpoint.ID().StartsWith( '大连' );//unit.ID() = dlalienunit or unit.ID() = dlmplineunit or exists( parentunits, Elements, punit, punit.ID() = dlalienunit or punit.ID() = dlmplineunit ); |
|---|
| | | // isdl := stockingpoint.ID().StartsWith( 'DL' ) or unit.ID().StartsWith( 'DL' ) or exists( parentunits, Elements, punit, punit.ID().StartsWith( 'DL' ) ); |
|---|
| | | if( iscc or isdl ){ |
|---|
| | | traverse( stockingpoint, ProductInStockingPoint_MP, pisp, pisp.Product_MP().IsLeaf() ){ |
|---|
| | | //获取工厂行 |
|---|
| | |
|---|
| | | rows := selectsortedset( table, InventroySummaryRow, row, row.Name() ); |
|---|
| | | i := 0; |
|---|
| | | traverse( rows, Elements, e ){ |
|---|
| | | e.RowNr( i ); |
|---|
| | | i := i + 1; |
|---|
| | | if( exists( e, InventorySummaryCell, cell, cell.AverageInventory() <> 0 or cell.EndingInventory() <> 0 or cell.MaximumInventory() <> 0 or cell.MinimumInventory() <> 0 ) ){ |
|---|
| | | e.RowNr( i ); |
|---|
| | | i := i + 1; |
|---|
| | | }{ |
|---|
| | | e.Delete(); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | showtable.Generate( search, products ); |
|---|
| | | *] |
|---|
