| | |
|---|
| | | [* |
|---|
| | | // 甄兰鸽 Jun-24-2024 (created) |
|---|
| | | owner.EnginePipelineSource( relflush ); |
|---|
| | | ccunit := EnginePipelineReport::GetDefaultCCUnit(); |
|---|
| | | dlunit := EnginePipelineReport::GetDefaultDLUnit(); |
|---|
| | | //ccunit := EnginePipelineReport::GetDefaultCCUnit(); |
|---|
| | | //dlunit := EnginePipelineReport::GetDefaultDLUnit(); |
|---|
| | | ccalineunit := FinancialProductionReport::GetDefaultCCALineUnit(); |
|---|
| | | dlalienunit := FinancialProductionReport::GetDefaultDLALineUnit() |
|---|
| | | ccmplineunit := FinancialProductionReport::GetDefaultCCMPLineUnit() |
|---|
| | | dlmplineunit := FinancialProductionReport::GetDefaultDLMPLineUnit(); |
|---|
| | | //allunit := EnginePipelineReport::GetDefaultAllUnit(); |
|---|
| | | source := owner.EnginePipelineSource( relnew, Name := EnginePipelineReport::GetDefaultName() ); |
|---|
| | | table := source.Report( relnew, ID := source.Name(), Name := source.Name() ); |
|---|
| | |
|---|
| | | unit := stockingpoint.Unit(); |
|---|
| | | parentunits := unit.GetAllParent(); |
|---|
| | | //是否属于长春工厂 |
|---|
| | | iscc := unit.ID() = ccunit or exists( parentunits, Elements, punit, punit.ID() = ccunit ); |
|---|
| | | iscc := unit.ID() = ccalineunit or unit.ID() = ccmplineunit or exists( parentunits, Elements, punit, punit.ID() = ccalineunit or punit.ID() = ccmplineunit ); |
|---|
| | | //是否属于大连工厂 |
|---|
| | | isdl := unit.ID() = dlunit or exists( parentunits, Elements, punit, punit.ID() = dlunit ); |
|---|
| | | isdl := unit.ID() = dlalienunit or unit.ID() = dlmplineunit or exists( parentunits, Elements, punit, punit.ID() = dlalienunit or punit.ID() = dlmplineunit ); |
|---|
| | | |
|---|
| | | traverse( stockingpoint, ProductInStockingPoint_MP, pisp, pisp.Product_MP().IsLeaf() and not pisp.IsSystem() ){ |
|---|
| | | weekstart := owner.StartOfPlanning().Date(); |
|---|
