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

[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');
}

[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();

[Vadik]

Цитата:

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

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

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

[Gustav]

Цитата:

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

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

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

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

[Vadik]

Цитата:

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

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

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