1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Quintiq file version 2.0
| #parent: #root
| MethodOverride ConvertToAccountCost
| {
| TextBody:
| [*
| unit := Unit::FindUnitTypeIndex( this.UnitID() );
| acc := Account_MP::FindAccountTypeIndex( this.AccountName() );
|
| if( not isnull( unit )
| and not isnull( acc )
| and not exists( unit, UnitCost, uc,
| uc.AccountName() = acc.Name()
| and uc.CostDriver() = this.CostDriver()
| and uc.Start() = this.Start() ) )
| {
| UnitCost::Create( OS::GenerateGUIDAsString(),
| unit, acc, this.CostDriver(), this.Start(),
| this.TimeUnit(), this.LengthOfTime(), this.Cost(),
| false );
| }
| *]
| }
|
|
