Вы не авторизованы

Вы можете читать сообщения. Если вы хотите создать новую тему или присоединиться к обсуждению, пройдите процедуру регистрации или авторизуйтесь.

RSS
"Не корректные" процедуры модуля панели телефонии для конфигурации Альфа-Авто 5.1
 
В нижеописанных процедурах модуля телефонии для конфигурации Альфа Авто 5.1 (форма мОбщийМодуль_АльфаАвто) ссылки на несуществующие справочники:

Функция ПолучитьДанныеЗаполненияОпределитьКонтрагентаКонтактногоЛица­ПоНомеру(Выборка) Экспорт

ДанныеЗаполнения = Новый Структура("Контрагент,КонтактноеЛицо","","");
ОбъектКонтакта=Выборка.Объект;
Если ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты")
 И ЗначениеЗаполнено(ОбъектКонтакта.ВедушийКонтрагент) Тогда
ДанныеЗаполнения.КонтактноеЛицо = ОбъектКонтакта.ВедушийКонтрагент;
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ИначеЕсли ТипЗнч(ОбъектКонтакта) = Тип("СправочникСсылка.Контрагенты") Тогда
ДанныеЗаполнения.Контрагент = ОбъектКонтакта;
ДанныеЗаполнения.КонтактноеЛицо = "";
Иначе
ДанныеЗаполнения.Контрагент =   ОбъектКонтакта;
// ДанныеЗаполнения.КонтактноеЛицо = Справочники.КонтактныеЛица.ПустаяСсылка(); //ИГОРЬ
ДанныеЗаполнения.КонтактноеЛицо = Справочники.Пользователи.ПустаяСсылка();     //ИГОРЬ
КонецЕсли;

Возврат ДанныеЗаполнения;
КонецФункции

В вышеописанной процедуре ссылка на не существующий справочник КонтактныеЛица

Функция ПолучитьДанныеЗаполненияСтрокиИстории(СтрокаСКонтактом) Экспорт

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

Возврат ДанныеЗаполнения;
КонецФункции // ПолучитьДанныеЗаполненияСтрокиИстории()

В вышеописанной процедуре ссылка на не существующие справочники КонтактныеЛицаКонтрагентов, ФизическиеЛицаКонтактныеЛица

Проверьте, пожалуйста, и исправьте.
 
Спасибо за подробный отчет.
Поправим в следующей версии, выпустим в течении недели.
 
ОК
Читают тему (гостей: 1)