VWED.git - Gitblit

			@@ -8,7 +8,15 @@
			[*
			macroPlan.NewOfflinePlanTable( relflush );

			nopt := macroPlan.NewOfflinePlanTable( relnew, SaveDateTime := DateTime::ActualTime() );
			nopt := macroPlan.NewOfflinePlanTable( relnew, SaveDateTime := DateTime::ActualTime() );

			// 计划开始时间
			planningDate := macroPlan.StartOfPlanning().Date()

			// 初始化下线计划列
			traverse ( macroPlan, Period_MP, pmp, pmp.IsPlanning() and not pmp.IsHistorical() ) {
			nopt.NewOfflinePlanColumn( relnew, StartDate := pmp.StartDate(), EndDate := pmp.EndDate() );
			}

			// 生成下线计划表【一条产线在同一天不会产生两次相同产品的周期任务】
			traverse ( macroPlan, Unit, u, u.HasCapacityTypeTime()
			@@ -48,32 +56,10 @@
			detaileNOPCell := detailedNOPR.NewOfflinePlanCell( relnew,
			Quantity := ns.Quantity().Round( 0 ),
			InventoryWeight := pispippl.InventoryLevelEnd() - pispippl.MinInventoryLevel(),
			ShiftPatternName := guard( sdt.Name(), "" ),
			ShiftPatternName := guard( sp.Name(), "" ),
			ShiftPatternStart := guard( sdt.StartDateTime().Format( "H:m" ), "" ),
			ShiftPatternEnd := guard( sdt.EndDateTIme().Format( "H:m" ), "" ) );
			detaileNOPCell.NewOfflinePlanColumn( relset, nopc );
			}
			}
			}

			// 设置生产顺序【对下线计划明细生效】


			// 【生成合计下线计划】
			totalNOPR := nopt.NewOfflinePlanRow( relnew, ProductID := "All", ProductionLine := u.ID(), Type := "2" );
			detailNOPRs := selectset( nopt, NewOfflinePlanRow, tempNOPR, tempNOPR.ProductionLine() = u.ID() and tempNOPR.Type() = "1" );
			traverse ( detailNOPRs, Elements, detailNOPR ) {
			traverse ( detailNOPR, NewOfflinePlanCell, detailNOPCell ) {
			// 生产下线计划【产线合计】单元格
			totalNOPRCell := select( totalNOPR, NewOfflinePlanCell, tempNOPCell, tempNOPCell.NewOfflinePlanColumn() = detailNOPCell.NewOfflinePlanColumn() );
			if ( isnull( totalNOPRCell ) ) {
			totalNOPRCell := totalNOPR.NewOfflinePlanCell( relnew );
			totalNOPRCell.NewOfflinePlanColumn( relset, detailNOPCell.NewOfflinePlanColumn() ); // 设置列
			// 将明细单元格关联到合计单元格
			totalNOPRCell.Detailed( relinsert, detailNOPCell );
			} else {
			// 将明细单元格关联到合计单元格
			totalNOPRCell.Detailed( relinsert, detailNOPCell );
			}
			}
			}
			@@ -88,6 +74,87 @@
			}
			}
			}

			// 【生成合计下线计划】
			totalNOPR := nopt.NewOfflinePlanRow( relnew, ProductID := "All", ProductionLine := u.ID(), Type := "2" );
			detailNOPRs := selectset( nopt, NewOfflinePlanRow, tempNOPR, tempNOPR.ProductionLine() = u.ID() and tempNOPR.Type() = "1" );
			traverse ( detailNOPRs, Elements, detailNOPR ) {
			shiftPatternNOPCell := select( detailNOPR, NewOfflinePlanCell, tempNOPCell, tempNOPCell.ShiftPatternName() <> "" );
			traverse ( detailNOPR, NewOfflinePlanCell, detailNOPCell ) {
			// 生产下线计划【产线合计】单元格
			totalNOPRCell := select( totalNOPR, NewOfflinePlanCell, tempNOPCell, tempNOPCell.NewOfflinePlanColumn() = detailNOPCell.NewOfflinePlanColumn() );
			if ( isnull( totalNOPRCell ) ) {
			totalNOPRCell := totalNOPR.NewOfflinePlanCell( relnew,
			ShiftPatternName := shiftPatternNOPCell.ShiftPatternName(),
			ShiftPatternStart := shiftPatternNOPCell.ShiftPatternStart(),
			ShiftPatternEnd := shiftPatternNOPCell.ShiftPatternEnd() );
			totalNOPRCell.NewOfflinePlanColumn( relset, detailNOPCell.NewOfflinePlanColumn() ); // 设置列
			// 将明细单元格关联到合计单元格
			totalNOPRCell.Detailed( relinsert, detailNOPCell );
			} else {
			// 将明细单元格关联到合计单元格
			totalNOPRCell.Detailed( relinsert, detailNOPCell );
			}
			}
			}

			// 设置生产顺序【对下线计划明细生效】
			indexColumn := select( nopt, NewOfflinePlanColumn, tempNOPC, tempNOPC.StartDate() = planningDate );
			previousColumn := indexColumn.PreviousNOPColumn();
			nextColumn := indexColumn.NextNOPColumn();
			while ( not isnull( indexColumn.NextNOPColumn() )
			// and indexColumn.ColumnDate() <= Date::Construct( 2020, 4, 1 ) // 测试实际场景时可以过滤
			)
			{
			orderNr := 1;
			nopcells := selectsortedset( indexColumn, NewOfflinePlanCell, tempNOPCell, tempNOPCell.FindProductionLineAndType( u.ID(), "1" ), tempNOPCell.InventoryWeight() );
			initialSize := nopcells.Size();
			// info( "计划开始时间：", planningDate.Format( "Y-M2-D2" ), " 索引时间：", indexColumn.StartDate().Format( "Y-M2-D2" ), " 个数：", nopcells.Size() );

			if ( nopcells.Size() > 0 ) {

			// 判定1
			previousOPCell := maxselect( previousColumn, NewOfflinePlanCell, tempNOPCell, tempNOPCell.FindProductionLineAndType( u.ID(), "1" ), tempNOPCell.OrderNr() );
			if ( isnull( previousOPCell ) or indexColumn.StartDate() = planningDate ) {
			nopcell := nopcells.Element( 0 );
			nopcell.Order( "#" + orderNr.Format( "N(LPad0(2))" ) );
			nopcell.OrderNr( orderNr );
			orderNr++;
			nopcells.Remove( nopcell );
			} else {
			nopcell := select( nopcells, Elements, tempNOPCell, tempNOPCell.NewOfflinePlanRow().ProductID() = previousOPCell.NewOfflinePlanRow().ProductID() );
			if ( not isnull( nopcell ) ) {
			nopcell.Order( "#" + orderNr.Format( "N(LPad0(2))" ) );
			nopcell.OrderNr( orderNr );
			orderNr++;
			nopcells.Remove( nopcell );
			}
			}

			// 判定2
			nextNOPCells := selectset( nopcells, Elements, tempOPC,
			exists( nextColumn, NewOfflinePlanCell, nextOPCell, nextOPCell.FindProductionLineAndType( u.ID(), "1" ) and
			nextOPCell.NewOfflinePlanRow().ProductID() = tempOPC.NewOfflinePlanRow().ProductID() ) ); // 找下一列是否有当前列生产的产品
			if ( nextNOPCells.Size() = 1 ) {
			nopcell := nextNOPCells.Element( 0 );
			nopcell.Order( "#" + initialSize.Format( "N(LPad0(2))" ) );
			nopcell.OrderNr( initialSize );
			nopcells.Remove( nopcell );
			}

			// 判定3
			traverse ( nopcells, Elements, opcell ) {
			opcell.Order( "#" + orderNr.Format( "N(LPad0(2))" ) );
			opcell.OrderNr( orderNr );
			orderNr++;
			nopcells.Remove( opcell );
			}
			}

			indexColumn := indexColumn.NextNOPColumn();
			previousColumn := indexColumn.PreviousNOPColumn();
			nextColumn := indexColumn.NextNOPColumn();
			}
			}
			*]
			}