成本参数优化

admin

2024-09-23 65dfa3d300ec95e9531283d0a3fc07558c844078

 _Main/BL/Type_CCEngineLogisticsCostReport0/StaticMethod_InitializeNew.qbl

@@ -64,7 +64,7 @@
                cell         := selectobject( row, Cell, cell, cell.Column() = column );
                //运输数量/包装容量/装载容量*运输单价
                cost         := ceil( ceil( quantity / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();//四舍五入
                cell.FactoryToDLRentTransCost( cell.FactoryToDLRentTransCost() + cost );
    //            cell.FactoryToDLRentTransCost( cell.FactoryToDLRentTransCost() + cost );属性类型修改
              }
    //          if( isccrent ){//目的地是长春外租库
    //            //在发动机成本参数表找到对应的包装容量
@@ -178,7 +178,7 @@
                 
                cost           := ceil( ceil( [Number]tpcell.Value() / enginecost.PackagingCapacity() ) / transcost.LoadingCapacity() ) * transcost.TransportPrice();
                cell           := selectobject( row, Cell, cell, cell.Column() = column );
                cell.CCLongTransCoat( cell.CCLongTransCoat() + cost );
    //            cell.CCLongTransCoat( cell.CCLongTransCoat() + cost );属性类型修改
              }
            }
          }
@@ -212,7 +212,7 @@
          //      info( '-------------------------', column.Name() );
                cost           := ceil( [Number]psdip.Quantity() / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice();
                cell           := selectobject( row, Cell, cell, cell.Column() = column );
                cell.CCShortTransCost( cell.CCShortTransCost() + cost );
    //            cell.CCShortTransCost( cell.CCShortTransCost() + cost );属性类型修改
              }
            }
          }
@@ -250,7 +250,7 @@
                                                     and engine.Factory() = ccunit );
                   if( not isnull( enginecost ) ){
                     cost        := ceil( [Number]pispip.NewSupplyQuantity() / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入
                     cell.CCRentStorageCost( cell.CCRentStorageCost() + cost );
    //                 cell.CCRentStorageCost( cell.CCRentStorageCost() + cost );属性类型修改
                   }
                } else {
                  //在发动机成本参数表找到对应的包装容量
@@ -258,7 +258,7 @@
                                                     and engine.Factory() = dlunit  );
                   if( not isnull( enginecost ) ){
                     cost        := ceil( [Number]pispip.NewSupplyQuantity() / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入
                     cell.DLRentStorageCost( cell.DLRentStorageCost() + cost );;
    //                 cell.DLRentStorageCost( cell.DLRentStorageCost() + cost );属性类型修改
                   }
                }
              }