Value Tree on multiple levels

&AtServer
Function StockDisplay (This)
   
   ConvertedValueTree = FormAttributeToValue("StocksTree");
   ConvertedValueTree.Rows.Clear();
   
   
   Frunze = DisplayStockFunctionsV2.GetAllArticlesWithStockFromSpecifiedLocation(This.Code);
   
   ArticoleStockGeneral = DisplayStockFunctionsV2.SearchForAllArticleStock(This, Frunze); //ValueTable   
   n = ArticoleStockGeneral.Count();
   
   For i=0 To n-1 Do
      
      NewRow = ConvertedValueTree.Rows.Add();
      NewRow.Name = ArticoleStockGeneral[i].Article.Description;
      NewRow.TotalStock = ArticoleStockGeneral[i].Stock;
      
      ListaLocatii = DisplayStockFunctionsV2.SearchForAllArticleLocations(This, ArticoleStockGeneral[i].Article);
      m =  ListaLocatii.Count();
      For j=0 To m-1 Do
         NewRow_1 = NewRow.Locations.Rows.Add();
         NewRow_1.Name = ListaLocatii[j].Value.Description; 
         
         DetaliiStock = DisplayStockFunctionsV2.SearchForArticleDetailedStock(ListaLocatii[j].Value.Ref, ArticoleStockGeneral[i].Article);
         NewRow_1.Stock = DetaliiStock.Total("Qty");
         
         p = DetaliiStock.Count();
         For k=0 To p-1 DO
            
            NewRow_2 = NewRow_1.StockInputs.Rows.Add();
            NewRow_2.Date = DetaliiStock[k].Date;
            NewRow_2.Quantity = DetaliiStock[k].Qty;

         EndDo;
      EndDO;
   EndDo;
   
   ValueToFormAttribute(ConvertedValueTree, "StocksTree");
   
   
EndFunction

   StocksTreeValue = FormAttributeToValue("StocksTree");
   
   NewStock = StocksTreeValue.Rows.Add();
   NewStock.Name = NStr("en = 'Stock'");
   NewStock.TotalStock = 100;
   
   NewLocation = NewStock.Rows.Add();
   NewLocation.Name = NStr("en = 'Location'");
   NewLocation.Stock = 18;
   NewLocation.IsLocation = True;
   
   NewStockInput = NewLocation.Rows.Add();
   NewStockInput.Date = CurrentSessionDate();
   NewStockInput.Quantity = 4;
   NewStockInput.IsStockInput = True;
   
   ValueToFormAttribute(StocksTreeValue, "StocksTree");