Как Создать контрагента из программы на visual basic

Karlus · 29 авг 2012, 19:14

Добрый день. Подскажите, пожалуйста, как можно создать контрагента?
Вот кусок моего кода
Dim K = cntr.CreateObject("Справочник.Контрагенты")
K.Новый()
K.Наименование = TextBox1.Text
K.ВидКонтрагента = cntr.Перечисление.ВидыКонтрагентов("Организация")
Dim R = cntr.CreateObject("Справочник.Контрагенты")
If R.НайтиПоКоду("00000002", 0, 0) = 1 Then
K.Родитель = R.ТекущийЭлемент()
End If
K.Записать()
Ругается на строки
K.Родитель = R.ТекущийЭлемент() и K.ВидКонтрагента = cntr.Перечисление.ВидыКонтрагентов("Организация") - Значение не попадает в ожидаемый диапазон
Пишу на Visual Basic 2008

sadovod · 29 авг 2012, 20:28

Я для 8.2 так делал (код на VBA, писал в Excel'e):
Sub Explore1C()

Set comcon1C = CreateObject("V82.ComConnector")
Set base1C = comcon1C.connect("File=e:\temp\DB_location;Usr=Администратор")

Set Contractors = base1C.NewObject("СправочникМенеджер.Контрагенты")

Set NewContractor = Contractors.CreateItem ' это СоздатьЭлемент() в 1С
NewContractor.Description = "Наименование Контрагента" ' это стандартный реквизит Наименование в 1С
' имена остальных стандартных реквизитов смотри в синт. помощнике
NewContractor.Write ' это Записать() в 1С

Exit Sub