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
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  Method ConvertToCost 
 |  { 
 |    TextBody: 
 |    [* 
 |      // DWE2 Jun-7-2016 (created) 
 |      product := Product_MP::FindProductTypeIndex( this.ProductID() ); 
 |      sp := StockingPoint_MP::FindStockingPointTypeIndex( this.StockingPointID() ); 
 |      acc := Account_MP::FindAccountTypeIndex( "Inventory value" ) 
 |       
 |      if( not isnull( product ) 
 |          and not isnull( sp ) 
 |          and not isnull( acc ) 
 |          and not exists( product, InventoryValueAndCost, ivc, 
 |                          ivc.AccountName() = acc.Name() 
 |                          and ivc.StockingPointID() = sp.ID() 
 |                          and ivc.CostDriver() = "Inventory value" 
 |                          and ivc.Start() = this.Start() ) ) 
 |      { 
 |        InventoryValueAndCost::Create( OS::GenerateGUIDAsString(), 
 |                                       product, sp, acc, 
 |                                       "Inventory value", this.Start(), 
 |                                       this.Value(), 
 |                                       false ); 
 |      } 
 |    *] 
 |  } 
 |  
  |