| | |
|---|
| | | Method SetDLRentEnterCost ( |
|---|
| | | DLEngineLogisticsCostColumn column, |
|---|
| | | LogisticsCostEngine enginecost, |
|---|
| | | FinancialProductionCell fpcell |
|---|
| | | Real quantity |
|---|
| | | ) |
|---|
| | | { |
|---|
| | | TextBody: |
|---|
| | | [* |
|---|
| | | // 甄兰鸽 Jun-24-2024 (created) |
|---|
| | | cell := selectobject( this, Cell, cell, cell.Column() = column ); |
|---|
| | | quantity := fpcell.Quantity() - cell.CCRentQty(); |
|---|
| | | //入库量/包装容量*入库单价，入库量等于长春产量 |
|---|
| | | cost := ceil( quantity / enginecost.PackagingCapacity() ) * enginecost.WarehousingPrice(); |
|---|
| | | othercost := ceil( quantity / enginecost.PackagingCapacity() ) * enginecost.OtherPrice(); |
|---|
