Привет, всем!
Пытаюсь получить данные из справочника Номенклатура 1С предприятия 7.7 в Visual Basic через OLE. Не получается, помогите, кто знает!
На кнопку в форму повесил код. Попытка получить любой параметр (напрмер Розничную цену) приводит к ошибке.
Option Explicit
Private Sub Command1_Click()
Dim odins As Object
Dim nom As Object
Dim xx As Integer
Set odins = CreateObject("V77.Application")
If odins.Initialize(odins.rmtrade, "D/H:\\baseTorg\\base2003\\ /Nuser /Ppassword", "NO_SPLASH_SHOW") Then
MsgBox ("Connect and init OK")
Open "C:\\devstudio\\OLE_1C\\nom.txt" For Output As #2
Set nom = odins.CreateObject("Reference.Номенклатура")
Rem Set nom = odins.CreateObject("Справочник.Номенклатура") - тоже работает...
xx = nom.selectitems()
Do While nom.getitem() = 1
Print #2, nom.Level
Print #2, nom.Description
Print #2, nom.code
Rem А вот на этой строке все ломается. Без нее все ОК.
Rem На ней бейсиком выдается ошибка Run-time error 13 Несовпадение типов.
Print #2, nom.РозничнаяЦена
Rem Реквизит розничная цена имеется в стравочнике - в конфигурации прописана.
Print #2, "----------------------------------------"
Loop
Else
MsgBox ("Connect and init failed")
End If
Close #2
End Sub