| | |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | // 设置拆包值（符合lotsize和一日最大包装量） |
|---|
| | | traverse ( macroPlan, PackagingPlanRow, ppr/*, ppr.Factory() = "大连工厂" and ppr.ProductID() = "06K103011CM"*/ ) { |
|---|
| | | traverse ( ppr, PackagingPlanCell, ppcell/*, ppcell.StartDate() <= Date::Construct( 2025, 1, 4 )*/ ) { |
|---|
| | | // Product_MP |
|---|
| | | pmp := select( macroPlan, Product_MP, tempPMP, tempPMP.IsLeaf() and tempPMP.ID() = ppr.ProductID() ); |
|---|
| | | // 包装lotsize |
|---|
| | | ppls := select( macroPlan, PackagingPlanLotSize, tempPPLS, tempPPLS.Factory() = ppr.Factory() and |
|---|
| | | tempPPLS.ProductID() = ifexpr( exists( macroPlan, PackagingPlanLotSize, tempPPLS1, tempPPLS1.ProductID() = pmp.ID() ), |
|---|
| | | pmp.ID(), |
|---|
| | | pmp.ParentID() ) ); |
|---|
| | | // 一日包装容量 |
|---|
| | | ppnc := select( macroPlan, PackagingPlanNewCapability, tempPPNC, tempPPNC.Factory() = ppr.Factory() and |
|---|
| | | tempPPNC.ProductID() = ifexpr( exists( macroPlan, PackagingPlanNewCapability, tempPPNC1, tempPPNC1.ProductID() = pmp.ID() ), |
|---|
| | | pmp.ID(), |
|---|
| | | pmp.ParentID() ) ); |
|---|
| | | // Unit |
|---|
| | | us := selectset( macroPlan, Unit, tempU, tempU.ID().Regex( ppr.FactoryAbbreviation() + " " + ppr.Category() ) ); |
|---|
| | | |
|---|
| | | // 当前非包装库存 + 下一天的NewSupply < 下一天的净需求 |
|---|
| | | if ( ppcell.UnpackagedInventory() < guard( ppcell.Next().NetDemand(), 0 ) and not isnull( ppls ) and not isnull( ppnc ) ) { |
|---|
| | | // 需要包装的数量 |
|---|
| | | needPackagingQuantity := abs( ppcell.PackagingInventory() ).Round( 0 ); |
|---|
| | | // 包装开始的索引 |
|---|
| | | indexPPCell := ppcell.Previous(); |
|---|
| | | |
|---|
| | | // info( "产线个数：", us.Size(), " 开始时间：", ppcell.StartDate().Format( "Y-M2-D2" ), " 包装库存数量：", ppcell.PackagingInventory(), " 需要包装的数量：", needPackagingQuantity, |
|---|
| | | // " 包装lotsize：",guard( ppls.LotSize(), 0 ), " 最大包装容量：", ppnc.MaximumDailyPackagingQuantity() ); |
|---|
| | | |
|---|
| | | while ( not isnull( indexPPCell ) and |
|---|
| | | indexPPCell.StartDate() >= plannedStartDate and |
|---|
| | | exists( us, Elements.UnitPeriod.astype( UnitPeriodTime ).ShiftPlan, tempSP, |
|---|
| | | tempSP.UnitPeriodTime().StartDate() = indexPPCell.StartDate(), |
|---|
| | | tempSP.Outcome() <> "" ) and |
|---|
| | | needPackagingQuantity > 0 ) { |
|---|
| | | // 能包装的数量 |
|---|
| | | canPackagingQuantity := ifexpr( ceil( needPackagingQuantity / ppls.LotSize() ) < floor( ppnc.MaximumDailyPackagingQuantity() / ppls.LotSize() ), |
|---|
| | | ceil( needPackagingQuantity / ppls.LotSize() ), |
|---|
| | | floor( ppnc.MaximumDailyPackagingQuantity() / ppls.LotSize() ) ) * ppls.LotSize(); |
|---|
| | | // info( "开始包装的日期：", indexPPCell.StartDate().Format( "Y-M2-D2" ), " 能包装的数量:", canPackagingQuantity ); |
|---|
| | | |
|---|
| | | indexPPCell.Package( canPackagingQuantity ); |
|---|
| | | Transaction::Transaction().Propagate( attribute( PackagingPlanCell, PackagingInventory ) ); |
|---|
| | | Transaction::Transaction().Propagate( attribute( PackagingPlanCell, UnpackagedInventory ) ); |
|---|
| | | |
|---|
| | | needPackagingQuantity := needPackagingQuantity - canPackagingQuantity; |
|---|
| | | indexPPCell := indexPPCell.Previous(); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | *] |
|---|
| | | } |
|---|
