Расчет банковских (рабочих) дней (Оригинальный способ)

Публикация № 338386

Разработка - Практика программирования

Банковские (рабочие) дни

Как я рассчитал количество банковских дней в конфигурации, в которой, как мне казалось, нет производственного календаря - в конфигурации "Бухгалтерия предприятия 2.0". Метод применим для совершенно любой конфигурации: в том числе для ЗУП, в которой имеется соответствующий календарь. (Позже из комментариев выяснилось, что календарь-таки есть.)

Началось все с того, что понадобилось рассчитать просроченную задолженность покупателей с учетом отсрочки платежа в 10-ть банковских дней. Задача ставится на конфигурации "Бухгалтерия предприятия 2.0". Задачу расчета просрочек я решил в короткие сроки благодаря Инфостарту. Оставалось только учесть банковские дни просрочек, а не календарные.

Я решил так, что банковские дни - это по сути то же самое, что и рабочие дни при пятидневке в производственном календаре. Производственный календарь я взял из конфигурации ЗУП. На рисунке 1 показан взятый из пользовательского режима график работы и сохраненный в табличный документ mxl (рис.1).

рис.1 График работы 2014 г

рис. 1. График работы в 2015 г, пятидневка, конфигурация ЗУП

Вторым шагом я сохранил данный календарь в формате таблиц 1С - *.mxl. Удалил лишние строки и колонки. Скопировал получившийся календарь в макет обработки (рис.2).

рис.2 Макет календаря в обработке

рис.2. Макет календаря в обработке

В результате макет календаря стал выглядеть так: в строках заданы месяцы, в колонках - дни (рис.3).

рис.3. Календарь: месяцы - это строки, дни - это колонки

рис.3. "Подготовленный формат" календаря: месяцы - это строки, дни - это колонки

В модуле обработки я создал функции: первая возвращает количество банковских (рабочих) дней в заданном периоде, вторая - проверяет, является ли заданный день банковским, третья - прибавляет заданное количество банковских дней к заданной дате. 

Функция ПолучитьКолБанкДней(ДатаНачала, ДатаОкончания) Экспорт

   
ОчереднойДень = НачалоДня(ДатаНачала);
   
КолБанкДней = 0;
    Пока
ОчереднойДень<=НачалоДня(ДатаОкончания) Цикл

       
Макет = ПолучитьМакет("Год" + Формат(Год(ОчереднойДень), "ЧГ=0"));
       
стр = Месяц(ОчереднойДень);
       
кол = День(ОчереднойДень);
       
Текст = Макет.Область(стр, кол, стр, кол).Текст;
       
КолБанкДней = КолБанкДней + ?(Текст = "8", 1, 0);

       
ОчереднойДень = ОчереднойДень + 24*3600;
    КонецЦикла;

   
Сообщить(КолБанкДней);

    Возврат
КолБанкДней;

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

Функция
ПрибавитьКолБанкДней(НачальнаяДата, КолБанкДней) Экспорт

   
КонечнаяДата = НачальнаяДата;
    Пока
КолБанкДней>0 Цикл
       
КонечнаяДата = КонечнаяДата + 24*3600;
        Если
ЭтоБанковскийДень(КонечнаяДата) = Истина Тогда
           
КолБанкДней = КолБанкДней - 1;
        КонецЕсли;
    КонецЦикла;

    Возврат
КонечнаяДата;

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

Функция
ЭтоБанковскийДень(ОчереднойДень) Экспорт

   
Макет = ПолучитьМакет("Год" + Формат(Год(ОчереднойДень), "ЧГ=0"));
   
стр = Месяц(ОчереднойДень);
   
кол = День(ОчереднойДень);
   
Текст = Макет.Область(стр, кол, стр, кол).Текст;
    Возврат ?(
Текст = "8", Истина, Ложь);

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

К статье прикреплена обработка "Производственный календарь.epf", содержащая календари банковских (рабочих) дней в макетах за 2010-2015 год и вышеуказанные функции для тестирования.

Всем всего доброго и успехов в работе!

Центр автоматизации, г. Казань


См. также:

Как эффективно использовать Инфостарт NEW!

Список реализаций + структура подчиненности + реестр документов SALE'1sm

Список заказов поставщикам + структура подчиненности SALE'1sm

Список заказов покупателей + структура подчиненности SALE'1sm

Договоры для 1с-ника ТОП-скачиваний

Сетка расписания (Планировщик) нестанДАрт

Два механизма, которые ускорили работу бухгалтеров в 1С нестанДАрт

Мини-CRM для УТ 10.3

Расчет банковских (рабочих) дней нестанДАрт

