Подключение к 1С 7.7 через внешний источник данных, работа со справочниками 7.7 (на примере справочника клиенты)

Подключение к 1С 77 через внешний источник данных, работа со справочниками 77 (на примере справочника клиенты)

 

1. Добавление внешнего источника данных

Шаг 1

 

Шаг 2 (заполняем основные свойства внешнего соединения)

  

Шаг 3 (добавление данных)

Чтобы добавить источник данных удобнее добавить новую таблицу, 1С предложить либо добавить вручную, либо выбрать из списка таблиц источника данных – выбираем из источника)

  

Шаг 4 (добавляем строку соединения с источником данных)

Для добавления строки соединения лучше нажать на кнопку «…» справа от поля «Строка соединения:»

 

Внимание!!! Сохраните данную строку подключения (например в notepad), она понадобится в дальнейшем!!!

 

Если мы сделали все правильно, то 1С выведет нам список таблиц базы данных. Нас интересует справочник 77 «Клиенты». У меня это таблица SC46.

  

2. Подключение справочника

1С корректно определила, что данная таблица – это объектные данные и выбрала все реквизиты данной таблицы (справочника). Для упрощения работы нам будут нужны следующие:

ROWID – уникальный идентификатор записи в таблице SQL

ID – уникальный идентификатор объекта 1С (это будет поле ключа)

PARENTID – идентификатор родителя

CODE – реквизит «Код» 1С77 элемента справочника

DESCR – реквизит «Наименование» 1С77 элемента справочника (это будет поле представления)

ISFOLDER – признак элемент/группа 1С77 справочника

  

И нажимаем «Готово»

  

Попробуем посмотреть, что же у нас получилось… Запускаем 1С в режиме предприятия…

  

Выбираем нашу таблицу «dbo.SC46»… И 1С просит ввести имя пользователя и пароль для подключения к внешнему источнику…

  

Ну что ж… Вводим, через нажатие кнопки «Общие параметры». Вот тут то нам и пригодится сохраненная в notepad строка подключения…

  

Обновляем нашу таблицу, и результат конечно есть, но стремненько…

 

Попробуем сделать так, что бы вид нашей таблицы не отличался от вида стандартного справочника 1С82

 

3. Настройка вида справочника из внешнего источника

Шаг 1 (настраиваем имя таблицы)

  

Шаг 2 (настраиваем поля таблицы)

Особо уделю внимание полю PARENTID. Это же ссылка на родителя. Значит необходимо поменять тип значения со строки (9) на ссылочный тип данных из внешнего источника

  

Шаг 3 (смотрим результат)

Уже конечно лучше, скажем так на троечку…

  

4. Вывод справочника иерархически

Шаг 1 (добавляем общий модуль)

  

Шаг 2 (добавляем в общий модуль код)

 

&НаСервере

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

     лИмя = СтрЗаменить(пФорма.ИмяФормы,»ВнешнийИсточникДанных.Торговля77.Таблица.»,»»);

     лИмя = Лев(лИмя,Найти(лИмя,».»)-1);

     Возврат лИмя

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

 

&НаСервере

