[VKUR]

Всем привет!
Есть код VBA создающий номенклатуру в Lotus, взятый из макроса Excel

Sub CreateNomenclature()
    '===============поля из аксапты
    recid$ = ""
    imtetype$ = ""
    itemid$ = ""
    ItemName$ = ""
    bname$ = ""
    cname$ = ""
    dname$ = ""
    ename$ = ""
    '============== 
    Password$ = "password" ' пароль на тот notesid, что установлен на машине
    Server$ = "dev-server.lipa.ru/Lipa" ',   "зз"
    Path$ = "dev\po2.nsf" 'путь к бд "зз"
    
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    s.Initialize (Password$)
    Set db = s.GetDatabase(Server$, Path$)
    Set view = db.GetView("viewNomenclaturebyRecId")
    Set doc = view.GetDocumentByKey(recid$)
    If doc Is Nothing Then
        Set doc = db.CreateDocument
        Call doc.ReplaceItemValue("form", "formNomenclature")
        Call doc.ReplaceItemValue("fldRecId", recid$)
    End If
    Select Case itemtype$
        Case 0: Call doc.ReplaceItemValue("fldItemType", "Номенклатура")
        Case 1: Call doc.ReplaceItemValue("fldItemType", "Спецификация")
        Case 2: Call doc.ReplaceItemValue("fldItemType", "Услуга")
        Case 3: Call doc.ReplaceItemValue("fldItemType", "Основные средства")
        Case 4: Call doc.ReplaceItemValue("fldItemType", "Финансовое вложение")
        Case Else: Call doc.ReplaceItemValue("fldItemType", "Неизвестный тип")
    End Select
    Call doc.ReplaceItemValue("fldItemId", itemid$)
    Call doc.ReplaceItemValue("fldItemName", ItemName$)
    Call doc.ReplaceItemValue("fldbname", bname$)
    Call doc.ReplaceItemValue("fldcname", cname$)
    Call doc.ReplaceItemValue("flddname", dname$)
    Call doc.ReplaceItemValue("fldename", ename$)
    Call doc.Save(False, False)
End Sub

Не могу разобраться, как мне запихать все это в Axapta. Может какой джобик для примера найдется?