Это старая версия документа!
Содержание
Интеграция 1СПАРК Риски в произвольный справочник
Настройка объектов подсистемы
Настроить типы справочников контрагентов в определяемых типах подсистемы «Базовая функциональность Интернет-поддержки»:
- Включить в состав определяемого типа КонтрагентБИП один или несколько типов ссылки справочника контрагентов: СправочникСсылка.<Имя справочника>;
- Включить в состав определяемого типа КонтрагентБИПОбъект один или несколько типов объектов справочника контрагентов: СправочникОбъект.<Имя справочника>;
- (пропустил) Включить в состав определяемого типа ШаблонСообщенияБИП один или несколько типов объектов справочника контрагентов: СправочникОбъект.<Имя справочника ШаблоныСообщений>;
В общем модуле СПАРКРискиПереопределяемый:
- Заполнить реализацию метода ПриОпределенииСвойствСправочниковКонтрагентов(). Заполнение реализации метода обязательно для работы подсистемы;
- Заполнить реализацию методов ПараметрыНачальногоЗаполненияДанных1СПАРКРискиЮридическихЛиц() и ПараметрыНачальногоЗаполненияДанных1СПАРКРискиИндивидуальныхПредпринимателей(). Методы вызывается при переходе на новую версию конфигурации с внедренной подсистемой 1СПАРК Риски и выполняется начальное заполнение данных подсистемы. Заполнение реализации метода обязательно для работы подсистемы;
В общем модуле СПАРКРискиКлиентСерверПереопределяемый:
- Элемент ненумерованного спискаЗаполнить реализацию метода ПриОпределенииСвойствКонтрагентаВОбъекте(). Заполнение реализации метода требуется для корректной работы подсистемы;
Настройка форм справочников контрагентов и документов
Внедрение функциональности в формы
Создать в форме реквизиты ИндексыСПАРКРиски и НастройкиСПАРКРиски, назначить тип Произвольный.
В обработчик ПриСозданииНаСервере() вставить фрагмент кода:
// ИнтернетПоддержкаПользователей.СПАРКРиски
Контрагент = ?(Параметры.Ключ.Пустая(), Объект.ИНН, Объект.Ссылка);
ВидКонтрагентаСПАРКРиски = ВидКонтрагентаСПАРКРиски(Объект.ИНН);
ПараметрыПроцедуры = Новый Структура("ВариантОтображения", "Многострочный");
СПАРКРиски.ПриСозданииНаСервере(
ЭтотОбъект,
Объект,
Контрагент,
ВидКонтрагентаСПАРКРиски,
ПараметрыПроцедуры);
// Конец ИнтернетПоддержкаПользователей.СПАРКРиски
Для отображения стандартным способом (см. р. «Вариант стандартного отображения индексов в формах») допускаются значения параметра ВариантОтображения:
- «Многострочный» - отображение индексов в многострочном варианте;
- «Однострочный» - отображение индексов в однострочном (компактном варианте).
Для определения типа проверки, необходимо передавать ВидКонтрагента. Значение вида контрагента определяется перечислением ВидыКонтрагентовСПАРКРиски.
Если в форме нет реквизита ВидКонтрагента, то нужно добавить функции ВидКонтрагентаПоИНН и ВидКонтрагентаСПАРКРиски
&НаКлиентеНаСервереБезКонтекста
Функция ВидКонтрагентаПоИНН(ИНН)
Если СтрДлина(СокрЛП(ИНН)) = 10 тогда
Возврат "ЮрЛицо";
ИначеЕсли СтрДлина(СокрЛП(ИНН)) = 10 тогда
Возврат "ИндивидуальныйПредприниматель";
Иначе
Возврат "";
КонецЕсли;
КонецФункции // ВидКонтрагентаПоИНН()
&НаКлиентеНаСервереБезКонтекста
Функция ВидКонтрагентаСПАРКРиски(ИНН)
ЮрФизЛицо = ВидКонтрагентаПоИНН(ИНН);
Если ЮрФизЛицо = "ЮрЛицо" Тогда
ВидКонтрагента = ПредопределенноеЗначение("Перечисление.ВидыКонтрагентовСПАРКРиски.ЮридическоеЛицо");
ИначеЕсли ЮрФизЛицо = "ИндивидуальныйПредприниматель" Тогда
ВидКонтрагента = ПредопределенноеЗначение("Перечисление.ВидыКонтрагентовСПАРКРиски.ИндивидуальныйПредприниматель");
Иначе
ВидКонтрагента = ПредопределенноеЗначение("Перечисление.ВидыКонтрагентовСПАРКРиски.ПустаяСсылка");
КонецЕсли;
Возврат ВидКонтрагента;
КонецФункции
В обработчик ПриОткрытии() вставить фрагмент кода:
// ИнтернетПоддержкаПользователей.СПАРКРиски СПАРКРискиКлиент.ПриОткрытии(ЭтотОбъект, Объект); // Конец ИнтернетПоддержкаПользователей.СПАРКРиски
В обработчик ОбработкаОповещения() вставить фрагмент кода:
// ИнтернетПоддержкаПользователей.СПАРКРиски СПАРКРискиКлиент.ОбработкаОповещения(ЭтотОбъект, Объект, ИмяСобытия, Параметр, Источник); // Конец ИнтернетПоддержкаПользователей.СПАРКРиски
В обработчик ПослеЗаписиНаСервере() вставить фрагмент кода:
ПараметрыЗаписиСПАРКРиски = ПараметрыЗаписи; // ИнтернетПоддержкаПользователей.СПАРКРиски СПАРКРиски.ПослеЗаписиНаСервере(ЭтотОбъект, ТекущийОбъект, ПараметрыЗаписиСПАРКРиски); // Конец ИнтернетПоддержкаПользователей.СПАРКРиски