分支自 TIANMA_JITUAN
_Main/BL/Type_ScenarioManager/Method_CapacityAndSaleBudgeChart.qbl
@@ -32,19 +32,21 @@ this.CapacityAndSaleBudgeChartElement( relflush ); // ====按面板基地和事业部对产品进行筛选分组==== historyData := selectset( otdTable, CapacityAndSaleBudge, item, true ); historyData := selectset( mpSync, MappingCapacityAndSaleBudge, item, true ); if( placeOfProductionOfArrayChosen <> "" ) { historyData := selectset( historyData, Elements, item, item.PlaceOfProductionOfArray() = placeOfProductionOfArrayChosen ); } if( businessTypeChosen <> "" ) { historyData := selectset( historyData, Elements, item, item.BusinessType() = businessTypeChosen ); } //info( "historyData : " + [String]historyData.Size() ); traverse( historyData, Elements, item ) { row := CapacityAndSaleBudgeChartRow::CreateIfNotExist( this, item.BusinessType(), item.PlaceOfProductionOfArray() ); // 记录每行包含哪些product CapacityAndSaleBudgeChartRowProduct::CreateIfNotExist( row, item.ProductCode() ); } rows := selectset( this, CapacityAndSaleBudgeChartRow, item, true ); //info( "rows : " + [String]rows.Size() ); placeOfProductionOfArrayList := selectuniquevalues( historyData, Elements, item, item.PlaceOfProductionOfArray() ); businessTypeList := selectuniquevalues( historyData, Elements, item, item.BusinessType() ); // 生成图表元素 @@ -56,10 +58,10 @@ TimeStringAndScenarioName := [String]year + "年-目标", BusinessTypeOrOrgCode := placeOfProductionOfArray, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetByYear( productCodeList, otdTable, [Number]year ), MappingCapacityAndSaleBudge::GetSheetByYear( productCodeList, mpSync, [Number]year ), MappingForecast::GetQuantityByYear( productCodeList, mappingParent, [Number]year ) ) ); // S&OP // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-" + macroPlan.ScenarioName(), @@ -79,10 +81,10 @@ TimeStringAndScenarioName := [String]year + "年-" + ifexpr( halfNo = 1, "上", "下" ) + "半年-目标", BusinessTypeOrOrgCode := placeOfProductionOfArray, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetByHalfYear( productCodeList, otdTable, [Number]year, halfNo ), MappingCapacityAndSaleBudge::GetSheetByHalfYear( productCodeList, mpSync, [Number]year, halfNo ), MappingForecast::GetQuantityByHalfYear( productCodeList, mappingParent, [Number]year, halfNo ) ) ); // S&OP // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-" + ifexpr( halfNo = 1, "上", "下" ) + "半年-" + macroPlan.ScenarioName(), @@ -99,14 +101,18 @@ for( seasonNo := 1; seasonNo <= 4; seasonNo := seasonNo + 1 ) { traverse( placeOfProductionOfArrayList, Elements, placeOfProductionOfArray ) { productCodeList := CapacityAndSaleBudgeChartRow::GetProductCodesByPlaceOfProductionOfArray( rows, placeOfProductionOfArray ); // info( "productCodeList : " + [String]productCodeList.Size() ); // info( "MappingCapacityAndSaleBudge::GetSheetBySeason : " + [String]MappingCapacityAndSaleBudge::GetSheetBySeason( productCodeList, mpSync, [Number]year, seasonNo ) ); // info( "seasonNo : " + [String]seasonNo ); this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-第" + [String]seasonNo + "季度-目标", BusinessTypeOrOrgCode := placeOfProductionOfArray, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetBySeason( productCodeList, otdTable, [Number]year, seasonNo ), MappingCapacityAndSaleBudge::GetSheetBySeason( productCodeList, mpSync, [Number]year, seasonNo ), MappingForecast::GetQuantityBySeason( productCodeList, mappingParent, [Number]year, seasonNo ) ) ); // S&OP // info( "productCodeList : " + [String]productCodeList.Size() ); // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-第" + [String]seasonNo + "季度-" + macroPlan.ScenarioName(), @@ -127,10 +133,10 @@ TimeStringAndScenarioName := [String]year + "年-第" + [String]monthNo + "月-目标", BusinessTypeOrOrgCode := placeOfProductionOfArray, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetByMonth( productCodeList, otdTable, [Number]year, monthNo ), MappingCapacityAndSaleBudge::GetSheetByMonth( productCodeList, mpSync, [Number]year, monthNo ), MappingForecast::GetQuantityByMonth( productCodeList, mappingParent, [Number]year, monthNo ) ) ); // S&OP // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-第" + [String]monthNo + "月-" + macroPlan.ScenarioName(), @@ -151,10 +157,10 @@ TimeStringAndScenarioName := [String]year + "年-目标", BusinessTypeOrOrgCode := businessType, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetByYear( productCodeList, otdTable, [Number]year ), MappingCapacityAndSaleBudge::GetSheetByYear( productCodeList, mpSync, [Number]year ), MappingForecast::GetQuantityByYear( productCodeList, mappingParent, [Number]year ) ) ); // S&OP // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-" + macroPlan.ScenarioName(), @@ -174,10 +180,10 @@ TimeStringAndScenarioName := [String]year + "年-" + ifexpr( halfNo = 1, "上", "下" ) + "半年-目标", BusinessTypeOrOrgCode := businessType, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetByHalfYear( productCodeList, otdTable, [Number]year, halfNo ), MappingCapacityAndSaleBudge::GetSheetByHalfYear( productCodeList, mpSync, [Number]year, halfNo ), MappingForecast::GetQuantityByHalfYear( productCodeList, mappingParent, [Number]year, halfNo ) ) ); // S&OP // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-" + ifexpr( halfNo = 1, "上", "下" ) + "半年-" + macroPlan.ScenarioName(), @@ -198,10 +204,10 @@ TimeStringAndScenarioName := [String]year + "年-第" + [String]seasonNo + "季度-目标", BusinessTypeOrOrgCode := businessType, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetBySeason( productCodeList, otdTable, [Number]year, seasonNo ), MappingCapacityAndSaleBudge::GetSheetBySeason( productCodeList, mpSync, [Number]year, seasonNo ), MappingForecast::GetQuantityBySeason( productCodeList, mappingParent, [Number]year, seasonNo ) ) ); // S&OP // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-第" + [String]seasonNo + "季度-" + macroPlan.ScenarioName(), @@ -222,10 +228,10 @@ TimeStringAndScenarioName := [String]year + "年-第" + [String]monthNo + "月-目标", BusinessTypeOrOrgCode := businessType, Quantity := ifexpr( isCapacity, CapacityAndSaleBudge::GetSheetByMonth( productCodeList, otdTable, [Number]year, monthNo ), MappingCapacityAndSaleBudge::GetSheetByMonth( productCodeList, mpSync, [Number]year, monthNo ), MappingForecast::GetQuantityByMonth( productCodeList, mappingParent, [Number]year, monthNo ) ) ); // S&OP // S&OP traverse( macroPlans, Elements, macroPlan ) { this.CapacityAndSaleBudgeChartElement( relnew, TimeStringAndScenarioName := [String]year + "年-第" + [String]monthNo + "月-" + macroPlan.ScenarioName(), @@ -238,5 +244,15 @@ } } } //info( "CapacityAndSaleBudgeChartElement : " + [String]selectset( this, CapacityAndSaleBudgeChartElement, item, true ).Size() ); //traverse( this, CapacityAndSaleBudgeChartRow, row ) { // info( "==↓==" ); // info( row.BusinessType() ); // info( row.PlaceOfProductionOfArray() ); // elements := selectset( row, CapacityAndSaleBudgeChartRowProduct, cell, true ); // info( elements.Size() ); // info( row.GetProductCodes().Concatenate( " | " ) ); // info( "==↑==" ); //} *] }
