- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
Процедура ДействияФормыСформировать(Кнопка)
Запись = Новый Структура;
Запись.Вставить("Номер",);
Запись.Вставить("ФизЛицо",);
Запись.Вставить("ТабНомер",);
Запись.Вставить("д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",);
Не ожидал от своего коллеги такого говнокода :) Хорошо, что в месяце не 100 дней ;_)
Данный код можно заменить
Для й = 1 По 31 Цикл
Запись.Вставить("д" + Строка(й));
КонецЦикла;