Функция ПолучитьЭлементыРодителя(пСправочник, пРодитель, пР = 0,пМас=0) Экспорт

     Запрос = Новый Запрос;

     Если пРодитель.Ссылка.Пустая() Тогда

              Запрос.Текст =

              «ВЫБРАТЬ

              |         Спр.Ссылка КАК Элемент,

              |         Спр.Наименование КАК Наименование,

              |         Спр.Родитель КАК Родитель,

              |         ВЫБОР

              |                  КОГДА Спр.ЭтоГруппа = 1

              |                            ТОГДА 2

              |                  ИНАЧЕ 1

              |         КОНЕЦ КАК ЭтоГруппа

              |ИЗ

              |         ВнешнийИсточникДанных.Торговля77.Таблица.»+пСправочник+» КАК Спр

              |ГДЕ

              |         Спр.РодительИД = «»     0   «»

              |УПОРЯДОЧИТЬ ПО

              |         ЭтоГруппа УБЫВ,

              |         Спр.Наименование»;

     Иначе

              Запрос.Текст =

              «ВЫБРАТЬ

              |         Спр.Ссылка КАК Элемент,

              |         Спр.Наименование КАК Наименование,

              |         Спр.Родитель КАК Родитель,

              |         ВЫБОР

              |                  КОГДА Спр.ЭтоГруппа = 1

              |                            ТОГДА 2

              |                  ИНАЧЕ 1

              |         КОНЕЦ КАК ЭтоГруппа

              |ИЗ

              |         ВнешнийИсточникДанных.Торговля77.Таблица.»+пСправочник+» КАК Спр

              |ГДЕ

              |         Спр.Родитель = &Родитель

              |

              |УПОРЯДОЧИТЬ ПО

              |         ЭтоГруппа УБЫВ,

              |         Спр.Наименование»;

              Запрос.УстановитьПараметр(«Родитель»,пРодитель);

     КонецЕсли;

    Результат = Запрос.Выполнить();

 

     ВыборкаДетальныеЗаписи = Результат.Выбрать();

    

     лМассив = Новый Массив;   

     Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

              лСтруктураЭл = Новый Структура;

              лСтруктураЭл.Вставить(«Элемент»,ВыборкаДетальныеЗаписи.Элемент);

          лСтруктураЭл.Вставить(«Наименование»,ВыборкаДетальныеЗаписи.Наименование);

              лСтруктураЭл.Вставить(«Родитель»,ВыборкаДетальныеЗаписи.Родитель);

              лСтруктураЭл.Вставить(«ЭтоГруппа»,ВыборкаДетальныеЗаписи.ЭтоГруппа);

              Если пР = 0 Тогда

                       лМассив.Добавить(лСтруктураЭл);

              ИначеЕсли пР = 1 Тогда

                       пМас.Добавить(лСтруктураЭл);

              КонецЕсли;

     КонецЦикла;

     Если пР = 0 Тогда

              Возврат лМассив;

     Иначе                 

              Возврат пМас;

     КонецЕсли;        

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

 

&НаСервере

