Quintiq file version 2.0
|
#parent: #root
|
StaticMethod CreateData (
|
MacroPlan macroPlan
|
)
|
{
|
TextBody:
|
[*
|
macroPlan.MachineLogisticsCostReportRow( relflush );
|
macroPlan.MachineLogisticsCostReportColumn( relflush );
|
|
// 创建行
|
categories := selectuniquevalues( macroPlan, Product_MP, tempPMP, tempPMP.IsLeaf() and
|
exists( tempPMP, AllParent.AsParent, tempPMP1, tempPMP1.ID() = "机加件" ),
|
tempPMP.ParentID() );
|
traverse ( categories, Elements, c ) {
|
macroPlan.MachineLogisticsCostReportRow( relnew, Factory := "大连工厂", Category := c );
|
macroPlan.MachineLogisticsCostReportRow( relnew, Factory := "长春工厂", Category := c );
|
}
|
|
// 创建列
|
indexDate := macroPlan.StartOfPlanning().Date().StartOfMonth();
|
for ( i := 0; i < 12; i++ ) {
|
macroPlan.MachineLogisticsCostReportColumn( relnew, StartDate := indexDate );
|
indexDate := indexDate.StartOfNextMonth();
|
}
|
|
// 创建单元格
|
traverse ( macroPlan, MachineLogisticsCostReportRow, mlcrr ) { // 循环行
|
info( "当前遍历的行：", mlcrr.Factory(), " ", mlcrr.Category() );
|
traverse ( macroPlan, MachineLogisticsCostReportColumn, mlcrc ) { // 循环列
|
|
// 机加成本参数
|
lcm := select( macroPlan, LogisticsCostMachining, tempLCM, tempLCM.Factory() = mlcrr.Factory() and tempLCM.Product() = mlcrr.Category()
|
and tempLCM.StartDate() <= mlcrc.StartDate() and tempLCM.EndDate() >= mlcrc.StartDate().StartOfNextMonth() );
|
|
// 运输成本参数
|
lct := select( macroPlan, LogisticsCostTransport, tempLCT,
|
tempLCT.Product() = mlcrr.Category() and
|
tempLCT.Origin() = ifexpr( mlcrr.Category() = "AGW", "DL AGW", ifexpr( mlcrr.Factory() = "大连工厂", "DL", "CC" ) + " " + mlcrr.Category() + "外租库" ) and
|
tempLCT.Destination() = ifexpr( mlcrr.Category() = "AGW", "CC AGW库房", ifexpr( mlcrr.Factory() = "大连工厂", "DL", "CC" ) + " " + mlcrr.Category() + "线边库" ) );
|
|
// 当前月末最后一天日期
|
lastDayOfThisMonth := mlcrc.StartDate().StartOfNextMonth() - 1;
|
|
cell := mlcrr.MachineLogisticsCostReportCell( relnew );
|
|
// 设置包装费用（包装量 * 包装单价）
|
packageQuantity := sum( macroPlan, PackagingPlanRow.PackagingPlanCell, tempPPC,
|
tempPPC.PackagingPlanRow().Category() = mlcrr.Category() and
|
tempPPC.PackagingPlanRow().Factory() = mlcrr.Factory() and
|
tempPPC.PackagingPlanColumn().StartDate().Year() = mlcrc.StartDate().Year() and
|
tempPPC.PackagingPlanColumn().StartDate().Month() = mlcrc.StartDate().Month(),
|
tempPPC.Package() );
|
cell.PackingCharges( packageQuantity * guard( lcm.PackagePrice(), 1 ) );
|
|
// 设置拆包费用（拆包量 * 拆包单价）
|
unpackingQuantity := sum( macroPlan, PackagingPlanRow.PackagingPlanCell, tempPPC,
|
tempPPC.PackagingPlanRow().Category() = mlcrr.Category() and
|
tempPPC.PackagingPlanRow().Factory() = mlcrr.Factory() and
|
tempPPC.PackagingPlanColumn().StartDate().Year() = mlcrc.StartDate().Year() and
|
tempPPC.PackagingPlanColumn().StartDate().Month() = mlcrc.StartDate().Month(),
|
tempPPC.Unpacking() );
|
cell.UnpackingCost( unpackingQuantity * guard( lcm.UnpackingPrice(), 1 ) );
|
|
// 设置缓冲纸费用（包装类 * 缓冲纸单价）
|
cell.BufferPaperCost( packageQuantity * guard( lcm.BufferPaperPrice(), 1 ) );
|
|
// 设置木箱单价
|
cell.WoodenCratePriceReal( guard( lcm.WoodenCratePrice(), 1 ) );
|
|
// 设置调拨费用（调拨数量 / 包装容量 / 装载容量 * 运输单价）
|
transferQuantity := sum( macroPlan, TransferPlanRow.TransferPlanCell, tempTPC,
|
tempTPC.TransferPlanRow().Category() = mlcrr.Category() and
|
tempTPC.TransferPlanRow().Name() = ifexpr( mlcrr.Factory() = "大连工厂", "CC to DL", "DL to CC" ) and
|
guard( tempTPC.TransferPlanColumn().ColumnDate().Year() = mlcrc.StartDate().Year(), false ) and
|
guard( tempTPC.TransferPlanColumn().ColumnDate().Month() = mlcrc.StartDate().Month(), false ),
|
[Number]tempTPC.Value() );
|
cell.TransferCost( [Number] ( [Number] ( transferQuantity / guard( lcm.PackagingCapacity(), 1 ) ) / guard( lct.LoadingCapacity(), 1 ) ) * guard( lct.TransportPrice(), 1 ) );
|
|
// 外租库入库费用（入库量[包装量] / 包装容量 * 入库单价）
|
cell.StorageFeesForRentedWarehouses( packageQuantity / guard( lcm.PackagingCapacity(), 1 ) * guard( lcm.WarehousingPrice(), 1 ) );
|
|
// 外租库出库费用（出库量[拆包量] / 包装容量 * 出库单价）
|
cell.OutboundExpensesForRentedWarehouses( unpackingQuantity / guard( lcm.PackagingCapacity(), 1 ) * guard( lcm.OutboundPrice(), 1 ) );
|
|
// 外租库运输费用（运输数量 / 包装容量 / 装载容量 * 运输单价）
|
transportationQuantity := sum( macroPlan, Unit.Lane.LaneLeg.Trip.ProductInTrip, tempPIT,
|
tempPIT.Product_MP().ParentID() = mlcrr.Category() and
|
tempPIT.Trip().Departure().Date() >= mlcrc.StartDate() and
|
tempPIT.Trip().Arrival().Date() <= lastDayOfThisMonth and
|
tempPIT.Trip().LaneLeg().AsOriginStockingPointLeg().StockingPoint_MP().ID() = ifexpr( mlcrr.Factory() = "大连工厂", "DL", "CC" ) + " " + mlcrr.Category() + "线边库" and
|
tempPIT.Trip().LaneLeg().AsDestinationStockingPointLeg().StockingPoint_MP().ID() = ifexpr( mlcrr.Factory() = "大连工厂", "DL", "CC" ) + " " + mlcrr.Category() + "外租库",
|
tempPIT.Quantity()
|
);
|
transportationQuantity := transportationQuantity +
|
sum( macroPlan, Unit.Lane.LaneLeg.Trip.ProductInTrip, tempPIT,
|
tempPIT.Product_MP().ParentID() = mlcrr.Category() and
|
tempPIT.Trip().Departure().Date() >= mlcrc.StartDate() and
|
tempPIT.Trip().Arrival().Date() <= lastDayOfThisMonth and
|
tempPIT.Trip().LaneLeg().AsOriginStockingPointLeg().StockingPoint_MP().ID() = ifexpr( mlcrr.Factory() = "大连工厂", "DL", "CC" ) + " " + mlcrr.Category() + "外租库" and
|
tempPIT.Trip().LaneLeg().AsDestinationStockingPointLeg().StockingPoint_MP().ID() = ifexpr( mlcrr.Factory() = "大连工厂", "DL", "CC" ) + " " + mlcrr.Category() + "线边库",
|
tempPIT.Quantity()
|
);
|
|
cell.ExternalRentalWarehouseTransportationCosts( transportationQuantity / guard( lcm.PackagingCapacity(), 1 ) / guard( lct.LoadingCapacity(), 1 ) * guard( lct.TransportPrice(), 1 ) );
|
|
// 外租库仓储费用：仓储数量/包装容量*仓储单价
|
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().Product_MP().ParentID() = mlcrr.Category() and
|
tempPISPIP.Start().Date() >= mlcrc.StartDate() and
|
tempPISPIP.End().Date() <= lastDayOfThisMonth and
|
tempPISPIP.ProductInStockingPoint_MP().StockingPointID() = ifexpr( mlcrr.Factory() = "大连工厂", "DL", "CC" ) + " " + mlcrr.Category() + "外租库",
|
tempPISPIP.PlannedInventoryLevelEnd() );
|
cell.RentalWarehouseStorageFees( plannedInventory / guard( lcm.PackagingCapacity(), 1 ) * guard( lcm.StoragePrice(), 1 ) );
|
|
// 预计总费用
|
cell.EstimatedTotalCost( cell.PackingCharges() + cell.UnpackingCost() + cell.BufferPaperCost() + cell.WoodenCrateCost() + cell.TransferCost() +
|
cell.StorageFeesForRentedWarehouses() + cell.OutboundExpensesForRentedWarehouses() + cell.ExternalRentalWarehouseTransportationCosts() +
|
cell.RentalWarehouseStorageFees() );
|
|
// 系数
|
cell.Coefficient( 1.05 );
|
|
// 总费用
|
cell.TotalCost( cell.EstimatedTotalCost() * cell.Coefficient() );
|
|
cell.MachineLogisticsCostReportColumn( relset, mlcrc );
|
}
|
}
|
*]
|
}
|
