Блог программиста

Сегодня выяснил интересную вещь.
Если составлять описание таблиц и полей данных 1С, как они хранятся в реальной базе данных, то несмотря на то, что две базы 1С подключены к одному и тому же хранилищу (и у них совпадают метаданные вплоть до идентификаторов), в реальных таблицах базы данных могут быть расхождения в наименовании полей таблиц.
Реальный, живой пример : базы ЗиУП, подключенные к хранилищу.

Сравнение таблиц для справочника Сотрудники организаций :

Слева — SQL база, справа — файловая. Картинка кликабельна.
Очевидно, часть полей таблицы справочника имеют одинаковые имена, а у других полей — имена отличаются.

По всей видимости, отличия эти вызваны тем, что в период, когда были добавлены отличающиеся поля, конфигурации обеих баз данных обновлялись не через хранилище и не через поддержку (т.е. не централизованно), а путём сравнения — объединения с файлом новой версии конфигурации (кустарно).

Дали задание : прочитать XML-файл и закачать его в 1C. XML-схему не дали.
Создал XDTO-пакет с требуемыми типами, проверил логику структуры. Вроде сходится.
Стал закачивать данные — получил ошибку :
Проверка дополнительного свойства:
форма: Элемент
имя: Begin
по причине:
Ошибка проверки данных XDTO : Структура объекта не соответствует типу
Здесь Begin — синоним (локальное имя) первого свойства считываемого XML-документа.
Решил зайти с другой стороны : а каким 1С хочет видеть мой объект в файле?
Выкачал пробный объект (с установленным свойством Begin) в файл и обратил внимание, что имя XML-документа в файле всегда соответствует имени типа, как оно задано в конфигураторе (в файле «REPORT», а у меня — «ОтчетОПродажеБилетов»).
Задать синоним, чтобы 1С поняла, что тип ОтчетОПродажеБилетов в файле содержится в XML-документе «REPORT», не получается!
Пришлось пожертвовать понятным именем («ОтчетОПродажеБилетов») типа головного объекта, считываемого из файла, и переименование ОтчетОПродажеБилетов в REPORT решило проблему. Остальные объекты переименовывать не пришлось — для них синонимы отработали как положено.

Пример одного пакета запросов для конфигурации 1С Зарплата и Управление персоналом 2.5 для 1С Предприятия 8.2, который вычисляет актуальное значение северной надбавки на заданный момент.

Параметры запроса :
ГоловнаяОрганизация, ДатаСреза.
На выходе запроса — таблица из двух колонок :
Физлицо, АктуальныйПроцентСевернойНадбавки.

Шкалы северной надбавки в таблицах базы данных 1С пока нет, поэтому я явно задаю шкалу в отдельной временной таблице ИсходнаяШкалаНадбавок (а не читаю из какой-либо таблицы базы данных).

Для простоты восприятия запроса я «сшиваю» в запросе необходимый минимум таблиц, и потому регистр сведений ПлановыеНачисленияРаботниковОрганизаций не анализируется. То есть, вычисляется только процентное значение северной надбавки (исходя из шкалы и данных о северном стаже), а запланирована ли северная надбавка для данного физического лица — запрос «не знает».

Текст запроса :

 
Читать далее →

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

В моём опыте работы часто случается, что когда я ложусь спать, решение задачи ещё неизвестно, а когда встаю с кровати, в голове чётко сформирована мысль, как решить поставленную задачу (например, где какое условие в многослойном запросе вставить, чтобы данные на выходе не двоились). Притом что ночью я спал, а не размышлял над проблемой.
Так и сегодня : лёг в первом часу ночи, когда столкнулся с трудной проблемой (ошибка в сложном отчёте), а встал без четверти 7, и уже знал, что делать дальше.

.

// получает все запрещенные к премированию подразделения с учетом иерархии

Функция ПолучитьВсеЗапрещенныеПодразделения() Экспорт

МВТ = Новый МенеджерВременныхТаблиц;

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

Запрос.МенеджерВременныхТаблиц = МВТ;

// сначала получим сырые данные

Запрос.Текст = «ВЫБРАТЬ

|   опЗапретПремированияПодразделенийСрезПоследних.СУчетомИерархии,

|   опЗапретПремированияПодразделенийСрезПоследних.ПодразделениеОрганизации

|ПОМЕСТИТЬ ЗапрещенныеПодразделения1

