Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 дек 2024, 03:45

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

Автор Karlus, 29 авг 2012, 19:14

0 Пользователей и 1 гость просматривают эту тему.

Karlus

Добрый день. Подскажите, пожалуйста, как можно создать контрагента?
Вот кусок моего кода
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

Я для 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

Karlus

А как в синтекс помощнике посмотреть английские имена команд?

sadovod

Очень просто:
ЦитироватьСправочникМенеджер.<Имя справочника> (CatalogManager.<Имя справочника>)
СоздатьЭлемент (CreateItem)
Синтаксис:
СоздатьЭлемент()

Karlus

в версии 7.7 в помощнике нет английских названий. Как, например будет называться ВидКотнрагента и Родитель по английски?

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск