Как разбить период по месяцам в 1С 8.3 для табличной части?

[Odineski]

1с83 обычные формы Документ КоммунальныеУслуги. Реквизиты ДатаНач, ДатаКон. Табличная часть Услуги. Создаю запись ТЧ. Контрагент, ДоговорКА, Услуга эти колонки заполняю. Колонки Д_нач, Д_кон пусты. На форме документа задаю реквизиты ДатаНач, ДатаКон. По нажатию кнопки на форме необходимо : 1. Разбить период с ДатаНач (02.02.26) по ДатаКон (19.04.26) на периоды 02.02.26 — 29.02.26, 01.03.26-31.03.26, 01.04.26-19.04.26.

[Odin — Одинэсник]

Чтобы разбить период с ДатаНач по ДатаКон на месячные интервалы с учетом частичных месяцев (как в вашем примере), нужно написать код, который будет формировать записи табличной части с нужными датами начала и конца для каждого периода.

Пример кода для кнопки на форме документа 1С 8.3 (обычные формы):

1С (Код)

&НаКлиенте Процедура РазбитьПериод(Команда) // Получаем даты из реквизитов формы ДатаНач = ЭтаФорма.Элементы.ДатаНач.Значение; ДатаКон = ЭтаФорма.Элементы.ДатаКон.Значение; Если ДатаНач = Неопределено Или ДатаКон = Неопределено Тогда Сообщить("Укажите даты начала и конца периода"); Возврат; КонецЕсли; Если ДатаНач > ДатаКон Тогда Сообщить("Дата начала не может быть больше даты конца"); Возврат; КонецЕсли; // Очистим табличную часть Услуги, если нужно Объект = ЭтаФорма.Объект; Объект.Услуги.Очистить(); // Переменная для текущей даты начала периода ТекДатаНач = ДатаНач; Пока ТекДатаНач <= ДатаКон Цикл // Определяем последний день месяца для ТекДатаНач ПоследнийДеньМесяца = КонецМесяца(ТекДатаНач); // Дата конца периода - либо конец месяца, либо ДатаКон, если он раньше Если ПоследнийДеньМесяца > ДатаКон Тогда ТекДатаКон = ДатаКон; Иначе ТекДатаКон = ПоследнийДеньМесяца; КонецЕсли; // Добавляем новую строку в табличную часть НоваяСтрока = Объект.Услуги.Добавить(); // Заполняем даты начала и конца периода НоваяСтрока.Д_нач = ТекДатаНач; НоваяСтрока.Д_кон = ТекДатаКон; // Здесь можно заполнить Контрагент, ДоговорКА, Услуга из текущей строки или по логике // Например, если нужно скопировать из первой строки, то: // НоваяСтрока.Контрагент = ...; // НоваяСтрока.ДоговорКА = ...; // НоваяСтрока.Услуга = ...; // Переходим к следующему периоду - следующий день после ТекДатаКон ТекДатаНач = СледующийДень(ТекДатаКон); КонецЦикла; // Обновляем форму, чтобы отобразить изменения ЭтаФорма.Обновить(); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

&НаКлиенте Процедура РазбитьПериод(Команда)     // Получаем даты из реквизитов формы     ДатаНач = ЭтаФорма.Элементы.ДатаНач.Значение;     ДатаКон = ЭтаФорма.Элементы.ДатаКон.Значение;          Если ДатаНач = Неопределено Или ДатаКон = Неопределено Тогда         Сообщить("Укажите даты начала и конца периода");         Возврат;     КонецЕсли;          Если ДатаНач > ДатаКон Тогда         Сообщить("Дата начала не может быть больше даты конца");         Возврат;     КонецЕсли;          // Очистим табличную часть Услуги, если нужно     Объект = ЭтаФорма.Объект;     Объект.Услуги.Очистить();          // Переменная для текущей даты начала периода     ТекДатаНач = ДатаНач;          Пока ТекДатаНач <= ДатаКон Цикл         // Определяем последний день месяца для ТекДатаНач         ПоследнийДеньМесяца = КонецМесяца(ТекДатаНач);                  // Дата конца периода - либо конец месяца, либо ДатаКон, если он раньше         Если ПоследнийДеньМесяца > ДатаКон Тогда             ТекДатаКон = ДатаКон;         Иначе             ТекДатаКон = ПоследнийДеньМесяца;         КонецЕсли;                  // Добавляем новую строку в табличную часть         НоваяСтрока = Объект.Услуги.Добавить();                  // Заполняем даты начала и конца периода         НоваяСтрока.Д_нач = ТекДатаНач;         НоваяСтрока.Д_кон = ТекДатаКон;                  // Здесь можно заполнить Контрагент, ДоговорКА, Услуга из текущей строки или по логике         // Например, если нужно скопировать из первой строки, то:         // НоваяСтрока.Контрагент = ...;         // НоваяСтрока.ДоговорКА = ...;         // НоваяСтрока.Услуга = ...;                  // Переходим к следующему периоду - следующий день после ТекДатаКон         ТекДатаНач = СледующийДень(ТекДатаКон);     КонецЦикла;          // Обновляем форму, чтобы отобразить изменения     ЭтаФорма.Обновить(); КонецПроцедуры

Объяснение:

— КонецМесяца(Дата) — встроенная функция 1С, возвращает последний день месяца для указанной даты.
— СледующийДень(Дата) — возвращает дату +1 день.
— Цикл идет от ДатаНач до ДатаКон, разбивая период на месячные интервалы.
— В каждой итерации создается новая строка табличной части с заполненными Д_нач и Д_кон.
— Контрагент, ДоговорКА, Услуга нужно заполнить по вашей логике (например, из существующих данных или из реквизитов формы).

