Работа с Lotus посредством VBA

[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. Может какой джобик для примера найдется?

[Gustav]

А что сделать-то надо? Преобразовать процедуру на VBA в джоб на X++ ? Или загрузить номенклатуру из Аксапты в Лотус?

[VKUR]

Цитата:

Сообщение от Gustav

А что сделать-то надо? Преобразовать процедуру на VBA в джоб на X++ ? Или загрузить номенклатуру из Аксапты в Лотус?

Для начала хотя бы преобразовать в джоб
Стоит задача настроить внесение изменений в Lotus (в реальном времени) при создании/корректировке номенклатуры в АХ

[Gustav]

Цитата:

Сообщение от VKUR

Для начала хотя бы преобразовать в джоб

ну, подход примерно такой:

1. описываем переменные как str
str recid;
str imtetype;
и остальные тоже

2. описываем вот эти объектные переменные как COM
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

т.е заменяем на
COM s;
COM db;
и т.д.

3. Далее для воплощения оператора New NotesSession нужно знать строковый идентификатор этого COM-объекта.

например, для Excel это "Excel.Application" и строка создания выглядит так:
xlApp = new COM("Excel.Application");

а вам нужно аналогичное для NotesSession (вместо многоточия):
s = new COM("...");

4. В конце каждого оператора - точка с запятой : s.Initialize(Password);

5. Для объектов слово Set не надо, просто присваивание: db = s.GetDatabase(Server, Path);

6. Если у метода нет параметров, то все равно круглые скобки в конце: doc = db.CreateDocument();

7. Конструкцию "If doc Is Nothing Then" заменяем на "if (!doc)"

8. Select Case => switch

9. Ключевое слово Call не надо.

ну и т.д. Начинайте!

P.S. 10. Оператор Path$ = "dev\po2.nsf" , содержащий обратный слэш можно преобразовать либо так c удвоением: path = 'dev\\po2.nsf'; либо так с собакой: path = @'dev\po2.nsf';

[Gustav]

Как вариант с минимальными усилиями: можете попробовать запускать из Аксапты вашу VBA-процедуру в первозданном эксельном виде на невидимом эксельном хосте при помощи следующего джоба:

static void Job_CreateNomenclature(Args _args)
{
    COM xlApp, wbks, wbk;
    ;
    xlApp = new COM('Excel.Application');

    wbks = xlApp.Workbooks();
    wbk  = wbks.Open(@'C:\YourExcelFile.xls');

    xlApp.Run('CreateNomenclature');
}

[#bet]

А еще есть такая штука как "Мастер оболочек СОМ объектов"
Сервис\Средства разработки\Мастера\Мастер оболочек для СОМ-объектов

С помощью мастера создаем набор классов-обверток для Лотуса, ну а дальше дело техники...

[Vadik]

Цитата:

Сообщение от VKUR

Может кто знает?

Простите, Вы предыдущие сообщения внимательно прочитали?

[Gustav]

Цитата:

Сообщение от VKUR

Может кто знает?

Честно говоря, обычно получал подобную информацию как бы уже в готовом виде (например, из книжек). Знаю, что строка "Excel.Application" прописана во многих местах реестра Windows. Из какого именно узла реестра читается эта строка в операторе new COM("...") - не знаю. Попробуйте поискать в реестре по словам: Lotus, Notes, Session. Можно полистать вручную ветку реестра Мой компьютер\HKEY_CLASSES_ROOT с целью визуального обнаружения этих же слов. Скорее всего, у вас что-то типа "Notes.Session" и будет, хотя и не обязательно.

Коллеги, если кто-то владеет для подобных случаев процедурой четкого выхода сразу на нужный идентификатор без эвристических метаний по реестру - поделитесь, буду тоже премного благодарен.

[Vadik]

Цитата:

Сообщение от VKUR

Может кто знает?

ищите Lotus Notes COM toolkit
правда, сейчас его вендор с сайта почему-то не дает

[Yugene]

Могу ошибаться, но, кажется, для Лотуса есть ODBC драйвер...

[Gustav]

Похоже просто так: Lotus.NotesSession (во всяком случае поиск в гугле по строке "ClassID для NotesSession" дает много таких ссылок)

[#bet]

А еще есть такая штука в самом Лотусе: "Lotus Domino Designer Help"

Там все подробненько описано...

[Ashir]

Если у вас на машине стоит клиент LotusNotes, то:
1 откройте редактор VBA кода
2 Tools->References, добавить ссылку на Lotus Domino Objects
3 запустите ObjectBrowser
4 в списке библиотек выбрать Domino
и вам откроются недры СОМ интерфейса LonusNotes.
заодно посмотрите это: http://www-128.ibm.com/developerwork...ls-COM_Access/
http://www.intertrust.ru/help/help6_...n?OpenFrameSet
http://forum.codeby.net/forum11.html

[VKUR]

Цитата:

Сообщение от Gustav

ну, подход примерно такой:

Снова здорова

Проект = doc.GetItemValue("fldProject")(0)

То есть получение первого элемента массива. Не могу понять как это будет выглядеть в Х++

[kvg6]

Цитата:

Сообщение от VKUR

Проект = doc.GetItemValue("fldProject")(0)

Видимо так

array  = Doc.GetItemValue("fldProject");
         = array.value(1);

[VKUR]

Цитата:

Сообщение от VKUR

То есть получение первого элемента массива. Не могу понять как это будет выглядеть в Х++

Разобрался
Вот так работает:

COMArray = COMDoc.GetFirstItem("fldProject");
 = COMArray.text();

[Gustav]

Наверное, даже можно сэкономить на одной строчке и на промежуточной переменной:

 = COM::createFromObject( COMDoc.GetFirstItem("fldProject") ).text();