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

Пример одного пакета запросов для конфигурации 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. Документ записывается в базу в момент закрытия формы обработки, а не сразу после нажатия кнопки «Сформировать сведения». Всё это усложняет доработку, и вместо сеансовых переменных приходится вводить флажок на форме, который управляет включением-выключением доработки.

Отловил в новой платформе 1С Предприятие 8.2.15.294 «забавный» глюк — метод документа УстановитьНовыйНомер() в функции СоздатьСЗВ63() в обработке ПодготовкаДанныхПФР2010 (1С Зарплата и управление персоналом 2.5.45.3) меняет мой параметр сеанса. Предопределенный метод УстановитьНовыйНомер() вызывается для нового создаваемого документа вида СведенияОНачисленномЗаработкеСЗВ63.
До вызова этого метода мой параметр сеанса равен Истина, после вызова — Ложь.
Это происходит лишь во время первого вызова метода УстановитьНовыйНомер(). Если кусок кода выполняется повторно, эффект не наблюдается.

Мой знакомый обратился ко мне за компьютерной помощью. Он пожаловался на периодическое минутное зависание компьютера, в ходе которого компьютер перестаёт реагировать на ввод — только непрерывно горит индикатор жёсткого диска.
После осмотра программной и аппаратной начинки компьютера я решил провести дефрагментацию жёсткого диска.
Загрузил бесплатную программу Defraggler 2.0 и запустил дефрагментацию диска C:
В ходе работы дефрагментатора мой знакомый открывал какие-то окна на компьютере и непроизвольно «поймал» тот самый момент, когда компьютер «завис» на непродолжительное время. В ходе зависания индикатор жёсткого диска горел не переставая.
Я понял, что проблемы с компьютером — не надуманные. Посмотрел SMART-атрибуты, отображаемые программой Defraggler 2.0 и понял, что диск «сыпется». После увиденного нами зависания изменилось (уменьшилось) количество секторов в очереди на REMAP (атрибут 197) и увеличился счётчик неисправимых ошибок (атрибут 187). Причём значение атрибута 187 зашкалило за 4300.
Поскольку Defraggler 2.0 распознал состояние диска как «хорошее», я не стал поднимать тревогу. Мой знакомый был предупреждён о возможном развитии ситуации. Я посоветовал ему последить за дальнейшим изменением значений атрибутов, и если они неуклонно продолжат расти, тогда уже нужно подумать о превентивной замене жёсткого диска.
Проблемный диск — Seagate 750 Gb (3 пластины). SMART-атрибуты показывали 200 суток бесперебойной работы, и около 800 циклов включения-выключения. Диску было примерно 2.5 года, но использовался он довольно интенсивно (обработка массивных фотографий в RAW-формате).
Справедливости ради отмечу, что в том же системном блоке рядом с первым жёстким диском был вставлен точно такой же диск (на который записывались резервные копии информации с первого диска), у него все счётчики сбойных секторов были в норме.

Оказывается, скорость запуска 1С Предприятия 8.2 и скорость входа в серверные базы можно существенно увеличить, если … дефрагментировать каталог временных файлов в профиле пользователя на клиентском компьютере. Да и вообще, дефрагментировать жёсткий диск полностью (каталог исполняемых файлов, в частности).