Օրինակ/Folders

Sub Folders()
Dim xFoldEl As AsFoldElement, xTreeEl As AsTreeElement
    ' Փաստաթուղթը տեղադրվում է NBACC թղթապանակի մեջ
    Set xFoldEl = CreateFolderElement("NBACC")
    xFoldEl.Com = Doc("Name")
    xFoldEl.Ecom = Doc("EName")
    xFoldEl.Spec = Doc("NOMDOK") & Doc.Formatted("MTCCOUNT") & Doc("COMENT") 
    xFoldEl.Status = "O"
    Doc.StoreInFolder xFoldEl
 
    ' Փաստաթուղթը տեղադրվում է NbalAcc ծառ-տեղեկատուի մեջ
    Set xTreeEl = CreateTreeElement("NbalAcc")
    xTreeEl.Com = Doc("Name")
    xTreeEl.Ecom = Doc("EName")
    xTreeEl.Key = Doc("CODE")
    xTreeEl.Parent = Doc("CODEBAL")
    Doc.StoreInTree xTreeEl
End Sub