Шаблоны кода в режиме 1С:Предприятие SALE'1sm

Доработка конфигурации Конвертация Данных

Планирование платежей. Прогнозирование прибылей и убытков

Ввод показателей план-факта БП 3.0 Know-how

Инвентаризация личного опыта Для новичков 1С

Большие запросы: взгляд на проблему нестанДАрт

Технология создания коммерческих разработок Know-how

Андроид-решение для создания заказов в 1С Know-how + нестанДАрт

Отчет Остатки и цены

Печать ценников с одной и двумя ценами 55х40, 100х60, 140х200

Загрузка данных о розничных продажах из магазинов Intimissimi (Интимиссими) и Calzedonia (Кальцедония)

Доработки обмена "УТ 10.3 - интернет-магазина Shop-Script"

Скачать файлы

Наименование Файл Версия Размер
Обработка ПроизводственныйКалендарь

.epf 17,70Kb
06.03.18
3
.epf 17,70Kb 3 Скачать

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. WhiteOwl 341 25.03.15 10:33 Сейчас в теме
2. vasyak319 139 25.03.15 10:41 Сейчас в теме
Жесткач. Хорошо, что современные машины делают по несколько миллиардов операций в секунду и их не убить даже такими алгоритмами.
3. Alien_job 176 25.03.15 11:02 Сейчас в теме
(2) vasyak319, да ладно - регламентные отчеты тоже свои настройки в макетах хранят. Хотя в циклах они их, конечно, не получают.
4. vasyak319 139 25.03.15 11:34 Сейчас в теме
(3) Alien_job,
Хотя в циклах они их, конечно, не получают

во-во. Кроме того, из тех настроек слова не выкинешь, там всё нужно, а тут целая простыня ради нескольких чисел, хотя всё, что необходимо для этого алгоритма, это список отклонений, т.е. субботы-воскресенья, которые считаются банковскими днями и остальные дни недели, которые такими не считаются, а таких отклонений в год десяток.
Плюс отдельная премия Дарвина за вычисление перебором дней (особенно клёво, когда начальная дата пустая - тогда это over 700 тыщ итераций), что, впрочем, вытекает из остальных косяков алгоритма.
корум; +1 Ответить
7. Rustig 1555 25.03.15 12:54 Сейчас в теме
(4) задача решается на файловой базе, период расчета неустойки три года: с начала 2013г по текущий день 2015 г включительно - летает "на ура!" - проблем с производительностью нет. по поводу мелких недочетов - тут каждый сам решает для себя - у меня дата начала не может быть пустой - изначально стоит проверка в другой процедуре. такие дела. за замечания спасибо: может быть другим пригодится.
8. Rustig 1555 25.03.15 13:21 Сейчас в теме
(4) ваше замечание заставило меня задуматься: почему же при таком алгоритме проблем с производительностью не возникает? Оказывается, это следует из специфики самой постановки задачи - расчета просрочек: условно говоря, просрочка считается от ДатыОтгрузки до ДатыСледующегоСобытия (или даты оплаты или даты следующей отгрузки). Таким образом для каждой реализации (отгрузки) возникшая пара "ДатаНачала"-"ДатаОкончания" является "коротким" периодом, то есть к примеру от 14.03.2014 до 23.03.2014 прошло 9 календарных дней - в этом периоде определяется 6 банковских дней. То есть по сути цикл в алгоритме состоит из 9 итераций - проверяем каждый день является ли он банковским. Еще раз спасибо за замечание!
10. vasyak319 139 25.03.15 14:26 Сейчас в теме
(8) просто у вас объём маленький, а современные машины сцуко быстрые, так что если алгоритм, который при нормальной реализации отработал бы за микросекунду, работает в тысячу раз медленнее, вы этого один чёрт не заметите. Но это всё равно плохо, потому что миллисекунда тут, миллисекунда там, а в итоге документы по полминуты проводятся.
И это не просто теория, мне постоянно приходится давать ускоряющего пинка кривым алгоритмам, которые на полупустых базах летали.
Кроме того, это сейчас ваша процедура используется исключительно для отсрочки 10 дней. Другая задача появится, где тоже нужны будут банковские дни, и вы её либо заново переписывать будете, либо она будет у вас тормозить.
9. Rustig 1555 25.03.15 13:50 Сейчас в теме
(4) для более сложных задач (многоитерационных алгоритмов) можно при открытии формы обработки формировать временную таблицу значений, вытаскивая сведения из макета, а потом использовать эту таблицу в запросах.
11. vasyak319 139 25.03.15 14:43 Сейчас в теме
(9) т.е. передавать весь массив данных серверу - пусть развлекается? Снова неоправданная жестокость. На самом деле, если у вас всё ограничено известным периодом (а у вас всё как минимум ограничено периодом, для которого у вас есть календари), то вычисление каждой отсрочки можно свести к разности двух элементов одного массива.
12. Rustig 1555 26.03.15 07:13 Сейчас в теме
(11) мне кажется не стоит сгущать тучи по поводу производительности, предлагаю решать проблемы по мере их поступления, а не прогнозировать плохую производительность в будущих задачах и предлагаю не смешивать с этой задачей проблему долгого проведения документов - совсем уж разные темы.
Тема этой статьи - заключается в том, в БП 2.0 надо было посчитать банковские дни. Я описал одну из возможных реализаций. На мой скромный взгляд, получилось оригинально. :)
13. vasyak319 139 26.03.15 11:31 Сейчас в теме
(12) кстати, вот мне это сразу показалось странным, но я вам поверил, что в БП 2.0 нет производственного календаря. Сейчас решил таки посмотреть - он там есть. Тогда зачем вообще это всё?
tano23; Alien_job; +2 Ответить
14. Rustig 1555 26.03.15 14:23 Сейчас в теме
(13) что за объект метаданных?
15. Rustig 1555 26.03.15 14:26 Сейчас в теме
(13), (14) есть такой - регистр сведений Регламентированный производственный календарь. Ну, отлично! что ж сказать? не знал, что такой есть.
5. AganinEvgeniy 2 25.03.15 11:56 Сейчас в теме
Идея и правда не плоха ... но согласен с Василием, легче выбирать 20 отклонений в год и плюсовать их к номеру дня недели или что-то подобное намудрить, чем перебором обходить 365 дней.
6. fzt 25.03.15 12:03 Сейчас в теме
А почему бы и нет. Идея довольно простая и конфа не снята с поддержки.
Как улучшить:
1) Формируем всю эту радость в екселе.
2) К xls файлам можно делать полноценные SQL запросы, через драйвер ODBC (в поставке любой винды).
Экономия кучи машинного времени.
16. b-dm 169 27.03.15 11:28 Сейчас в теме
А все равно публикация классная. Мне нпонравилось и решение и описание. Плюс.
17. DDos76 200 31.03.15 19:37 Сейчас в теме
Реально способ оригинальный. За способ поставил +!
Следующий этап - календарь будет храниться в экселе, сначала по OLE (Пардон COM) попробуем оттуда забирать.
К xls файлам можно делать полноценные SQL запросы, через драйвер ODBC (в поставке любой винды). - это не так интересно.
Если будет медленно - там и до PegExp рукой подать. Разбор файла .XLS средствами 1с так сказать.
С 1 Апреля!
dgolovanov; +1 Ответить
Оставьте свое сообщение