Если у вас в табличной части уже есть строки с Контрагентом, Договором и Услугой, и нужно для каждой из них разбить период, то нужно вложить этот цикл в перебор строк табличной части, а не очищать её.

Если нужно разбить период для каждой строки ТЧ, то пример:

1С (Код)

&НаКлиенте Процедура РазбитьПериодПоСтрокам(Команда) Объект = ЭтаФорма.Объект; ДатаНач = ЭтаФорма.Элементы.ДатаНач.Значение; ДатаКон = ЭтаФорма.Элементы.ДатаКон.Значение; Если ДатаНач = Неопределено Или ДатаКон = Неопределено Тогда Сообщить("Укажите даты начала и конца периода"); Возврат; КонецЕсли; Если ДатаНач > ДатаКон Тогда Сообщить("Дата начала не может быть больше даты конца"); Возврат; КонецЕсли; // Создаем временный массив для новых строк НовыйМассив = Новый Массив; Для Каждого СтрокаТЧ Из Объект.Услуги Цикл ТекДатаНач = ДатаНач; Пока ТекДатаНач <= ДатаКон Цикл ПоследнийДеньМесяца = КонецМесяца(ТекДатаНач); Если ПоследнийДеньМесяца > ДатаКон Тогда ТекДатаКон = ДатаКон; Иначе ТекДатаКон = ПоследнийДеньМесяца; КонецЕсли; НоваяСтрока = Новый Структура; НоваяСтрока.Вставить("Контрагент", СтрокаТЧ.Контрагент); НоваяСтрока.Вставить("ДоговорКА", СтрокаТЧ.ДоговорКА); НоваяСтрока.Вставить("Услуга", СтрокаТЧ.Услуга); НоваяСтрока.Вставить("Д_нач", ТекДатаНач); НоваяСтрока.Вставить("Д_кон", ТекДатаКон); НовыйМассив.Добавить(НоваяСтрока); ТекДатаНач = СледующийДень(ТекДатаКон); КонецЦикла; КонецЦикла; // Очистим табличную часть и заполним заново Объект.Услуги.Очистить(); Для Каждого НоваяСтрока Из НовыйМассив Цикл НоваяСтрокаТЧ = Объект.Услуги.Добавить(); НоваяСтрокаТЧ.Контрагент = НоваяСтрока.Контрагент; НоваяСтрокаТЧ.ДоговорКА = НоваяСтрока.ДоговорКА; НоваяСтрокаТЧ.Услуга = НоваяСтрока.Услуга; НоваяСтрокаТЧ.Д_нач = НоваяСтрока.Д_нач; НоваяСтрокаТЧ.Д_кон = НоваяСтрока.Д_кон; КонецЦикла; ЭтаФорма.Обновить(); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

&НаКлиенте Процедура РазбитьПериодПоСтрокам(Команда)     Объект = ЭтаФорма.Объект;     ДатаНач = ЭтаФорма.Элементы.ДатаНач.Значение;     ДатаКон = ЭтаФорма.Элементы.ДатаКон.Значение;          Если ДатаНач = Неопределено Или ДатаКон = Неопределено Тогда         Сообщить("Укажите даты начала и конца периода");         Возврат;     КонецЕсли;          Если ДатаНач > ДатаКон Тогда         Сообщить("Дата начала не может быть больше даты конца");         Возврат;     КонецЕсли;          // Создаем временный массив для новых строк     НовыйМассив = Новый Массив;          Для Каждого СтрокаТЧ Из Объект.Услуги Цикл         ТекДатаНач = ДатаНач;         Пока ТекДатаНач <= ДатаКон Цикл             ПоследнийДеньМесяца = КонецМесяца(ТекДатаНач);             Если ПоследнийДеньМесяца > ДатаКон Тогда                 ТекДатаКон = ДатаКон;             Иначе                 ТекДатаКон = ПоследнийДеньМесяца;             КонецЕсли;                          НоваяСтрока = Новый Структура;             НоваяСтрока.Вставить("Контрагент", СтрокаТЧ.Контрагент);             НоваяСтрока.Вставить("ДоговорКА", СтрокаТЧ.ДоговорКА);             НоваяСтрока.Вставить("Услуга", СтрокаТЧ.Услуга);             НоваяСтрока.Вставить("Д_нач", ТекДатаНач);             НоваяСтрока.Вставить("Д_кон", ТекДатаКон);                          НовыйМассив.Добавить(НоваяСтрока);                          ТекДатаНач = СледующийДень(ТекДатаКон);         КонецЦикла;     КонецЦикла;          // Очистим табличную часть и заполним заново     Объект.Услуги.Очистить();     Для Каждого НоваяСтрока Из НовыйМассив Цикл         НоваяСтрокаТЧ = Объект.Услуги.Добавить();         НоваяСтрокаТЧ.Контрагент = НоваяСтрока.Контрагент;         НоваяСтрокаТЧ.ДоговорКА = НоваяСтрока.ДоговорКА;         НоваяСтрокаТЧ.Услуга = НоваяСтрока.Услуга;         НоваяСтрокаТЧ.Д_нач = НоваяСтрока.Д_нач;         НоваяСтрокаТЧ.Д_кон = НоваяСтрока.Д_кон;     КонецЦикла;          ЭтаФорма.Обновить(); КонецПроцедуры

Так вы для каждой исходной строки создадите несколько новых с разбивкой по месяцам.

Рекомендую посмотреть здесь, как работать с датами и табличными частями в 1С:
https://infostart.ru/public/1042547/
https://helpf.pro/faq82/view/1423.html

[Автор]

Сообщения