Процедура ДобавитьДерево(пФорма, пСтруктураОтображенияДерева, пСтруктураДействий) Экспорт

     пСправочник = ОбщийМодульСправочники77.ПолучитьИмяИсточникаДанных(пФорма);

     лМассивЭлементов = ПолучитьЭлементыРодителя(пСправочник, ВнешниеИсточникиДанных.Торговля77.Таблицы[пСправочник].ПустаяСсылка());

     //

     ДеревоОбъект = Новый ДеревоЗначений;

     ДеревоОбъект.Колонки.Добавить(«Элемент», Новый ОписаниеТипов(«ВнешнийИсточникДанныхТаблицаСсылка.Торговля77.»+пСправочник));

     ДеревоОбъект.Колонки.Добавить(«Наименование», Новый ОписаниеТипов(«Строка»));

     ДеревоОбъект.Колонки.Добавить(«ЭтоГруппа», Новый ОписаниеТипов(«Число»));

     //

     Для лчНом=0 По лМассивЭлементов.Количество()-1 Цикл

              СтрокаУ1 = ДеревоОбъект.Строки.Добавить();

              СтрокаУ1.Элемент = лМассивЭлементов[лчНом].Элемент;

              СтрокаУ1.Наименование = лМассивЭлементов[лчНом].Наименование;

              СтрокаУ1.ЭтоГруппа = лМассивЭлементов[лчНом].ЭтоГруппа;

              Если лМассивЭлементов[лчНом].ЭтоГруппа=2 Тогда

                       СтрокаУ2 = СтрокаУ1.Строки.Добавить();

                       СтрокаУ2.Элемент = ВнешниеИсточникиДанных.Торговля77.Таблицы[пСправочник].ПустаяСсылка();

                       СтрокаУ2.ЭтоГруппа = 0;

              КонецЕсли;

     КонецЦикла;

    

     // Создание Реквизита формы типа ДанныеФормыДерево

     МассивДобавляемыхРеквизитов = Новый Массив;

     МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы(«Дерево»,

              Новый ОписаниеТипов(«ДеревоЗначений»)));

     Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл

              МассивДобавляемыхРеквизитов.Добавить(

                 Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, «Дерево»));

     КонецЦикла;

     пФорма.ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);

 

     // Преобразование объекта прикладного типа ДеревоЗначений

     // в реквизит управляемой формы (данные формы)

     пФорма.ЗначениеВРеквизитФормы(ДеревоОбъект, «Дерево»);

 

     // Создание элемента формы типа ТаблицаФормы для отображения дерева

     ЭлементДерево = пФорма.Элементы.Добавить(«Дерево», Тип(«ТаблицаФормы»));

     Для Каждого лЭлементОтображенияДерево Из пСтруктураОтображенияДерева Цикл

              ЭлементДерево[лЭлементОтображенияДерево.Ключ] = лЭлементОтображенияДерево.Значение;

     КонецЦикла;

    

     Для Каждого лЭлементДействия Из пСтруктураДействий Цикл

          ЭлементДерево.УстановитьДействие(лЭлементДействия.Ключ,лЭлементДействия.Значение);

     КонецЦикла;

             

     Для Каждого Колонка Из ДеревоОбъект.Колонки Цикл

              НовыйЭлемент = пФорма.Элементы.Добавить(Колонка.Имя, Тип(«ПолеФормы»),

                       ЭлементДерево);

              НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;

              НовыйЭлемент.ПутьКДанным = «Дерево.» + Колонка.Имя;

              Если Колонка.Имя = «Элемент» Тогда

                       НовыйЭлемент.Видимость = Ложь;

              КонецЕсли;

              Если Колонка.Имя = «ЭтоГруппа» Тогда

                       НовыйЭлемент.Видимость = Ложь;

              КонецЕсли;

     КонецЦикла;

КонецПроцедуры

 

&НаКлиенте

Функция ПроверкаВхожденияЭлемента(пКоллекция, пЭлемент) Экспорт

     лВозврат = 0;

     Для Каждого лЭлемент Из пКоллекция Цикл

              Если лЭлемент.Элемент = пЭлемент Тогда

                       лВозврат = 1;

                       Прервать;

              КонецЕсли;

     КонецЦикла;

     Возврат лВозврат;

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

 

&НаКлиенте

Функция НайтиПоСтруктуреВМассиве(пМассив, пИмяЭлСтруктуры, пЗнач) Экспорт

     лИндекс = Неопределено;

     Для лчНом=0 По пМассив.Количество()-1 Цикл

              Если пМассив[лчНом][пИмяЭлСтруктуры] = пЗнач Тогда

                       лИндекс = лчНом;

                       Прервать;

              КонецЕсли;

     КонецЦикла;

    

     Возврат лИндекс;

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

 

 

Шаг 3 (добавляем форму списка для нашего справочника)

ВНИМАНИЕ!!! Форма списка должна быть абсолютно пустой!!! Все отображение будет формировать программно!!!

  

Шаг 4 (добавляем в модуль формы код)

 

&НаСервере

Функция ПолучитьИмяДанныхФормы()

     лИсточник = ОбщийМодульСправочники77.ПолучитьИмяИсточникаДанных(ЭтаФорма);

     Возврат лИсточник;

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

 

&НаСервере

Функция ПолучитьЭлементыРодителя(пРодитель)

     лИсточник = ПолучитьИмяДанныхФормы();

     Возврат ОбщийМодульСправочники77.ПолучитьЭлементыРодителя(лИсточник, пРодитель);

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

 

&НаСервере

