yanweiyuan3
2023-08-09 588bc7829387dfc761cc25f06f77d4c81818bd10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Quintiq file version 2.0
#parent: #root
MethodOverride ConvertToAccountCost
{
  TextBody:
  [*
    operation := Operation::FindOperationTypeIndex( this.OperationID() );
    acc := Account_MP::FindAccountTypeIndex( this.AccountName() );
    
    if( not isnull( operation )
        and not isnull( acc )
        and not exists( operation, OperationCost, uc,
                        uc.AccountName() = acc.Name() 
                        and uc.CostDriver() = this.CostDriver()
                        and uc.Start() = this.Start() ) )
    {    
      OperationCost::Create( OS::GenerateGUIDAsString(),
                             operation, acc, this.CostDriver(), this.Start(),
                             this.TimeUnit(), this.LengthOfTime(), this.Cost(), false );
    }
  *]
}