GitHub и Nav

[daimon67]

Цитата:

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

Хочу понять объектную модель. Чего откуда вызывать хоть.

взял пример со странички скачивания мибусо

C:\> $na = new-object -com NavisionAutomation.1

C:\> $rot = $na.RunningObjectTable

C:\> $rot.names
lists all instances

C:\> $objectdesigner = $rot.ObjectDesigner(1)
get objectdesigner instance (index 1 in runningobjecttable)

C:\> $strm = $objectdesigner.ReadObject(1,18)
get stream for table (=1) object (=18)

перенес код в Navision

Name	DataType	Subtype	Length
NavObj	Automation	'Navision Automation'.diobjectdesigner	
NavRuningObj	Automation	'Navision Automation'.DIRunningObjectTable	
NavAuto	Automation	'Navision Automation'.NavisionAutomation

CREATE(NavAuto);
NavRuningObj := NavAuto.RunningObjectTable;
NavObj := NavRuningObj.ObjectDesigner(1);

на последней строчке ругается

---------------------------
Microsoft Dynamics NAV
---------------------------
Это сообщение для C/AL программистов:

Этот тип данных не поддерживается C/SIDE. Вы можете использовать данные
любого из следующих типов:
VT_VOID, VT_I2, VT_I4, VT_R4, VT_R8, VT_CY, VT_DATE, VT_BSTR и VT_BOOL

---------------------------
ОК
---------------------------

Специально зашёл под логином, под которым не заходил очень долго!)

Проблема в том, что метод NavRuningObj.ObjectDesigner(1) не понимает Navision типа Integer. Создайте переменную типа Variant, и присвойте ей значение 1. И все заработает.