修复一些bug

xiaoding721

2024-12-03 6c75b96c8b75d10226546637445c4ac50db3897d

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Quintiq file version 2.0
#parent: #root
Method GetValue (
  output Real value_o,
  output Real valuewithinhorizon_o
) declarative
{
  Description: 'Return the final value of account after deduction.'
  TextBody:
  [*
    // soh yee Dec-18-2013 (created)
    
    if( this.IsMargin() )
    {
      // Sales
      traverse( this, MacroPlan.FinancialAccount, account,
                account.AccountTypeName() = Translations::MP_Account_AccountTypeSales()
                and isnull( account.Parent() ) )
      {
        value_o := value_o + account.Cost();
        valuewithinhorizon_o := valuewithinhorizon_o + account.CostWithinHorizon();
      }
    
      // Cost of sales - sum up cost of sales account on the highest level
      traverse( this, MacroPlan.FinancialAccount, account,
                account.AccountTypeName() = Translations::MP_Account_AccountTypeCostOfSales()
                and isnull( account.Parent() ) )
      {
        value_o := value_o - account.Cost();
        valuewithinhorizon_o := valuewithinhorizon_o - account.CostWithinHorizon();
      }
    }
    else
    {
      value_o := this.Cost();
      valuewithinhorizon_o := this.CostWithinHorizon();
    }
  *]
}