|ИЗ

|   РегистрСведений.опЗапретПремированияПодразделений.СрезПоследних(&ДатаСреза, Организация = &Организация) КАК опЗапретПремированияПодразделенийСрезПоследних

|ГДЕ

|   НЕ опЗапретПремированияПодразделенийСрезПоследних.ПремированиеРазрешено»;

Запрос.УстановитьПараметр(«Организация», Организация);

Запрос.УстановитьПараметр(«ДатаСреза», КонецДня(ДатаКонца));

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

Выборка = Результат.Выбрать();

Выборка.Следующий();

// получим количество записей временной таблицы

КолВоЗаписей1 = Выборка.Количество;

КолВоЗаписей2 = 0;

НомерЦикла1 = 1;

// затем напишем циклический запрос, в котором будут меняться номера вложенных таблиц

// всё время результат будем объединять с исходной таблицей (без совпадений!)

Запрос.Текст = «ВЫБРАТЬ

|   ЗапрещенныеПодразделения.СУчетомИерархии,

|   ПодразделенияОрганизаций.Ссылка КАК ПодразделениеОрганизации

|ПОМЕСТИТЬ ЗапрещенныеПодразделения1

|ИЗ

|   ЗапрещенныеПодразделения0 КАК ЗапрещенныеПодразделения

|       ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ПодразделенияОрганизаций КАК ПодразделенияОрганизаций

|       ПО ЗапрещенныеПодразделения.ПодразделениеОрганизации = ПодразделенияОрганизаций.Родитель

|           И (ЗапрещенныеПодразделения.СУчетомИерархии)

|

|ОБЪЕДИНИТЬ

|

|ВЫБРАТЬ

|   ЗапрещенныеПодразделения.СУчетомИерархии,

|   ЗапрещенныеПодразделения.ПодразделениеОрганизации

|ИЗ

|   ЗапрещенныеПодразделения0 КАК ЗапрещенныеПодразделения»;

// условие выхода из цикла — количество искомых подразделений перестанет расти

Пока КолВоЗаписей1 <> КолВоЗаписей2 Цикл

КолВоЗаписей2 = КолВоЗаписей1;

// циклически заменяем номера вложенных таблиц

Запрос.Текст = СтрЗаменить(Запрос.Текст, «ЗапрещенныеПодразделения» + НомерЦикла1, «ЗапрещенныеПодразделения» + Число(НомерЦикла1 + 1));

Запрос.Текст = СтрЗаменить(Запрос.Текст, «ЗапрещенныеПодразделения» + Число(НомерЦикла1 — 1), «ЗапрещенныеПодразделения» + НомерЦикла1);

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

Выборка = Результат.Выбрать();

Выборка.Следующий();

// получим количество записей временной таблицы

КолВоЗаписей1 = Выборка.Количество;

НомерЦикла1 = НомерЦикла1 + 1;

КонецЦикла;

// последняя (или предпоследняя!) таблица даст нужный результат, в колонке «ПодразделениеОрганизации»

// последняя таблица имеет номер НомерЦикла1 (он только что был увеличен на 1)

// предпоследняя таблица имеет номер (НомерЦикла1-1)

Запрос.Текст = «ВЫБРАТЬ

|   ЗапрещенныеПодразделения.СУчетомИерархии,

|   ЗапрещенныеПодразделения.ПодразделениеОрганизации

|ИЗ

|   ЗапрещенныеПодразделения0 КАК ЗапрещенныеПодразделения»;

Запрос.Текст = СтрЗаменить(Запрос.Текст, «ЗапрещенныеПодразделения0», «ЗапрещенныеПодразделения» + НомерЦикла1);

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

Возврат Результат.Выгрузить().ВыгрузитьКолонку(«ПодразделениеОрганизации»);

КонецФункции // ПолучитьВсеЗапрещенныеПодразделения()

.

Заполнение документов двойным способом (из обработок и из формы самих документов) усложняет доработку. В ЗУП 2.5.45.3 документ-пачка СЗВ-6-3 заполняется только из формы обработки ПодготовкаДанныхПФР2010. Документ записывается в базу в момент закрытия формы обработки, а не сразу после нажатия кнопки «Сформировать сведения». Всё это усложняет доработку, и вместо сеансовых переменных приходится вводить флажок на форме, который управляет включением-выключением доработки.