| Quintiq file version 2.0 | 
| #parent: #root | 
| Method CreatePISPAccount | 
| { | 
|   Description: 'Create PISP account for this inentory value and cost.' | 
|   TextBody: | 
|   [* | 
|     // Adhi May-5-2016 (created) | 
|     inventorysupply := this.InventorySupply(); | 
|     stockingpoint := inventorysupply.StockingPoint_MP(); | 
|      | 
|     if( isnull( stockingpoint )) | 
|     { | 
|       stockingpoint := StockingPoint_MP::FindStockingPointTypeIndex( inventorysupply.StockingPointID() ); | 
|     } | 
|      | 
|     account := select( this.MacroPlan(), Account_MP, acc, | 
|                        acc.Name() = this.AccountName() ); | 
|      | 
|     if( not isnull( account ) ) | 
|     { | 
|       PISPAccount::Assign( account, | 
|                            inventorysupply.Product_MP(), | 
|                            stockingpoint, | 
|                            this.CostDriver() ); | 
|     } | 
|      | 
|     this.UpdateForeignKey( inventorysupply.ID() ); | 
|   *] | 
| } |