Функция ПолучитьПустуюСсылкуВнешнегоИсточникаДанных(пИмя)

     Возврат ВнешниеИсточникиДанных.Торговля77.Таблицы[пИмя].ПустаяСсылка();

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

 

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

     СтруктураОтображенияДерева = Новый Структура;

     СтруктураОтображенияДерева.Вставить(«ПутьКДанным»,»Дерево»);

     СтруктураОтображенияДерева.Вставить(«Отображение»,ОтображениеТаблицы.ИерархическийСписок);

     СтруктураОтображенияДерева.Вставить(«КартинкаСтрок»,БиблиотекаКартинок.ГруппаИЭлемент);

     СтруктураОтображенияДерева.Вставить(«ПутьКДаннымКартинкиСтроки»,»Дерево.ЭтоГруппа»);

    

     СтруктураДействий = Новый Структура;

     СтруктураДействий.Вставить(«ПриСменеТекущегоРодителя»,»ЭлементДеревоПриСменеТекущегоРодителя»);

    

     ОбщийМодульСправочники77.ДобавитьДерево(ЭтаФорма, СтруктураОтображенияДерева, СтруктураДействий);

КонецПроцедуры

 

&НаКлиенте

Процедура ЭлементДеревоПриСменеТекущегоРодителя(Элемент)

     ИДТекущейСтроки = Элементы[«Дерево»].ТекущаяСтрока;

     Если ИДТекущейСтроки <> Неопределено Тогда

              РеквизитДерево = ЭтаФорма[«Дерево»];

              ЭлементКоллекции = РеквизитДерево.НайтиПоИдентификатору(ИДТекущейСтроки);

              Родитель = ЭлементКоллекции.ПолучитьРодителя();

              Если Родитель <> Неопределено Тогда

                       ПодчинЭлементы = Родитель.ПолучитьЭлементы();

                       ПодчинЭлементы.Очистить();

                       лИсточник = ПолучитьИмяДанныхФормы();

                       лМассивЭлементов=ПолучитьЭлементыРодителя(Родитель.Элемент);

                       Для лчНом =0  По лМассивЭлементов.Количество()-1 Цикл

                                 лПотомок = ПодчинЭлементы.Добавить();

                                 лПотомок.Элемент = лМассивЭлементов[лчНом].Элемент;

                                 лПотомок.Наименование = лМассивЭлементов[лчНом].Наименование;

                                 лПотомок.ЭтоГруппа = лМассивЭлементов[лчНом].ЭтоГруппа;

                                 Если лМассивЭлементов[лчНом].ЭтоГруппа = 2 Тогда

                                          ПустойПодчинЭлемент = лПотомок.ПолучитьЭлементы();

                                          лПустойПотомок = ПустойПодчинЭлемент.Добавить();

                                          лПустойПотомок.Элемент = ПолучитьПустуюСсылкуВнешнегоИсточникаДанных(лИсточник);

                                          лПустойПотомок.ЭтоГруппа = 0;

                                 КонецЕсли;

                       КонецЦикла;

              КонецЕсли;

     КонецЕсли;

КонецПроцедуры

 

Шаг 5

Привязываем код нашей процедуры ПриСозданииНаСервере к форме

 

 

 

Шаг 6

Для вывода иерархии нам нужен идентификатор родителя ParentID, но мы же его перевели в ссылочный тип, поэтому я просто добавил еще одно поле: РодительИД

 

 

Шаг 7

Добавляем в общие картинки (если нет) картинку стандартной библиотеки 1С82 «ГруппаИЭлемент»

 

 

Шаг 8

Запускаем режим предприятия и видим в 1С82 справочник из 1С77 красиво, как и положено…

 

 

Теперь что бы подключить другой справочник из 1С77 нужно провести минимум действий: добавить таблицу во внешний источник, создать пустую форму, и добавить код для формы… Все! Данную таблицу можно использовать в СКД и формировать отчеты средствами 1С82.