| | |
|---|
| | | #parent: #root |
|---|
| | | Method SetDLRentOutCost ( |
|---|
| | | DLEngineLogisticsCostColumn column, |
|---|
| | | LogisticsCostEngine enginecost, |
|---|
| | | FinancialSalesCell fscell |
|---|
| | | Real quantity |
|---|
| | | ) |
|---|
| | | { |
|---|
| | | TextBody: |
|---|
| | | [* |
|---|
| | | // 甄兰鸽 Jun-24-2024 (created) |
|---|
| | | cell := selectobject( this, Cell, cell, cell.Column() = column ); |
|---|
| | | quantity := [Number]fscell.Value() - cell.CCRentQty(); |
|---|
| | | //入库量/包装容量*入库单价，入库量等于长春产量 |
|---|
| | | cost := ceil( quantity / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice(); |
|---|
| | | |
|---|
| | | value := cell.DLRentOutOfCost() + cost; |
|---|
| | | value := cell.DLRentOutOfCost() + quantity; |
|---|
| | | cell.DLRentOutOfCost( value ); |
|---|
| | | *] |
|---|
| | | } |
|---|
