Подскажите как можно уменьшить базу зарплаты, хотябы журнал расчетов
Подскажите как можно уменьшить базу зарплаты, хотябы журнал расчетов
"Да легко =)<br><br>Создаете внешний отчет, на нем три элемента:<br>НачДата (реквизит диалога типа Дата)<br>КонДата (реквизит диалога типа Дата)<br>Выполнить (кнопка, на вкладке Дополнительно в поле Формула впишите "Удаление()" без кавычек)<br><br>В модуль обработки кладете:<br><br>//////////<br>Перем Период,НТП,КТП;<br><br>Процедура Удаление()<br> Перем Запрос, ТекстЗапроса;<br> //Создание объекта типа Запрос<br> Запрос = СоздатьОбъект("Запрос");<br> ЖР=СоздатьОбъект("ЖурналРасчетов.Зарплата");<br> ТекстЗапроса = <br> "//{{ЗАПРОС(Сформировать)<br> |Период с НачДата по КонДата;<br> |ФизЛицо = ЖурналРасчетов.Зарплата.Объект.ОсновнойЭлемент;<br> |ЗаписьЖР = ЖурналРасчетов.Зарплата.ТекущаяЗапись;<br> |Результат = ЖурналРасчетов.Зарплата.Результат;<br> |Группировка ФизЛицо без групп;<br> |Группировка ЗаписьЖР;<br> |"//}}ЗАПРОС<br> ;<br> // Если ошибка в запросе, то выход из процедуры<br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> Пока Запрос.Группировка(1) = 1 Цикл<br> Пока Запрос.Группировка(2) = 1 Цикл<br> ТекущаяЗапись=Запрос.ЗаписьЖР;<br> ЖР.НайтиЗапись(ТекущаяЗапись);<br> ЖР.УдалитьЗапись();<br> КонецЦикла;<br> КонецЦикла;<br> <br>КонецПроцедуры<br>///////////<br><br>И всё =) Укажите период, за который хотите удалить записи."
Ты сам то как оцениваешь последствия своего "произведения"???
Да нормально оцениваю =) Человеку нужно убрать записи журнала расчета зарплаты - этот код это делает. Как уж будет применено - дело его рук и совести.
26 апреля 2024 года — Форум пользователей «1С:Документооборота» |
1C:Лекторий: 7 мая 2024 года — Бесплатная онлайн-лекция о новом в 1С:ЗУП (версии 3.1.27-3.1.29): поддержка изменений по налогам и взносам, СЭДО, регистрация в органе статистики и другие изменения 1C:Лекторий: 14 мая 2024 года — Бесплатная онлайн-лекция об учете в 1С:БГУ 8 (ред. 2) невостребованной кредиторами задолженности. Серия 1С:Консалтинг для госсектора |