VWED.git - Gitblit

			@@ -46,8 +46,8 @@
			enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= cellcolumn.Period() and engine.EndDate() >= cellcolumn.Period() );
			if( not isnull( enginecost ) ){
			//入库量/包装容量*入库单价，入库量等于长春产量
			quantity := ceil( cell.Quantity() / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice();
			column := selectobject( table, Column, column, column.Name() = cell.FinancialProductionColumn().Name() );
			quantity := ceil( cell.Quantity() / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice();
			column := selectobject( table, Column, column, column.Name() = cell.FinancialProductionColumn().Name() );
			//外租库入库费用
			ccrow.SetRentEnterCost( column, quantity );
			}
			@@ -96,34 +96,23 @@
			destisp := selectobject( owner, StockingPoint_MP, sp, sp.ID() = laneleg.DestinationStockingPointID() );
			isccrent := table.IsInUnit( destisp, ccrent );
			if( isccspline and isccrent ){
			traverse( laneleg, Trip, trip, trip.Arrival().Date() < startofnextyear ){
			periodtime := trip.Arrival().StartOfMonth().Date();
			periodname := periodtime.Format( "M2/D2/Y" );

			column := selectobject( table, Column, column, column.Name() = periodname and column.StartDate() = periodtime );
			enginecosts := selectset( owner, LogisticsCostEngine, engine, engine.PackagingCapacity() <> 0 and engine.StartDate() <= trip.Arrival().Date() and engine.EndDate() >= trip.Arrival().Date() );
			transcosts := selectset( owner, LogisticsCostTransport, trans, trans.LoadingCapacity() <> 0 and trans.StartDate() <= trip.Arrival().Date() and trans.EndDate() >= trip.Arrival().Date() );
			traverse( table, Column, column ){
			alltrips := selectset( laneleg, Trip, trip, trip.Arrival().Date() < column.StartDate().StartOfNextMonth() and trip.Arrival().Date() >= column.StartDate() );
			enginecosts := selectset( owner, LogisticsCostEngine, engine, engine.PackagingCapacity() <> 0 and engine.StartDate() <= column.StartDate() and engine.EndDate() >= column.StartDate() );
			transcosts := selectset( owner, LogisticsCostTransport, trans, trans.LoadingCapacity() <> 0 and trans.StartDate() <= column.StartDate() and trans.EndDate() >= column.StartDate() );
			if( not isnull( enginecosts ) and enginecosts.Size() > 0 and not isnull( transcosts ) and transcosts.Size() > 0 ){
			traverse( trip, ProductInTrip, pit, pit.Quantity() <> 0 ){
			product := pit.Product_MP();
			productparents := product.GetAllParent();
			if( exists( productparents, Elements, e, e.ID() = produtparent ) ){////查询产品类型是发动机
			//在发动机成本参数表找到对应的包装容量
			enginecost := selectobject( enginecosts, Elements, engine, engine.Generation().ToLower() = product.Generation().ToLower()
			and engine.MLB_MQB() = product.MQBMLB()
			and engine.Factory() = ccfactory );
			//在运输成本参数表里找到发动机对应运输单价和装载容量
			transcost := selectobject( transcosts, Elements, trans, trans.Origin() = 'CC 厂内库'
			and trans.Destination() = ccrent
			and exists( productparents, Elements, e, ifexpr( trans.Product().FindString( '发动机', 0 ) >= 0, e.ID() = produtparent, e.ID() = trans.Product() ) ) );
			if( not isnull( enginecost ) and not isnull( transcost ) ){
			row := table.GetRow( pit.ProductID() );
			products.Add( product );
			//运输数量/包装容量/装载容量*运输单价
			quantity := ceil( ceil( [Number]pit.Quantity() / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();//四舍五入

			row.SetFactoryToRentTransCost( column, quantity );
			}
			producttrips := selectuniquevalues( alltrips, Elements.ProductInTrip, pit, pit.Quantity() <> 0 and exists( pit.Product_MP().GetAllParent(), Elements, e, e.ID() = produtparent ), pit.ProductID() );
			traverse( producttrips, Elements, producttrip ){
			row := table.GetRow( producttrip );
			product := selectobject( owner, Product_MP, product, product.ID() = producttrip );
			products.Add( product );
			quantity := sum( alltrips, Elements.ProductInTrip, pit, pit.Product_MP() = product, pit.Quantity() );
			enginecost := selectobject( enginecosts, Elements, engine, engine.Generation().ToLower() = product.Generation().ToLower() and engine.MLB_MQB() = product.MQBMLB() and engine.Factory() = ccfactory );
			//在运输成本参数表里找到发动机对应运输单价和装载容量
			transcost := selectobject( transcosts, Elements, trans, trans.Origin() = 'CC 厂内库' and trans.Destination() = ccrent and exists( product.GetAllParent(), Elements, e, ifexpr( trans.Product().FindString( '发动机', 0 ) >= 0, e.ID() = produtparent, e.ID() = trans.Product() ) ) );
			if( not isnull( enginecost ) and not isnull( transcost ) ){
			cost := ceil( ceil( quantity / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();//四舍五入
			row.SetFactoryToRentTransCost( column, cost );
			}
			}
			}
			@@ -131,36 +120,31 @@
			}
			}
			//外租库仓储费用：仓储数量/包装容量*仓储单价，在Actual inventories里取到长春外租库该发动机的仓储量，根据发动机号找到对应的Generation 和横纵制，在发动机成本参数表里找到对应的仓储单价和包装容量，用公式计算，月度进行汇总
			traverse( owner, StockingPoint_MP, stockingpoint ){
			//是否属于长春外租库
			isccrent := table.IsInUnit( stockingpoint, ccrent );
			if( isccrent ){
			traverse( stockingpoint, ProductInStockingPoint_MP, pisp, pisp.Product_MP().IsLeaf()
			and exists( pisp, ProductInStockingPointInPeriod, pispip, not pispip.Period_MP().IsHistorical() and pispip.Period_MP().StartDate() < startofnextyear and pispip.NewSupplyQuantity() <> 0 ) ){
			//获取行
			product := pisp.Product_MP();
			productparents := product.GetAllParent();
			if( exists( productparents, Elements, e, e.ID() = produtparent ) ){////查询产品类型是发动机
			//查询对应的发动机成本
			enginecosts := selectset( owner, LogisticsCostEngine, engine, engine.PackagingCapacity() <> 0 and engine.Generation().ToLower() = product.Generation().ToLower()
			and engine.MLB_MQB() = product.MQBMLB()
			and engine.Factory() = ccfactory );
			if( not isnull( enginecosts ) and enginecosts.Size() > 0 ){
			row := table.GetRow( pisp.ProductID() );
			products.Add( product );
			//当product planning的日期区间在需要的日期区间内
			traverse( pisp, ProductInStockingPointInPeriod, pispip, not pispip.Period_MP().IsHistorical() and pispip.Period_MP().StartDate() < startofnextyear and pispip.NewSupplyQuantity() <> 0 ){
			enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= pispip.Start().Date() and engine.EndDate() >= pispip.Start().Date() );
			if( not isnull( enginecost ) ){
			periodtime := pispip.Start().StartOfMonth().Date();
			periodname := periodtime.Format( "M2/D2/Y" );
			quantity := ceil( [Number]pispip.PlannedInventoryLevelEnd() / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入
			traverse( owner, StockingPoint_MP, stockingpoint, table.IsInUnit( stockingpoint, ccrent ) ){//是否属于长春外租库
			traverse( stockingpoint, ProductInStockingPoint_MP, pisp, pisp.Product_MP().IsLeaf() and exists( pisp.Product_MP().GetAllParent(), Elements, e, e.ID() = produtparent )//查询产品类型是发动机
			and exists( pisp, ProductInStockingPointInPeriod, pispip, not pispip.Period_MP().IsHistorical() and pispip.Period_MP().StartDate() < startofnextyear and pispip.PlannedInventoryLevelEnd() <> 0 ) ){
			//获取行
			product := pisp.Product_MP();
			//查询对应的发动机成本
			enginecosts := selectset( owner, LogisticsCostEngine, engine, engine.PackagingCapacity() <> 0 and engine.Generation().ToLower() = product.Generation().ToLower() and engine.MLB_MQB() = product.MQBMLB()and engine.Factory() = ccfactory );
			if( not isnull( enginecosts ) and enginecosts.Size() > 0 ){
			row := table.GetRow( pisp.ProductID() );
			products.Add( product );
			//当product planning的日期区间在需要的日期区间内
			// traverse( table, Column, column ){
			// pispips := selectset( pisp, ProductInStockingPointInPeriod, pispip, not pispip.Period_MP().IsHistorical() and pispip.PlannedInventoryLevelEnd() <> 0
			// and pispip.Start().Date() < column.StartDate().StartOfNextMonth() and pispip.Start().Date() >= column.StartDate() );

			traverse( pisp, ProductInStockingPointInPeriod, pispip, not pispip.Period_MP().IsHistorical() and pispip.Period_MP().StartDate() < startofnextyear and pispip.PlannedInventoryLevelEnd() <> 0 ){
			enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= pispip.Start().Date() and engine.EndDate() >= pispip.Start().Date() );
			if( not isnull( enginecost ) ){
			periodtime := pispip.Start().StartOfMonth().Date();
			periodname := periodtime.Format( "M2/D2/Y" );
			quantity := ceil( pispip.PlannedInventoryLevelEnd() / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入

			column := selectobject( table, Column, column, column.Name() = periodname and column.StartDate() = periodtime );
			column := selectobject( table, Column, column, column.Name() = periodname and column.StartDate() = periodtime );

			row.SetRentStorageCost( column, quantity );
			}
			}
			row.SetRentStorageCost( column, quantity );
			}
			}
			}