长春/大连发动机物流报表字段类型调整

lazhen

2024-09-24 8b28a76dac37e1d5d8447dbc83ec06a83d1585cf

 _Main/BL/Type_CCEngineLogisticsCostReport0/StaticMethod_Initialize.qbl

@@ -67,8 +67,8 @@
                  entercost  := ceil( quantity / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice();
                  //长春外租库出库费用: 出库量/包装容量*出库单价
                  outcost    := ceil( quantity / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice();
    //              cell.CCRentEnterCost( cell.CCRentEnterCost() + entercost ); // 属性类型修改
    //              cell.CCRentOutCost( cell.CCRentOutCost() + outcost ); // 属性类型修改
                  cell.CCRentInCost( cell.CCRentInCost() + entercost ); 
                  cell.CCRentOutOfCost( cell.CCRentOutOfCost() + outcost ); 
                }
              }
              if( isdlrent ){//目的地是大连外租库
@@ -85,7 +85,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.WerkToDLRentTransCost( cell.WerkToDLRentTransCost() + cost );
                }
              }
            }
@@ -183,7 +183,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.CCLongTransCost( cell.CCLongTransCost() + cost ); 
              }
            }
          }
@@ -217,7 +217,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.CCShorTransCost( cell.CCShorTransCost() + cost ); 
              }
            }
          }
@@ -255,7 +255,7 @@
                                                     and engine.Factory() = ccunit );
                   if( not isnull( enginecost ) ){
                     cost        := ceil( [Number]pispip.NewSupplyQuantity() / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入
    //                 cell.CCRentStorageCost( cell.CCRentStorageCost() + cost ); 属性类型修改
                     cell.CCRentStorCost( cell.CCRentStorCost() + cost ); 
                   }
                } else {
                  //在发动机成本参数表找到对应的包装容量
@@ -263,7 +263,7 @@
                                                     and engine.Factory() = dlunit  );
                   if( not isnull( enginecost ) ){
                     cost        := ceil( [Number]pispip.NewSupplyQuantity() / enginecost.PackagingCapacity() ) * enginecost.StoragePrice();//四舍五入
    //                 cell.DLRentStorageCost( cell.DLRentStorageCost() + cost );; 属性类型修改
                     cell.DLRentStorCost( cell.DLRentStorCost() + cost );
                   }
                }
              }