| | |
|---|
| | | |
|---|
| | | // 空料架数量（长春厂该产品的料架总数量 - 发动机库存 / 包装容量 ） |
|---|
| | | 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() = ccerr.Generation() and |
|---|
| | | tempPISPIP.ProductInStockingPoint_MP().Product_MP().MQBMLB() = ccerr.MLB_MQB() and |
|---|
| | | tempPISPIP.Start().Date() = lastDayOfThisMonth, |
|---|
| | | 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() = ccerr.Generation() and |
|---|
| | | tempPISPIP.ProductInStockingPoint_MP().Product_MP().MQBMLB() = ccerr.MLB_MQB() and |
|---|
| | | tempPISPIP.Start().Date() >= ccerc.StartDate() and |
|---|
| | | tempPISPIP.End().Date() <= lastDayOfThisMonth, |
|---|
| | | tempPISPIP.PlannedInventoryLevelEnd() ); |
|---|
| | | cell.PackagingCapacity( guard( lce.PackagingCapacity(), 1 ) ); |
|---|
| | | cell.PlannedInventory( plannedInventory ); |
|---|
| | |
|---|
| | | tempPIT.Quantity() |
|---|
| | | ); |
|---|
| | | // info( "时间：", ccerc.StartDate().Format( "Y-M2-D2" ), " 运输数据：", transportationQuantity, " 运输单价：", lct.TransportPrice() ); |
|---|
| | | cell.ExternalRentalWarehouseTransportationCosts( transportationQuantity / guard( lce.PackagingCapacity(), 1 ) / guard( lct.LoadingCapacity(), 1 ) * guard( lct.TransportPrice(), 1 ) ); |
|---|
| | | cell.ExternalRentalWarehouseTransportationCosts( [Number] ( transportationQuantity / guard( lce.PackagingCapacity(), 1 ) / guard( lct.LoadingCapacity(), 1 ) * guard( lct.TransportPrice(), 1 ) ) ); |
|---|
| | | sumExternalRentalWarehouseTransportationCosts := sumExternalRentalWarehouseTransportationCosts + cell.ExternalRentalWarehouseTransportationCosts(); |
|---|
| | | |
|---|
| | | // 外租库仓储费用：料架总数量 - 发动机库存 / 包装容量（向上取整），再乘以空料架仓储单价得到空料架仓储费用。发动机库存取Actual inventories里取到长春外租库该发动机的仓储量，料架总数量需要手动维护。 |
|---|
| | | cell.UnitPriceOfEmptyShelfStorage( lcmr.StoragePrice() ); |
|---|
| | | cell.RentalWarehouseStorageFees( guard( ( cell.TotalQuantityOfMaterialRacks() - [Number]( plannedInventory / lce.PackagingCapacity() ) ) * lcmr.StoragePrice(), 0 ) ); |
|---|
| | | cell.RentalWarehouseStorageFees( [Number] ( guard( ( cell.TotalQuantityOfMaterialRacks() - [Number]( plannedInventory / lce.PackagingCapacity() ) ) * lcmr.StoragePrice(), 0 ) ) ); |
|---|
| | | sumRentalWarehouseStorageFees := sumRentalWarehouseStorageFees + cell.RentalWarehouseStorageFees(); |
|---|
| | | |
|---|
| | | // 清洗费用：发动机入库量 / 包装容量 * 料架清洗单价。发动机入库量取发动机销量，包装容量取自发动机成本表。料架清洗单价取料架成本表。 |
|---|
| | | cell.CleaningCost( engineSales / guard( lce.PackagingCapacity(), 1 ) * lcmr.CleanPrice() ); |
|---|
| | | cell.CleaningCost( [Number] ( engineProductions / guard( lce.PackagingCapacity(), 1 ) * lcmr.CleanPrice() ) ); |
|---|
| | | sumCleaningCost := sumCleaningCost + cell.CleaningCost(); |
|---|
| | | |
|---|
| | | // 预计总费用 |
|---|
| | |
|---|
| | | sumEstimatedTotalCost := sumEstimatedTotalCost + cell.EstimatedTotalCost(); |
|---|
| | | |
|---|
| | | // 系数 |
|---|
| | | cell.Coefficient( 1 ); |
|---|
| | | cell.Coefficient( 1.05 ); |
|---|
| | | |
|---|
| | | // 总费用 |
|---|
| | | cell.TotalCost( cell.EstimatedTotalCost() * cell.Coefficient() ); |
|---|