См. также

Счет на оплату с НДС 20%

Печатные формы документов Оптовая торговля Оптовая торговля v8 v8::ОУ БП2.0 УТ10 Абонемент ($m)

Счет на оплату с НДС 20% и уведомлением, что НДС изменится с 01.01.2019г.

1 стартмани

12.11.2018    11194    27    Rustig    13    

Группировка товаров при печати чеков ККМ

Печатные формы документов ККМ Кассовые операции Розничная торговля Кассовые операции Розничная торговля v8 КА1 УТ10 БУ Абонемент ($m)

Товары группируются по своей иерархии товаров. Длина чека ККМ сокращается в разы. Общая сумма чека ККМ и общее количество товаров не изменяется.

2 стартмани

07.09.2018    8168    0    Rustig    13    

Внешняя Торг-12 со штрихкодом для БП 2.0

Печатные формы документов Оптовая торговля Оптовая торговля v8 v8::БУ БП2.0 Россия БУ Абонемент ($m)

Представлена внешняя печатная форма Торг-12 для БП 2.0 с выводом штрихкода. В качестве штрихкода задается номер заказа. В базе штрихкоды хранятся как дополнительные реквизиты. Предложенный способ (идея) использования штрихкодов распространяется на любую конфигурацию.

1 стартмани

05.11.2016    13455    6    Rustig    0    

Расширение возможностей печати: Вывод произвольного нижнего и верхнего колонтитула Промо

Печатные формы документов Практика программирования Универсальные функции v8 1cv8.cf Абонемент ($m)

