Подключение КЛАДР к своей конфигурции

Добавить свою публикацию

для этого требуется регистрация

Cerber_2006

30.03.2013

Программисту > 1С 8.х

За основу возьмем конфигурацию БП 2.0 (перенесем из нее Регистр Сведений "Адресный Классификатор").

Вообще для работы Адресного Классификатора (Форма списка, Загрузки)достаточно перенести в нашу конфигурацию лишь АдресныйКлассификатор, Общие модули "УправлениеКонтактнойИнформацией" "ПроцедурыПоискаПоСтроке" и Формы "ХодВыполненияОбработкиДанных" (для загрузки Кладр)

и позаимствовать некоторые процедуры и функции:

В форме списка «АдресныйКлассификатор» в процедуре «Процедура ПриОткрытии()» вносим изменения добавляем функцию

"ЕстьЗаписиВРегистреСведений" Из Общие модули – "Полные права" следующим образом:

  Функция ЕстьЗаписиВРегистреСведений(ИмяРегистра)

    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ ПЕРВЫЕ 1
 | РегСв.*
 |ИЗ
 | РегистрСведений." + ИмяРегистра + " КАК РегСв";
    
    Возврат НЕ Запрос.Выполнить().Пустой();

КонецФункции;

Процедура ПриОткрытии()
    
    //Если НЕ ПолныеПрава.ЕстьЗаписиВРегистреСведений("АдресныйКлассификатор") Тогда
    Если НЕ ЕстьЗаписиВРегистреСведений("АдресныйКлассификатор") Тогда
        ОтветНаВопрос = Вопрос("Адресный классификатор пуст. Хотите произвести загрузку адресного классификатора?", РежимДиалогаВопрос.ДаНет);
        Если ОтветНаВопрос = КодВозвратаДиалога.Да Тогда
            РегистрыСведений.АдресныйКлассификатор.ПолучитьФорму("ФормаЗагрузкиАдресногоКлассификатора").Открыть();
        КонецЕсли;
    КонецЕсли;
    
КонецПроцедуры;

Переносим процедуры и функции из общих модулей "ОбщегоНазначения" и "РегламентированнаяОтчетность" в модуль "УправлениеКонтактнойИнформацией"

Из "ОбщегоНазначения» : Функция «РазложитьСтрокуВМассивПодстрок» Функция «ТолькоЦифрыВСтроке» Функция «СформироватьТекстСообщения» Процедура «СообщитьОбОшибке»

Из «РегламентированнаяОтчетность» Функция «РазложитьАдрес»

И меняем соответственно во всех местах модуля

Вот и всё теперь в нашей новой конфигурации есть Адресный классификатор с рабочей загрузкой КЛАДР.

Если оставлять существующую форму выбора в Адресном Классификаторе и пользоваться ей, потребуются еще дополнительные модули:

Регистры Сведений "КонтактнаяИнформация"

Обработки "РедактированиеКонтактнойИнформации"

Перечисления "ТипыКонтактнойИнформации" и "ВидыОбъектовКонтактнойИнформации"

Справочники "АдресныеСокращения" и "ВидыКонтактнойИнформации"

Общие модули "РаботаСДиалогами" "ОбщегоНазначения" "МеханизмНумерацииОбъектов"

У меня получилось Следующее:(Справочник Контрагенты создан(не копировался))

предыдущие ()все