ошибка заполнения регистра сведений КонтактнаяИнформация | |
---|---|
AlexandrIT Сообщений: 11 Дата регистрации: 30.04.2011 |
Доброго утра.
В наличии есть Win7 и ЗУП 2.5.32.5 После внесения записи в справочник ФизЛица заполняю регистр сведений КонтактнаяИнформация БазаОле=CREATEOBJECT("V82.Application") РезультатПодключения = БазаОле.Connect("File='C:\1С_ЗУП';Usr='';") IF РезультатПодключения .............. ВидыКонтактнойИнформации = БазаОле.Справочники.ВидыКонтактнойИнформации СсылкаВидКонтактнойИнформацииАдрес = ВидыКонтактнойИнформации.НайтиПоКоду(2) IF NOT ISNULL(СсылкаВидКонтактнойИнформацииАдрес) GUIDСсылкаВидКонтактнойИнформацииАдрес = ВидыКонтактнойИнформации.ПолучитьСсылку(СсылкаВидКонтактнойИнформацииАдрес.УникальныйИдентификатор()) СсылкаВидКонтактнойИнформацииТелефон = ВидыКонтактнойИнформации.НайтиПоКоду(7) ELSE MESSAGEBOX('Не найден GUID Вида Контактной Информации = Адрес',16) ENDIF ТипКонтактнойИнформацииАдрес = БазаОле.Перечисления.ТипыКонтактнойИнформации.Адрес НаборЗаписейАдрес = БазаОле.РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей() НоваяЗаписьАдрес = НаборЗаписейАдрес.Добавить() WITH НоваяЗаписьАдрес .Объект = GUIDЭлементФизЛица .Вид = GUIDСсылкаВидКонтактнойИнформацииАдрес .Тип = ТипКонтактнойИнформацииАдрес * что-то там еще про адрес..... ENDWITH IF НаборЗаписейАдрес.ПроверитьЗаполнение() НаборЗаписейАдрес.Записать() и получаю: OLE IDispatch exeption code 1001...: ...Значение поля ВИД не м.б. пустым..... Так оно вроде как и не пустое ELSE MESSAGEBOX('Ошибка записи в НаборЗаписейАдрес',16) EXIT ENDIF ............. БазаОле.Exit() ELSE MESSAGEBOX('Ошибка подключения к БД 1С',16) ENDIF |
Re: ошибка заполнения регистра сведений КонтактнаяИнформация | |
---|---|
piva Автор Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004 |
В 8.2 не смотрел, тем более ЗУП нету, но во всяком случае, код у справочника видов информации симовльный, а не числовой (2) ставьте код правильно, и еще - найтиПоКоду, если не найдено возвращает "ПустаяСсылка", но никак не NULL или Неопределено, отсюда у вас .Вид становится не заполненным ------------------ Часто бывает так, что есть над чем задуматься, а нечем. |
© 2000-2024 Fox Club  |