В нижеописанных процедурах модуля телефонии для конфигурации Альфа Авто 5.1 (форма мОбщийМодуль_АльфаАвто) ссылки на несуществующие справочники:
Функция ПолучитьДанныеЗаполненияОпределитьКонтрагентаКонтактногоЛица ПоНомеру(Выборка) Экспорт
ДанныеЗаполнения = Новый Структура("Контрагент,КонтактноеЛицо","","");
ОбъектКонтакта=Выборка.Объект;
Если ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты")
И ЗначениеЗаполнено(ОбъектКонтакта.ВедушийКонтрагент) Тогда
ДанныеЗаполнения.КонтактноеЛицо = ОбъектКонтакта.ВедушийКонтрагент;
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты") Тогда
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ДанныеЗаполнения.КонтактноеЛицо = "";
Иначе
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
// ДанныеЗаполнения.КонтактноеЛицо = Справочники.КонтактныеЛица.ПустаяСсылка(); //ИГОРЬ
ДанныеЗаполнения.КонтактноеЛицо = Справочники.Пользователи.ПустаяСсылка(); //ИГОРЬ
КонецЕсли;
Возврат ДанныеЗаполнения;
КонецФункции
В вышеописанной процедуре ссылка на не существующий справочник КонтактныеЛица
Функция ПолучитьДанныеЗаполненияСтрокиИстории(СтрокаСКонтактом) Экспорт
ДанныеЗаполнения = Новый Структура("Контрагент,КонтактноеЛицо", "", "");
ОбъектКонтакта = СтрокаСКонтактом.Объект;
Если ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты") Тогда
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ДанныеЗаполнения.КонтактноеЛицо = СтрокаСКонтактом.ОсновноеКонтактноеЛицо;
//ИГОРЬ
// ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.КонтактныеЛицаКонтрагентов") Тогда
// ДанныеЗаполнения.КонтактноеЛицо = ОбъектКонтакта;
// ДанныеЗаполнения.Контрагент = СтрокаСКонтактом.Владелец;
// ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Пользователи")
// ИЛИ ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.ФизическиеЛица")Тогда
ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Пользователи") Тогда
//ИГОРЬ
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
// ДанныеЗаполнения.КонтактноеЛицо = Справочники.КонтактныеЛицаКонтрагентов.ПустаяСсылка(); //ИГОРЬ
ДанныеЗаполнения.КонтактноеЛицо = Справочники.Пользователи.ПустаяСсылка(); //ИГОРЬ
Иначе
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
// ДанныеЗаполнения.КонтактноеЛицо = Справочники.КонтактныеЛица.ПустаяСсылка(); //ИГОРЬ
ДанныеЗаполнения.КонтактноеЛицо = Справочники.Сотрудники.ПустаяСсылка(); //ИГОРЬ
КонецЕсли;
Возврат ДанныеЗаполнения;
КонецФункции // ПолучитьДанныеЗаполненияСтрокиИстории()
В вышеописанной процедуре ссылка на не существующие справочники КонтактныеЛицаКонтрагентов, ФизическиеЛицаКонтактныеЛица
Проверьте, пожалуйста, и исправьте.
Функция ПолучитьДанныеЗаполненияОпределитьКонтрагентаКонтактногоЛица
ДанныеЗаполнения = Новый Структура("Контрагент,КонтактноеЛицо","","");
ОбъектКонтакта=Выборка.Объект;
Если ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты")
И ЗначениеЗаполнено(ОбъектКонтакта.ВедушийКонтрагент) Тогда
ДанныеЗаполнения.КонтактноеЛицо = ОбъектКонтакта.ВедушийКонтрагент;
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты") Тогда
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ДанныеЗаполнения.КонтактноеЛицо = "";
Иначе
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
// ДанныеЗаполнения.КонтактноеЛицо = Справочники.КонтактныеЛица.ПустаяСсылка(); //ИГОРЬ
ДанныеЗаполнения.КонтактноеЛицо = Справочники.Пользователи.ПустаяСсылка(); //ИГОРЬ
КонецЕсли;
Возврат ДанныеЗаполнения;
КонецФункции
В вышеописанной процедуре ссылка на не существующий справочник КонтактныеЛица
Функция ПолучитьДанныеЗаполненияСтрокиИстории(СтрокаСКонтактом) Экспорт
ДанныеЗаполнения = Новый Структура("Контрагент,КонтактноеЛицо", "", "");
ОбъектКонтакта = СтрокаСКонтактом.Объект;
Если ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты") Тогда
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ДанныеЗаполнения.КонтактноеЛицо = СтрокаСКонтактом.ОсновноеКонтактноеЛицо;
//ИГОРЬ
// ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.КонтактныеЛицаКонтрагентов") Тогда
// ДанныеЗаполнения.КонтактноеЛицо = ОбъектКонтакта;
// ДанныеЗаполнения.Контрагент = СтрокаСКонтактом.Владелец;
// ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Пользователи")
// ИЛИ ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.ФизическиеЛица")Тогда
ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Пользователи") Тогда
//ИГОРЬ
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
// ДанныеЗаполнения.КонтактноеЛицо = Справочники.КонтактныеЛицаКонтрагентов.ПустаяСсылка(); //ИГОРЬ
ДанныеЗаполнения.КонтактноеЛицо = Справочники.Пользователи.ПустаяСсылка(); //ИГОРЬ
Иначе
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
// ДанныеЗаполнения.КонтактноеЛицо = Справочники.КонтактныеЛица.ПустаяСсылка(); //ИГОРЬ
ДанныеЗаполнения.КонтактноеЛицо = Справочники.Сотрудники.ПустаяСсылка(); //ИГОРЬ
КонецЕсли;
Возврат ДанныеЗаполнения;
КонецФункции // ПолучитьДанныеЗаполненияСтрокиИстории()
В вышеописанной процедуре ссылка на не существующие справочники КонтактныеЛицаКонтрагентов, ФизическиеЛицаКонтактныеЛица
Проверьте, пожалуйста, и исправьте.