- 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 Цикл
Запись.Вставить("д" + Строка(й));
КонецЦикла;
striker 06.04.2010 05:55 # +4.6
tiger_x 06.04.2010 06:20 # +4.2
guest 06.04.2010 06:05 # +1.4
tiger_x 06.04.2010 06:20 # +0.8
guest 06.04.2010 23:55 # +1.2
guest 06.04.2010 23:56 # −3.6
azzz 06.04.2010 08:06 # +8.2
guest 06.04.2010 08:43 # +4
Наверное те, кто пишет на одноэсе, тот не только в цирке не смеётся.
ISith 06.04.2010 12:33 # −1.2
guest 06.04.2010 09:09 # 0
Oleg_quadro 06.04.2010 10:25 # −0.6
antigovnokoder 06.04.2010 11:36 # −0.8
del 06.04.2010 12:02 # −2
> Запись.Вставить("д" + Строка(й));
> КонецЦикла;
Оуууу....
guest 06.04.2010 12:43 # −2
guest 07.04.2010 00:05 # −2.2
guest 06.04.2010 16:17 # −2
luns 07.04.2010 06:09 # +2.8
и ничего менять не нужно.
guest 07.04.2010 00:06 # −2
Запись.Вставить("д" + Строка(ш));
КонецЦикла;
guest 07.04.2010 00:08 # −1.6
Кусщкв.Штыуке("д"+Ыекштп(ш));
Утв;
tiger_x 07.04.2010 06:15 # −1.2
guest 07.04.2010 13:12 # −1.8
guest 09.04.2010 21:10 # −2
bugmenot 02.06.2010 05:39 # +1
guest 02.06.2010 09:44 # −2
>ДействияФормыСформировать
Можно было бы по русски написать: СформироватьДействияФормы
Трактор 04.06.2010 14:37 # 0
CreatorOfBullshit 08.12.2010 08:45 # −1