Расширяем функционал вывода нижнего / верхнего колонтитула. Стандартно 1С имеет достаточно ограничений по выводу и наполнению колонтитулов содержимым, взять хотя бы такие, как вывод только текста и отсутствие ограничения на номер конечной страницы. А при разработке кода сталкиваешься с тем, что свой блок с нижним колонтитулом нужно прижимать к низу страницы. Казалось бы быстро решаемый вопрос, но и в нем есть нюансы. Сейчас я расскажу о том, как решалась эта задача. UPD 15.02.2018. Добавлен вывод верхнего колонтитула; Вывод колонтитулов на первой и последней странице управляется параметрами; Научился считать страницы: Добавлено заполнение переменных аналогичных стандартным из колонтитулов; Задаются форматы даты и времени. Ограничения прежние: 1. Повторно сформировать табличный документ после смены параметров страницы интерактивно.; 2. Передавать данные для более плотной печати как можно более мелко нарезанными кусками.

1 стартмани

29.12.2017    40143    28    agent00mouse    0    

Внешняя УПД для реализации (УТ 10.3.32 и 10.3.43.1) - две доработанные обработки: до и после 1 июля 2017 г + типовая внешняя УПД

Печатные формы документов Оптовая торговля Оптовая торговля v8 v8::ОУ УТ10 Россия БУ Абонемент ($m)

В печатной форме УПД вместо "Договора" (поле Основание) теперь подставляется "Заказ покупателя", даже если взаиморасчеты ведутся "по договору в целом". Представлены две внешние обработки УПД - разработанные соответственно до и после 1 июля 2017 г. Также представлена третья обработка - полностью типовая внешняя УПД, которая подходит как для УПД до 1 июля, так и после 1 июля 2017г. Внимание! Не подходит под изменения от 1 октября 2017г.

1 стартмани

15.12.2015    18844    117    Rustig    8    

Свод алиментов и печать почтовых переводов по форме ф112

Пакетная печать Зарплата Бухгалтерские Зарплата v8 ЗУП2.5 Россия БУ Абонемент ($m)

Расчетный отдел попросил как-нибудь оптимизировать их работу алиментам. Поиск по сайту ничего не дал (платные я не считаю). Пришлось самому открывать конфигуратор. Началось как обычно с бланков почтовых переводов, а закончилось вот этим. Сразу оговорюсь обработка сыровата, и если обнаружите недочеты просьба сообщать о них в комментариях.

1 стартмани

22.06.2012    15742    11    Zero_nv    5    

Лицевая карточка по физлицу за год для ЗУП и ЗИК БУ с информацией по НДФЛ

Зарплата Справки Бухгалтерские Зарплата v8 ЗУП2.5 ЗКБУ Россия БУ Госбюджет Абонемент ($m)

Свод зарплаты по физическому лицу за год с разбивкой по месяцам и возможностью расшифровки сумм по источникам финансирования и КОСГУ. Теперь, одной и той же epf-кой можно работать и в ЗУПе, и в ЗИК БУ. Добавлена развернутая информация по НДФЛ (база, вычеты, начисленный налог).

1 стартмани

28.10.2011    29607    29    shafran    32    

Справка о среднем заработке ЗУП 3.1 и 2.5 Промо

Справки Бухгалтерские Зарплата Зарплата v8 v8::СПР ЗУП2.5 ЗУП3.x Россия БУ Абонемент ($m)

Понравившаяся многим справка о среднем заработке теперь и для редакции 3!

1 стартмани

13.01.2012    74893    248    diso    49    

Инвентаризация расходов будущих периодов

Универсальные печатные формы Бухгалтерские v8 БП2.0 БУ Абонемент ($m)

Исправленный вариант обработки по Инвентаризации РБП. Изменен модуль обработки и печатная форма.

1 стартмани

03.06.2010    22375    18    kosmit    17    

Унифицированная форма Т-2 для ЗУП 8.1

Универсальные печатные формы Справки Бухгалтерские Управление персоналом (HRM) Управление персоналом (HRM) v8 ЗУП2.5 Абонемент ($m)

Т-2 с учетом требований законодательства (вывод доп. листов по отпускам)

1 стартмани

23.04.2009    20339    6    Leoway    18    

Все еще заполняешь бланки почтовых переводов вручную? Тогда БЕРИ и ПОЛЬЗУЙСЯ! Промо

Пакетная печать Бухгалтерские Зарплата Зарплата v8 КА1 ЗУП2.5 УПП1 Россия БУ Абонемент ($m)

Лучше всего свои чувства выразила одна из моих клиенток: «Оплата алиментов по почте - просто выводит меня из себя. Хочется рвать и метать. А когда их еще штук 5-8, то просто ппц. Спасибо за разработку!» Мать Тереза. (грамматика и лексика оставлены в оригинале). см. также - Печать бланков почтового перевода (ф.112эю) – в один клик мыши!

8 стартмани

02.10.2009    47315    11    director04    95