Quintiq file version 2.0
|
#parent: #root
|
StaticMethod Initialize (
|
MacroPlan owner
|
)
|
{
|
TextBody:
|
[*
|
// 甄兰鸽 Aug-12-2024 (created)
|
// 甄兰鸽 Aug-12-2024 (created)
|
owner.DLEngineLogisticsCostReport( relflush );
|
produtparent := DLEngineLogisticsCostReport::GetDefaultProductParent();
|
name := DLEngineLogisticsCostReport::GetDefaultName();
|
allunit := DLEngineLogisticsCostReport::GetDefaultAllUnit();
|
ccfactory := DLEngineLogisticsCostReport::GetCCFactory();
|
dlfactory := DLEngineLogisticsCostReport::GetDLFactory();
|
|
startofplanning := owner.StartOfPlanning().Date();
|
startofnextyear := startofplanning.StartOfNextYear();
|
|
table := owner.DLEngineLogisticsCostReport( relnew, ID := name, Name := name );
|
owner.DLEngineLogisticsCostReport( relnew, ID := name + 'Show', Name := name, IsShow := true );
|
owner.DLEngineLogisticsCostSearch( relnew, Generation := allunit, MqbMlb := allunit, Power := allunit );
|
|
products := construct( Product_MPs );
|
|
table.GenerateColumn( owner );
|
//外租库仓储费用：仓储数量/包装容量*仓储单价，在Actual inventories里取到长春外租库/大连外租库该发动机的仓储量，根据发动机号找到对应的Generation 和横纵制，在发动机成本参数表里找到对应的仓储单价和包装容量，用公式计算，月度进行汇总
|
//长春外租库入库/出库费用，大连发动机的长春外租库的New supply
|
traverse( owner, StockingPoint_MP, stockingpoint, stockingpoint.ID().EndsWith( '外租库' ) ){
|
isdltoccrent := stockingpoint.ID().StartsWith( '大连发动机的长春' );
|
isdlrent := not isdltoccrent and stockingpoint.ID().StartsWith( '大连' ) or stockingpoint.ID().StartsWith( 'DL' );
|
if( isdlrent or isdltoccrent){
|
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 or pispip.PlannedInventoryLevelEnd() <> 0 ) ) ){
|
//获取行
|
product := pisp.Product_MP();
|
productparents := product.GetAllParent();
|
if( exists( productparents, Elements, e, e.ID() = produtparent ) ){//查询产品类型是发动机
|
row := table.GetRow( pisp.ProductID() );
|
enginecosts := selectset( owner, LogisticsCostEngine, engine, engine.PackagingCapacity() <> 0 and engine.Generation().ToLower() = product.Generation().ToLower() and engine.MLB_MQB() = product.MQBMLB() );
|
transcosts := selectset( owner, LogisticsCostTransport, trans, trans.LoadingCapacity() <> 0 and exists( productparents, Elements, e, ifexpr( trans.Product().FindString( '发动机', 0 ) >= 0, e.ID() = produtparent, e.ID() = trans.Product() ) ) );
|
if( not isnull( enginecosts ) and enginecosts.Size() > 0 ){
|
traverse( table, Column, column ){
|
pispips := selectset( pisp, ProductInStockingPointInPeriod, pispip, pispip.Start().Date() >= column.StartDate()
|
and pispip.Start().Date() < column.StartDate().StartOfNextMonth()
|
and ( pispip.NewSupplyQuantity() <> 0 or pispip.PlannedInventoryLevelEnd() <> 0 ) );
|
cell := selectobject( row, Cell, cell, cell.Column() = column );
|
newsupplyqty := sum( pispips, Elements, pispip, pispip.NewSupplyQuantity() );
|
plannedinvqty := sum( pispips, Elements, pispip, pispip.PlannedInventoryLevelEnd() );
|
if( isdltoccrent){
|
//在发动机成本参数表找到对应的包装容量
|
enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= column.StartDate() and engine.EndDate() >= column.StartDate()
|
and engine.Factory() = ccfactory );
|
cell.CCRentQty( cell.CCRentQty() + newsupplyqty );
|
//长春外租库入库费用：入库量/包装容量*入库单价
|
entercost := ceil( newsupplyqty / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice();
|
//长春外租库出库费用: 出库量/包装容量*出库单价
|
outcost := ceil( newsupplyqty / enginecost.PackagingCapacity() ) * enginecost.OutboundPrice();
|
cell.CCRentInCost( cell.CCRentInCost() + entercost );
|
cell.CCRentOutOfCost( cell.CCRentOutOfCost() + outcost );
|
cost := ceil( plannedinvqty / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入
|
cell.CCRentStorCost( cell.CCRentStorCost() + cost );//长春外租库仓储费用
|
transcost := selectobject( transcosts, Elements, trans, trans.StartDate() <= column.StartDate() and trans.EndDate() >= column.StartDate() and trans.Origin() = '长春外租库' and trans.Destination() = '客户库' );
|
if( not isnull( transcost ) ){
|
cost := ceil( ceil( newsupplyqty / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();
|
cell.CCShorTransCost( cell.CCShorTransCost() + cost );//长春短途运输费用
|
}
|
} else {
|
//在发动机成本参数表找到对应的包装容量
|
enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= column.StartDate() and engine.EndDate() >= column.StartDate()
|
and engine.Factory() = dlfactory );
|
if( not isnull( enginecost ) ){
|
cost := ceil( plannedinvqty / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入
|
cell.DLRentStorCost( cell.DLRentStorCost() + cost );//大连外租库仓储费用
|
row.SetDLRentEnterCost( column, enginecost, newsupplyqty );//大连外租库入库费用
|
transcost := selectobject( transcosts, Elements, trans, trans.StartDate() <= column.StartDate() and trans.EndDate() >= column.StartDate() and trans.Origin() = '大连厂内库' and trans.Destination() = '大连外租库' );
|
if( not isnull( transcost ) ){
|
cost := ceil( ceil( newsupplyqty / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();//四舍五入
|
row.SetFactoryToRentTransCost( column, cost );
|
}
|
}
|
}
|
}
|
products.Add( pisp.Product_MP() );
|
}
|
}
|
}
|
}
|
}
|
|
//长春长途运输费用：调拨数量/包装容量/装载容量*运输单价，调拨计划里找到该产品从DL到CC的调拨数量，即起始地大连装配线边库，目的地为长春外租库对应的运输数量，在发动机成本参数表找到对应的包装容量，在运输成本参数表里找到发动机对应运输单价和装载容量，用公式计算得出结果，月度进行汇总
|
traverse( owner, Unit.Lane.LaneLeg, laneleg ){
|
//起始库存点是否是大连(大连厂内库）
|
isdl := laneleg.OriginStockingPointID().EndsWith( '厂内库' ) and ( laneleg.OriginStockingPointID().StartsWith( '大连' ) or laneleg.OriginStockingPointID().StartsWith( 'DL' ) );
|
//目的地库存点是否是长春（长春外租库）
|
iscc := laneleg.DestinationStockingPointID() = '大连发动机的长春外租库';
|
if( isdl and iscc ){
|
traverse( table, Column, column){//, column.StartDate().Month() = 1
|
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 ){
|
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 ){//, producttrip = '6912'
|
|
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() = laneleg.OriginStockingPointID()
|
and trans.Destination() = laneleg.DestinationStockingPointID()
|
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();//四舍五入
|
cell := selectobject( row, Cell, cell, cell.Column() = column );
|
cell.CCLongTransCost( cell.CCLongTransCost() + cost )
|
}
|
}
|
}
|
}
|
//traverse( owner, TransferPlanRow, tprow ){
|
// product := selectobject( owner, Product_MP, product, product.ID() = tprow.ProductID() );
|
// productparents := product.GetAllParent();
|
// if( exists( productparents, Elements, e, e.ID() = produtparent ) ){//查询产品类型是发动机
|
// //起始库存点是否是大连(大连厂内库）
|
// isdl := tprow.SourceStockpoingPointID().EndsWith( '厂内库' ) and ( tprow.TargetStockpoingPointID().StartsWith( '大连' ) or tprow.TargetStockpoingPointID().StartsWith( 'DL' ) );
|
// //目的地库存点是否是长春（长春外租库）
|
// iscc := tprow.TargetStockpoingPointID().EndsWith( '外租库' ) and ( tprow.TargetStockpoingPointID().StartsWith( '长春' ) or tprow.TargetStockpoingPointID().StartsWith( 'CC' ) );
|
// if( isdl and iscc ){
|
// //查询对应的发动机成本
|
// 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 );
|
// //在运输成本参数表里找到发动机对应运输单价和装载容量
|
// transcosts := selectset( owner, LogisticsCostTransport, trans, trans.LoadingCapacity() <> 0 and trans.Origin() = tprow.SourceStockpoingPointID()
|
// and trans.Destination() = tprow.TargetStockpoingPointID()
|
// and exists( productparents, Elements, e, ifexpr( trans.Product().FindString( '发动机', 0 ) >= 0, e.ID() = produtparent, e.ID() = trans.Product() ) ) );
|
// if( not isnull( enginecosts ) and enginecosts.Size() > 0 and not isnull( transcosts ) and transcosts.Size() > 0 ){
|
// row := table.GetRow( product.ID() );
|
// products.Add( product );
|
// traverse( tprow,TransferPlanCell, tpcell, tpcell.TransferPlanColumn().ColumnDate() <> Date::MinDate() and [Number]tpcell.Value() > 0){
|
// tpcolumndate := tpcell.TransferPlanColumn().ColumnDate();
|
// enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= tpcolumndate and engine.EndDate() >= tpcolumndate );
|
// transcost := selectobject( transcosts, Elements, trans, trans.StartDate() <= tpcolumndate and trans.EndDate() >= tpcolumndate );
|
// if( not isnull( enginecost ) and not isnull( transcost ) ){
|
// periodtime := tpcolumndate.StartOfMonth();
|
// periodname := periodtime.Format( "M2/D2/Y" );
|
// column := selectobject( table, Column, column, column.Name() = periodname and column.StartDate() = periodtime );
|
//
|
// cost := ceil( ceil( [Number]tpcell.Value() / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();
|
// cell := selectobject( row, Cell, cell, cell.Column() = column );
|
// cell.CCLongTransCost( cell.CCLongTransCost() + cost );
|
// }
|
// }
|
// }
|
// }
|
}
|
}
|
//长春短途运输费用：客户需求数量/包装容量/装载容量*运输单价，客户需求数量取自forecast里sales segment为长春的数量汇总，再用公式计算，月度进行汇总（取客户需求数量换算成车次）
|
allforecast := selectset( owner, SalesDemand.astype( Forecast ), forecast, forecast.Quantity() > 0 and not isnull( forecast.SalesSegment_MP() ) and forecast.StartDate() < startofnextyear and //forecast.ProductID() = '6912' and forecast.StartDate().Month() = 1 and
|
// ( forecast.SalesSegment_MP().Name().StartsWith( 'Changchun' ) or exists( forecast.SalesSegment_MP().GetAllParent(), Elements, psalessegment, psalessegment.Name().StartsWith( 'Changchun' ) ) or
|
( forecast.SalesSegment_MP().Name().StartsWith( 'Foshan' ) or forecast.SalesSegment_MP().Name().StartsWith( 'Tianjin' )
|
or exists( forecast.SalesSegment_MP().GetAllParent(), Elements, psalessegment, psalessegment.Name().StartsWith( 'Foshan' ) or psalessegment.Name().StartsWith( 'Tianjin' ) ) )
|
and exists( forecast.Product_MP().GetAllParent(), Elements, e, e.ID() = produtparent ) );
|
//ccforecasts := selectset( allforecast, Elements, forecast, forecast.SalesSegment_MP().Name().StartsWith( 'Changchun' ) or exists( forecast.SalesSegment_MP().GetAllParent(), Elements, psalessegment, psalessegment.Name().StartsWith( 'Changchun' ) ) );
|
//ccproducts := selectuniquevalues( ccforecasts, Elements, forecast, forecast.ProductID() );
|
dlforecasts := selectset( allforecast, Elements, forecast, forecast.SalesSegment_MP().Name().StartsWith( 'Foshan' ) or forecast.SalesSegment_MP().Name().StartsWith( 'Tianjin' )
|
or exists( forecast.SalesSegment_MP().GetAllParent(), Elements, psalessegment, psalessegment.Name().StartsWith( 'Foshan' ) or psalessegment.Name().StartsWith( 'Tianjin' ) ) );
|
dlproducts := selectuniquevalues( dlforecasts, Elements, forecast, forecast.ProductID() );;
|
//traverse( ccproducts, Elements, ccproduct){
|
// product := selectobject( owner, Product_MP, product, product.ID() = ccproduct );
|
//// info( '************', product.ID(), exists( ccforecasts, Elements, forecast, forecast.Quantity() > 0 ));
|
// //查询对应的发动机成本
|
// 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 );
|
// //在运输成本参数表里找到发动机对应运输单价和装载容量
|
// transcosts := selectset( owner, LogisticsCostTransport, trans, trans.LoadingCapacity() <> 0 and trans.Origin() = '长春外租库'
|
// and trans.Destination() = '客户库'
|
// and exists( product.GetAllParent(), Elements, e, ifexpr( trans.Product().FindString( '发动机', 0 ) >= 0, e.ID() = produtparent, e.ID() = trans.Product() ) ) );
|
// if( not isnull( enginecosts ) and enginecosts.Size() > 0 and not isnull( transcosts ) and transcosts.Size() > 0 ){
|
// row := table.GetRow( ccproduct )
|
// products.Add( product );
|
// traverse( table, Column, column ){
|
// allpsdips := selectset( ccforecasts, Elements.PlanningSalesDemandInPeriod, psdip, psdip.ProductID() = ccproduct and psdip.Quantity() > 0 and psdip.StartDate() < column.StartDate().StartOfNextMonth() and psdip.StartDate() >= column.StartDate() );
|
// enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= column.StartDate() and engine.EndDate() >= column.StartDate() );
|
// transcost := selectobject( transcosts, Elements, trans, trans.StartDate() <= column.StartDate() and trans.EndDate() >= column.StartDate() );
|
// if( not isnull( enginecost ) and not isnull( transcost ) ){
|
// quantity := sum( allpsdips, Elements, psdip, psdip.Quantity() );
|
// cost := ceil( ceil( quantity / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();
|
// cell := selectobject( row, Cell, cell, cell.Column() = column );
|
// cell.CCShorTransCost( cell.CCShorTransCost() + cost );
|
// }
|
// }
|
// }
|
//}
|
traverse( dlproducts, Elements, ccproduct){
|
|
row := table.GetRow( ccproduct )
|
product := selectobject( owner, Product_MP, product, product.ID() = ccproduct );
|
//查询对应的发动机成本
|
enginecosts := selectset( owner, LogisticsCostEngine, engine, engine.PackagingCapacity() <> 0 and engine.Generation().ToLower() = product.Generation().ToLower()
|
and engine.MLB_MQB() = product.MQBMLB()and engine.Factory() = dlfactory );
|
if( not isnull( enginecosts ) and enginecosts.Size() > 0 ){
|
traverse( table, Column, column ){
|
allpsdips := selectset( dlforecasts, Elements.PlanningSalesDemandInPeriod, psdip, psdip.ProductID() = ccproduct and psdip.Quantity() > 0 and psdip.StartDate() < column.StartDate().StartOfNextMonth() and psdip.StartDate() >= column.StartDate() );
|
enginecost := selectobject( enginecosts, Elements, engine, engine.StartDate() <= column.StartDate() and engine.EndDate() >= column.StartDate() );
|
if( not isnull( enginecost ) ){
|
products.Add( product );
|
quantity := sum( allpsdips, Elements, psdip, psdip.Quantity() );// + psdip.FulfilledQuantity()
|
|
cost := ceil( quantity / enginecost.PackagingCapacity() ) * enginecost.OutboundPrice();
|
row.SetDLRentOutCost( column, cost );
|
}
|
}
|
}
|
}
|
|
//rows := selectsortedset( table, Row, row, row.Name() );
|
//i := 0;
|
//traverse( rows, Elements, e ){
|
// e.RowNr( i );
|
// i := i + 1;
|
//}
|
info( '-------------------------------------end----------------------------------' );
|
//
|
//showtable.Generate( search, products );
|
*]
|
}
|
