VWED.git - Gitblit

			@@ -40,6 +40,7 @@
			// 运输成本参数
			lct1 := select( macroPlan, LogisticsCostTransport, tempLCT, tempLCT.Product() = "发动机料架" and tempLCT.Origin() = "长春外租库" and tempLCT.Destination() = "DL 厂内库" );
			lct2 := select( macroPlan, LogisticsCostTransport, tempLCT, tempLCT.Product() = "发动机料架" and tempLCT.Origin() = "大连外租库" and tempLCT.Destination() = "DL 厂内库" );
			lct3 := select( macroPlan, LogisticsCostTransport, tempLCT, tempLCT.Product() = "发动机料架" and tempLCT.Origin() = "CC 客户库" and tempLCT.Destination() = "CC 外租库" );

			// 当前月末最后一天日期
			lastDayOfThisMonth := dlerc.StartDate().StartOfNextMonth() - 1;
			@@ -48,27 +49,25 @@

			// 空料架数量：大连厂该产品的料架总数量 - 发动机库存 / 包装容量（向上取整）
			plannedInventory := sum( macroPlan, Product_MP.ProductInStockingPoint_MP.ProductInStockingPointInPeriod, tempPISPIP,
			tempPISPIP.ProductInStockingPoint_MP().Product_MP().IsLeaf() and
			exists( tempPISPIP.ProductInStockingPoint_MP().Product_MP(), AllParent.AsParent, tempPMP, tempPMP.ID() = "发动机" ) and
			tempPISPIP.ProductInStockingPoint_MP().StockingPointID() = "大连外租库" and
			tempPISPIP.ProductInStockingPoint_MP().Product_MP().Generation() = dlerr.Generation() and
			tempPISPIP.ProductInStockingPoint_MP().Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempPISPIP.Start().Date() >= dlerc.StartDate() and
			tempPISPIP.ProductInStockingPoint_MP().Product_MP().IsLeaf() and
			exists( tempPISPIP.ProductInStockingPoint_MP().Product_MP(), AllParent.AsParent, tempPMP, tempPMP.ID() = "发动机" ) and
			tempPISPIP.ProductInStockingPoint_MP().StockingPointID() = "大连发动机的长春外租库" and
			tempPISPIP.ProductInStockingPoint_MP().Product_MP().Generation() = dlerr.Generation() and
			tempPISPIP.ProductInStockingPoint_MP().Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempPISPIP.Start().Date() >= dlerc.StartDate() and
			tempPISPIP.End().Date() <= lastDayOfThisMonth,
			tempPISPIP.PlannedInventoryLevelEnd() );
			cell.PackagingCapacity( guard( lce.PackagingCapacity(), 1 ) );
			cell.PlannedInventory( plannedInventory );

			// CC外租库入库费用：发动机销量 / 包装容量（向上取整）* 料架入库单价
			transportationQuantity1 := sum( macroPlan, Unit.Lane.LaneLeg.Trip.ProductInTrip, tempPIT,
			tempPIT.Product_MP().Generation() = dlerr.Generation() and
			tempPIT.Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempPIT.Trip().Departure().Date() >= dlerc.StartDate() and
			tempPIT.Trip().Arrival().Date() <= lastDayOfThisMonth and
			tempPIT.Trip().LaneLeg().AsOriginStockingPointLeg().StockingPoint_MP().ID() = "DL 厂内库" and
			tempPIT.Trip().LaneLeg().AsDestinationStockingPointLeg().StockingPoint_MP().ID() = "长春外租库",
			tempPIT.Quantity()
			);
			transportationQuantity1 := sum( macroPlan, SalesDemand.astype( Forecast ), tempF,
			tempF.Product_MP().Generation() = dlerr.Generation() and
			tempF.Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempF.StockingPointID() = "大连发动机的长春外租库" and
			tempF.StartDate() >= dlerc.StartDate() and
			tempF.EndDate() <= lastDayOfThisMonth,
			tempF.FulfilledQuantity() );
			cell.CCStorageFeesForRentedWarehouses( [Number] ( guard( transportationQuantity1 / lce.PackagingCapacity(), 0 ) * lcmr.WarehousingPrice() ) );

			// CC外租库出库费用：发动机销量 / 包装容量（向上取整）* 料架出库单价
			@@ -79,49 +78,41 @@

			// CC长途运输费用：调拨数量 / 包装容量 / 装载容量 * 料架运输单价
			transportationQuantity2 := sum( macroPlan, Unit.Lane.LaneLeg.Trip.ProductInTrip, tempPIT,
			tempPIT.Product_MP().Generation() = dlerr.Generation() and
			tempPIT.Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempPIT.Trip().Departure().Date() >= dlerc.StartDate() and
			tempPIT.Trip().Arrival().Date() <= lastDayOfThisMonth and
			tempPIT.Trip().LaneLeg().AsOriginStockingPointLeg().StockingPoint_MP().ID() = "长春外租库" and
			tempPIT.Trip().LaneLeg().AsDestinationStockingPointLeg().StockingPoint_MP().ID() = "DL 厂内库",
			tempPIT.Product_MP().Generation() = dlerr.Generation() and
			tempPIT.Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempPIT.Trip().Departure().Date() >= dlerc.StartDate() and
			tempPIT.Trip().Arrival().Date() <= lastDayOfThisMonth and
			tempPIT.Trip().LaneLeg().AsOriginStockingPointLeg().StockingPoint_MP().ID() = "DL 厂内库" and
			tempPIT.Trip().LaneLeg().AsDestinationStockingPointLeg().StockingPoint_MP().ID() = "大连发动机的长春外租库",
			tempPIT.Quantity()
			);
			cell.CCLineHaulCost( [Number] ( guard( transportationQuantity2 / lce.PackagingCapacity() / lct1.LoadingCapacity(), 0 ) * guard( lct1.TransportPrice(), 1 ) ) );

			// CC短途运输费用：CC客户到CC外租库
			// CC短途运输费用：调拨数量 / 包装容量 / 装载容量 * 料架运输单价
			cell.CCShortDistanceTransportationCosts( [Number] ( guard( transportationQuantity1 / lce.PackagingCapacity() / lct3.LoadingCapacity(), 0 ) * guard( lct3.TransportPrice(), 1 ) ) )

			// DL外租库入库费用：发动机入库量 / 包装容量（向上取整）* 料架入库单价
			engineProductions := sum( macroPlan, FPImportData, tempFPID,
			tempFPID.Unit() = FinancialProductionReport::GetDefaultDLUnit() and
			tempFPID.Generation() = dlerr.Generation() and
			tempFPID.MqbMlb() = dlerr.MLB_MQB() and
			tempFPID.StartDate().Year() = dlerc.StartDate().Year() and
			tempFPID.StartDate().Month() = dlerc.StartDate().Month(),
			tempFPID.Quantity() );
			engineProductions := sum( macroPlan, SalesDemand.astype( Forecast ), tempF,
			tempF.Product_MP().Generation() = dlerr.Generation() and
			tempF.Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempF.StockingPointID() = "大连外租库" and
			tempF.StartDate() >= dlerc.StartDate() and
			tempF.EndDate() <= lastDayOfThisMonth,
			tempF.FulfilledQuantity() );
			cell.DLStorageFeesForRentedWarehouses( [Number] ( guard( ( engineProductions - transportationQuantity1 ) / lce.PackagingCapacity(), 0 ) * guard( lcmr.WarehousingPrice(), 1 ) ) );

			// DL外租库出库费用：发动机出库量 / 料架容量（向上取整）* 料架出库单价
			engineSales := sum( macroPlan, FSImportData, tempFSID,
			tempFSID.Unit() = FinancialProductionReport::GetDefaultCCUnit() and
			tempFSID.Generation() = dlerr.Generation() and
			tempFSID.MqbMlb() = dlerr.MLB_MQB() and
			tempFSID.StartDate().Year() = dlerc.StartDate().Year() and
			tempFSID.StartDate().Month() = dlerc.StartDate().Month(),
			tempFSID.Quantity() );
			engineSales := sum( macroPlan, Product_MP.ProductInStockingPoint_MP.ProductInStockingPointInPeriodPlanning.astype( ProductInStockingPointInPeriodPlanningLeaf ), tempPISPIPPL,
			tempPISPIPPL.ProductInStockingPoint_MP().Product_MP().Generation() = dlerr.Generation() and
			tempPISPIPPL.ProductInStockingPoint_MP().Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempPISPIPPL.ProductInStockingPoint_MP().StockingPointID() = "大连外租库" and
			tempPISPIPPL.Start().Date() >= dlerc.StartDate() and
			tempPISPIPPL.End().Date() <= lastDayOfThisMonth,
			tempPISPIPPL.NewSupplyQuantity() );
			cell.DLOutboundExpensesForRentedWarehouses( [Number] ( guard( ( engineSales - transportationQuantity1 ) / lce.PackagingCapacity(), 0 ) * guard( lcmr.OutboundPrice(), 1 ) ) );

			// DL外租库运输费用：发动机运输量 / 包装容量 / 装载容量（向上取整）* 料架运输单价
			transportationQuantity3 := sum( macroPlan, Unit.Lane.LaneLeg.Trip.ProductInTrip, tempPIT,
			tempPIT.Product_MP().Generation() = dlerr.Generation() and
			tempPIT.Product_MP().MQBMLB() = dlerr.MLB_MQB() and
			tempPIT.Trip().Departure().Date() >= dlerc.StartDate() and
			tempPIT.Trip().Arrival().Date() <= lastDayOfThisMonth and
			tempPIT.Trip().LaneLeg().AsOriginStockingPointLeg().StockingPoint_MP().ID() = "大连外租库" and
			tempPIT.Trip().LaneLeg().AsDestinationStockingPointLeg().StockingPoint_MP().ID() = "DL 厂内库",
			tempPIT.Quantity()
			);
			cell.DLExternalRentalWarehouseTransportationCosts( [Number] ( guard( transportationQuantity3 / lce.PackagingCapacity() / lct2.LoadingCapacity(), 0 ) * guard( lct2.TransportPrice(), 1 ) ) );
			cell.DLExternalRentalWarehouseTransportationCosts( [Number] ( guard( engineSales / lce.PackagingCapacity() / lct2.LoadingCapacity(), 0 ) * guard( lct2.TransportPrice(), 1 ) ) );

			// DL外租库仓储费用：料架总数量 - 发动机库存 / 包装容量（向上取整）* 空料架仓储单价
			cell.DLRentalWarehouseStorageFees( [Number] ( guard( ( cell.TotalQuantityOfMaterialRacks() - plannedInventory ) / lce.PackagingCapacity(), 0 ) * guard( lcmr.StoragePrice(), 1 ) ) );