Օրինակ/ICurrentTree,RegistrFunction
Ստորև բերված է ծառ-տեղեկատույի Functions իրադարձության մշակիչի օրինակ։
Օրինակում կանչում է RegistrFunction
մեթոդը, որը համատեքստի մենյույում ավելացնում է գործողություն՝ «Նոր այց»։
Գործողության աշխատացնելուց կատարվում է CreateSp
ֆունկցիան, որը ստեղծում է "spasoper"
փաստաթղթի նոր օրինակ։
Այս գործողությունը հասանելի կլինի միայն NbAcc
, NewDoc
և Adm
աշխատատեղերում։
Public Sub Functions()
CurrentTree.RegistrFunction "Նոր այց", "CreateSp", "NbAcc; NewDoc; Adm", , "New Visit"
End Sub
Public Sub CreateSp()
Dim tmpDoc As AsDoc
Set tmpDoc = CreateDoc("spasoper")
tmpDoc("PartCode") = CurrentTree.CurrentNode("CODE")
tmpDoc.Show
End Sub