OFF: крутые кодеры, давайте обсудим примеры крутого кода

LIFE

Юмор

, , ,

☑

0 prog01

23.10.12

✎

18:31

с примерами, нужно выяснить кто
"Самый Крутой Одинесник НЕ быдлокодер"

120 olo_lo1

24.10.12

✎

12:56

Если НЕ Сообщать=Ложь Тогда
Сообщить("Генитально, но поломать голову придется")

121 Reset

24.10.12

✎

12:58

:)
Не Сообщать<>Не Истина

122 Reset

24.10.12

✎

12:59

блин, ошибся

123 olo_lo1

24.10.12

✎

13:04

НЕ (Сообщать <> Не ЛОЖЬ)

124 Reset

24.10.12

✎

13:06

Истина=Ложь;

Если (10=0) = Истина тогда
Сообщить("Вот оно как");
КонецЕсли;

125 Reset

24.10.12

✎

13:07


 
Истина=Ложь; 
 

 
Если (10=0) = Истина тогда 
 
 Сообщить("Вот оно как"); 
 
КонецЕсли;

126 Reset

24.10.12

✎

13:07

аа это OFF

127 Reset

24.10.12

✎

13:07

код выше рабочий

128 Reset

24.10.12

✎

13:08

Прошу прощения)
Вот этот рабочий

Истинa=Ложь;

Если (10=0) = Истинa тогда
Сообщить("Вот оно как");
КонецЕсли

129 oslokot

24.10.12

✎

13:20

(125) прошу прощения что не в тему, а где почитать о правилах использования тегов на этом форуме?

130 Fragster

гуру

24.10.12

✎

13:24

(128) ты засинил мою истину, демон!!!

131 Simod

24.10.12

✎

13:41

(103) Есть вариант элегантнее:

Функция СинхронизироватьТаблицы(тз_ВсеТовары, тз_ДанныеФайла)

тз_Номенклатура = СоздатьОбъект("ТаблицаЗначений");
тз_Номенклатура.НоваяКолонка("Номенклатура", "Справочник.Номенклатура");

тз_ВсеТовары.КоличествоСтрок(тз_ВсеТовары.КоличествоСтрок() + тз_ДанныеФайла.КоличествоСтрок());
тз_ВсеТовары.Заполнить(тз_ДанныеФайла, тз_ВсеТовары.КоличествоСтрок() - тз_ДанныеФайла.КоличествоСтрок() + 1,, "Артикул");
тз_ВсеТовары.Сортировать("Артикул");

п_Артикул = "";
п_Номенклатура = ПолучитьПустоеЗначение("Справочник.Номенклатура");
п_Проверять = 0;

тз_ВсеТовары.ВыбратьСтроки();
Пока тз_ВсеТовары.ПолучитьСтроку() = 1 Цикл
Если п_Проверять = 1 Тогда
Если п_Артикул = тз_ВсеТовары.Артикул Тогда
тз_Номенклатура.НоваяСтрока();
тз_Номенклатура.Номенклатура = ?(ПустоеЗначение(п_Номенклатура) = 0, п_Номенклатура, тз_ВсеТовары.Номенклатура);
КонецЕсли;
п_Проверять = 0;
КонецЕсли;
Если п_Проверять = 0 Тогда
п_Артикул = тз_ВсеТовары.Артикул;
п_Номенклатура = тз_ВсеТовары.Номенклатура;
п_Проверять = 1;
КонецЕсли;
КонецЦикла;

Возврат тз_Номенклатура;

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

132 Asirius

25.10.12

✎

00:40

(112) Каюсь... маня покусал, конечно 120 штук не за сам код.
Там сколько еще переговоров было, составление ТЗ, обучение, висение на телефоне и прочая муть.

133 i-rek

25.10.12

✎

00:59

(66) охренеть. Это работает ??
по-моему народ даже не вчитался и не оценил

134 France

25.10.12

✎

01:10

степке разину следующий код обошелся в не один десяток тысяч рублёв:
Для сч=1 по КоличествоБиенийГоловойОбСтену Цикл

зы..Саше привет))

135 КонецЦикла

25.10.12

✎

02:37

(106) Число("+1.99") = 1.99
Только что набрал в табло

136 Злопчинский

25.10.12

✎

02:59

(135) ЭтоЧисло() - возвращает нихрена не число - вы уж определитесь.. ;-)

137 skunk

25.10.12

✎

05:18

(133)этому бояну уже лет сто в обед ... был тут на мисте спец по разработке функций в одну строку

138 Simod

25.10.12

✎

05:56

(105) Если в качестве разделителя запятая (","), то не работает.

139 prog01

25.10.12

✎

16:42

и это всё? )))

140 AeDen

25.10.12

✎

16:49

(137) Рупор?

141 Иван Иваныч

25.10.12

✎

22:55

(139) Ну? Продай талант!

142 КонецЦикла

26.10.12

✎

03:49

(136) Ну добавь еще одну строчку для такого тяжелого случая

143 КонецЦикла

26.10.12

✎

03:51

(138) См. (142) :)

144 Simod

26.10.12

✎

06:45

(142) "+1" для твоей функции тоже "тяжелый случай".

145 GoroStyle

26.10.12

✎

06:45

))) Пустой цикл + Объект.Записать(); в цикле))) Пустой документ, пишущий, что заполнено 99 999 строк и невозможно записать))))(23)

146 КонецЦикла

26.10.12

✎

23:00

(144) Об этом и писал товарищу в (136) :)

147 Zixxx

26.10.12

✎

23:17

Функция ПолучитьНужныйРезультат()
Результат = Новый ПолучитьНужныйРезультатк();
КонецФкнции;

148 Zixxx

26.10.12

✎

23:18

(147) + Возврат Результат;
и все

149 aleks-id

26.10.12

✎

23:22

твой код нерабочее хавно.

Функция ПолучитьНужныйРезультат()
Возврат ПолучитьНужныйРезультат();
КонецФкнции;

150 Zixxx

26.10.12

✎

23:27

(149) Лошара

Результат = Новый НужныйРезультат();

151 aleks-id

26.10.12

✎

23:32

(150) сам лошара. и че у тебя будет?

152 Zixxx

26.10.12

✎

23:33

(151) У меня нужный мне результат, а у тебя дамп

153 aleks-id

26.10.12

✎

23:41

(152) то что у меня дамп это понятно. а вот что ты получишь? ошибку "тип не определен"? и кто из нас лошара?

154 Zixxx

26.10.12

✎

23:43

(153) еще раз проверь этот конструктор через ctrl+f1 :) лошара

155 aleks-id

26.10.12

✎

23:44

(154) физик-теоретик?

156 Лефмихалыч

26.10.12

✎

23:52

(0) вот самый крутой код:

без него ни хера не работает и сам по себе он РАБОТАЕТ даже, когда вокруг ни чего нет.

157 aleks-id

26.10.12

✎

23:58

(156) нихера пишется слитно )))

158 ОбычныйЧеловек

27.10.12

✎

00:08

(157) лишь в данном контексте как замена слова "ничего" иначе может писАться и раздельно )

159 Tatitutu

27.10.12

✎

08:51

для 7.7
"... Игра ПЯТНАШКИ в ДВЕ СТРОЧКИ ВСЕГО..." (для Вашей коллекции) http://infostart.ru/public/62751/

для 8.2
3D в 1С или Стерео Картинки(SIRDS).Не верь своим глазам.
http://infostart.ru/public/77536/

"Свернуть" все окна (для обычного приложения)
НИ СТРОЧКИ КОДА - НО РАБОТАЕТ :-)))))
http://infostart.ru/public/122835/

или все вместе альтернатива

http://narod.ru/disk/63000231001.06ebceaec53862f2cc8c284d3a166afc/bestkod.zip.html
Размер : 100 кб.

160 Отладчик

27.10.12

✎

10:30

Я вот в 77 чо то забыл как Формат()-ом из даты вернуть название месяца. Формат(ТекущаяДата(), "MMMM") не работает... Поэтому написал свой "формат" одной строчкой:
НазваниеМесяца=Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4,Найти(Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4)," ")-2)+?(СтрДлина(Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4,Найти(Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4)," ")-2))=2,"й",?((СтрДлина(Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4,Найти(Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4)," ")-2))=4)ИЛИ(Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4,Найти(Сред(Формат(НашаДата, "Д (0)ДДММММГГГГ"),4)," ")-2)="Август"),"","ь"));

Пример конечно фиговый, но помнится, меня ругали за "код в одну строку", типа нечитабельно, типа другой прогер не поймет... Приходилось наворачивать кучу Если/Иначе

161 Утконос

27.10.12

✎

13:31

(159) не понял!!! Свернуть все окна как работает , где код ?

162 Torquader

27.10.12

✎

19:24

(160) У меня сначала в глобальнике формируется массив с названиями месяцев, знаками зодиака и прочей мутью, а потом всё выводится из массива - так быстрее и проще.

163 Гений 1С

гуру

27.10.12

✎

21:54

Правила хорошего кода: http://fixin.com.ru/articles/theory_good_code/article.htm

164 СамСуСам

27.10.12

✎

21:57

(163) В разделе рефакторинг ошибка.

165 Гений 1С

гуру

27.10.12

✎

21:58

(164) какая? я не безгрешен

166 Отладчик

28.10.12

✎

08:00

(162) Функция(НомерМесяца) в нее передаем Месяц(НашаДата)
Возврат Перем Январь[1] ?
Г@внокод имхо :) Хотя просто и понятно. Но все же тут меряются, как я заметил. Непонимаю. Пиши просто!! 1С Предприятие - это не среда для разработки операционных систем например, драйверов и т.д. ООП ненужно совершенно для решения задач, под которые собственно и заточено предприятие это! 1С понтуется не по делу, создавая лишь лишний гемор для прогеров.
Для таких задач за глаза хватило бы и возможностей 77(возможностей безграничных, если прикрутить нужную DLL, ++, правда это костыли, согласен, но все равно).

167 Отладчик

28.10.12

✎

08:03

(161) Господи боже мой, создай текстовый файл с расширением scf, впиши в него:
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
Радуйся.

168 1C_Patriot

28.10.12

✎

08:38

ветка жесть

169 Лефмихалыч

28.10.12

✎

09:49

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

170 Алистар

28.10.12

✎

10:08

--i++;

//передергивание переменной

171 Отладчик

28.10.12

✎

10:10

(170) В цикл по условию 2*2=4 её!!!

172 Алистар

28.10.12

✎

10:10

отображать только дату

ЛЕВ(Дата,10);

173 Отладчик

28.10.12

✎

10:11

(172) Делал так. Каюсь.

174 andrewalexk

28.10.12

✎

10:26

(164) :) ты ведешься на толстый тролинг....генька и хороший код это как ...милый фашизм

175 СамСуСам

28.10.12

✎

15:14

(174) кто такой фиксин я знаю, также знаю что любой его креатив эталоный пример г@внокода.

176 Гений 1С

гуру

28.10.12

✎

15:37

(169) ты гонишь. все правильно, только что проверил. Ты функцию и код попутал
функия - со скобочками - Б();
Код - без В;

177 СамСуСам

28.10.12

✎

15:49

(176) Ты конкретно с годами тупеешь. Два твоих куска кода до "рефакторинга" и после имеют разный смысл.

178 Vladal

29.10.12

✎

22:13

Не моё:
http://s52.radikal.ru/i137/1207/77/6ea15989e208.png

179 Лефмихалыч

29.10.12

✎

22:25

(176) во втором варианте, где у тебя проверка условия "Если ДелатьВ Тогда"?

180 Tatitutu

29.10.12

✎

22:38

(167) не по делу )))

181 Stim

29.10.12

✎

22:42

Учитель собрал своих учеников и сказал:
- Тому, кто превзойдет меня, вашего учителя - я дам 100 монет.
Ученики задумались. И один из них крикнул:
- А я дам 200 монет!
Тут учитель задумался.. и полез в кошель за деньгами и отдал 100 монет находчивому ученику.

182 Stim

29.10.12

✎

22:43

(178) за такое банить надо. навечно

183 Поросенок Петр

29.10.12

✎

23:10

(177) Вообще требование не определять параметрами ход функции ещё Фаулер описывал, а фиксин просто где-то прочитал. Это всё старо как г-но мамонта.

184 HeroShima

29.10.12

✎

23:14

(183) Куита.

185 Гений 1С

гуру

30.10.12

✎

00:03

(183) это из своей практики

186 HeroShima

30.10.12

✎

00:09

Определять параметрами ход функции можно, а иногда нужно.

187 Гений 1С

гуру

30.10.12

✎

00:14

(186) важно понять, когда нужно, когда нет

188 HeroShima

30.10.12

✎

00:29

(187) когда задаются различные режимы работы одного и того же алгоритма

189 6tuf

30.10.12

✎

10:29

(123) понравилось, теперь везде так буду писать!

190 1Страх

01.11.12

✎

13:02

Не мог удержаться, найдя в типовом коде:

СписокТипов.Добавить(Метаданные.Документы["КорректировкаДолга"].Имя, Метаданные.Документы["КорректировкаДолга"].Представление());

191 prog01

02.11.12

✎

16:42

(163)не превращайся в говорящую лошадь из анегдота приводи примеры кода а не рассуждения методологические

192 Popkorm

02.11.12

✎

17:27

193 YHVVH

02.11.12

✎

17:31

вот еще примерчик

Запрос.Текст ="ВЫБРАТЬ &Звезда ИЗ Справочник.Номенклатура";
Запрос.Текст = СтрЗаменить( Запрос.Текст , "&Звезда" , "*" );

194 prog01

02.11.12

✎

17:35

(193)вау... это типа юмор программистов?

195 YHVVH

02.11.12

✎

17:37

(194) главное что имеет смысл этот код. я долго думал зачем так сделано.

196 Fragster

гуру

02.11.12

✎

17:38

(195) изобретение построителя запросов своими руками

197 Fragster

гуру

02.11.12

✎

17:38

(196)+ там может дальше есть что-нибудь типа "если условие тогда Запрос.Текст = СтрЗаменить( Запрос.Текст , "&Звезда" , "Наименование, Ссылка, ЕщеКакоеНибудьПоле" );"

198 YHVVH

02.11.12

✎

17:39

(197) нетю, а зачем?

199 YHVVH

02.11.12

✎

17:40

кусок самого текста правда другой но смысл не меняется.

200 CaMoJleT

02.11.12

✎

17:40

200

201 YHVVH

02.11.12

✎

17:44

(196) если * ставить сразу и открывать конструктором, то он заменяет * на кучу полей, если реквизитов много то получается большой не красивый запрос. чтоб такого не было * прячут в параметр.

202 Popkorm

02.11.12

✎

17:54

(195)на УПП денег небыло

203 Fragster

гуру

02.11.12

✎

17:56

(201) хитро!

204 Fragster

гуру

02.11.12

✎

17:57

(203)+ только конструктор сделает &Звезда КАК Поле1 и смысл потеряется

205 Fragster

гуру

02.11.12

✎

17:58

ух ты! не делает!

206 prog01

06.11.12

✎

15:45

долго думал что сюда запостить самому решил выложить то что применяется везде для выявления косяков так называемых в учете с некоторыми переписываниями для обхода типов документов некоторых (проводить если нужно не все документы) или проведение ещё по флагу можно сделать до перепроведения если перепроведение уверенно состоится но нужно обойти конфликт блокировок

из раннего так сказать )))

Процедура ПерепровестиБазу(НачалоПериода, КонецПериода) Экспорт

УстановитьПривилегированныйРежим(Истина);

Если НачалоПериода >= КонецПериода Тогда

Сообщить("Выберите период", СтатусСообщения.Важное);

Возврат;

КонецЕсли;

ЗатраченноеВремя = ТекущаяДата();

Запрос = Новый Запрос;

Запрос.Текст = "";

Для Каждого Документ Из Метаданные.Документы Цикл

Если Документ.Реквизиты.Найти("Организация") = Неопределено Тогда

Продолжить;

КонецЕсли;

Если Запрос.Текст <> "" Тогда

Запрос.Текст = Запрос.Текст + " Объединить Все ";

КонецЕсли;

Запрос.Текст = Запрос.Текст + " ВЫБРАТЬ " + " Ссылка " + " КАК Ссылка " + " , МоментВремени " +" КАК МоментВремени " + " , Дата " +" КАК Дата " + " ИЗ " + " Документ." + Документ.Имя + " ГДЕ Ссылка.Дата > &НачалоПериода И Ссылка.Дата < &КонецПериода";

Состояние(Документ);

КонецЦикла;

Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода);
Запрос.УстановитьПараметр("КонецПериода", КонецПериода);

ТаблицаДокументов = Запрос.Выполнить().Выгрузить();

ТаблицаДокументов.Сортировать("Дата, МоментВремени");

ПродолжатьСортировку = Истина;

Индекс = 0;

Если ТаблицаДокументов.Количество() = 0 Тогда

Возврат;

КонецЕсли;

Пока ПродолжатьСортировку Цикл

Для Каждого Строка Из ТаблицаДокументов Цикл

Если (ТаблицаДокументов.Индекс(Строка) + 1) = ТаблицаДокументов.Количество() Тогда

ПродолжатьСортировку = Ложь;

Прервать;

КонецЕсли;

Если Строка.МоментВремени.Сравнить(ТаблицаДокументов.Получить(ТаблицаДокументов.Индекс(Строка) + 1).МоментВремени) = 1 Тогда

ТаблицаДокументов.Сдвинуть(Строка, 1);

Состояние("Идёт сортировка: " + Строка.МоментВремени);

Прервать;

КонецЕсли;

КонецЦикла;

КонецЦикла;

Сообщить(ТаблицаДокументов.Количество());

Для Каждого Строка Из ТаблицаДокументов Цикл

ОбработкаПрерыванияПользователя();

Если Строка.Ссылка.Проведен = Истина Тогда

Состояние(Строка.Ссылка);

Попытка

Сообщить("Проводится:" + Строка.Ссылка);

Строка.Ссылка.ПолучитьОбъект().Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный );

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

КонецЕсли;

Если Строка.Ссылка.Проведен = Ложь Тогда

Состояние(Строка.Ссылка);

Попытка

Сообщить("Записывается:" + Строка.Ссылка);

Строка.Ссылка.ПолучитьОбъект().Записать(РежимЗаписиДокумента.Запись);

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

КонецЕсли;

КонецЦикла;

ЗатраченноеВремя = ТекущаяДата() - ЗатраченноеВремя;

Сообщить("Затрачено: " + ЗатраченноеВремя + " секунд.");

КонецПроцедуры

207 vde69

06.11.12

✎

18:15

ну тогда еще примерчик

Процедура Расчет(ТЗ)
Если ложь Тогда
ТЗ = Новый("ТаблицаЗначений");
КонецЕсли;
....

208 Fragster

гуру

06.11.12

✎

18:20

(207) это чтобы паролия на интеллисенс работала

209 Fragster

гуру

06.11.12

✎

18:20

*пародия

210 vde69

06.11.12

✎

18:35

(208) нет, это просто что-бы дальше телепат воспринимал переменную ТЗ

211 Fragster

гуру

06.11.12

✎

18:53

(210) я ж так и написал

212 prog01

08.11.12

✎

13:21

приподниму:
Процедура ОбновитьСерии() Экспорт

ПодключитьсяК_SQL_UPP();

Сообщить("Серии");

УстановитьПривилегированныйРежим(Истина);

ТекстЗапроса = "SELECT derivedtbl_1.ID as ID
|--, _Reference221._Fld25736
|FROM OPENQUERY(boss4, ' SELECT ID FROM CommonBase_Sclad.dbo.SC214 ') AS derivedtbl_1 left OUTER JOIN
| _Reference221 ON ltrim(rtrim(derivedtbl_1.ID)) = ltrim(rtrim(_Reference221._Fld25736))
| where _Fld25736 is null
|--ORDER BY _Reference221._Fld25736";

Command.CommandText = ТекстЗапроса;
Command.CommandTimeout = 600;

RecordSet = Новый COMОбъект("ADODB.RecordSet");

RecordSet = Command.Execute();

Сообщить(ТекущаяДата());

Счетчик = 0;

Пока RecordSet.EOF() = 0 Цикл

Счетчик = Счетчик + 1;

Если Счетчик/100 - Цел(Счетчик/100) = 0 Тогда

Состояние = "" + Счетчик;
Состояние(Состояние + " " + СчетчикПереЗаписанных);

КонецЕсли;

ОбработкаПрерыванияПользователя();

ID = RecordSet.Fields("ID").Value;

ОбновитьЭлементСерии(ID);

RecordSet.MoveNext();

КонецЦикла;

Сообщить(ТекущаяДата());

Сообщить(Счетчик);

RecordSet.Close();

Сообщить("Перезаписано: " + СчетчикПереЗаписанных);

ОтключитьсяОт_SQL_UPP();

КонецПроцедуры

213 prog01

14.11.12

✎

16:02

нашел в интернетах прикольный код
http://zalil.ru/33960811
111

214 Wasya

14.11.12

✎

17:12

Не мое

Пока Вопрос("Прошло 0,6 секунды?","Да+Нет")="Нет" Цикл
КонецЦикла;

215 sapphire

03.12.12

✎

22:04

(212) Код = г...но

216 БАМБР2013

04.12.12

✎

22:26

Процедура ПечататьШаблонДоговораБрони(ИмяФайлаНаКлиенте,ПараметрКоманды)

Попытка
ДокументWord = ПолучитьCOMОбъект(ИмяФайлаНаКлиенте);
Исключение
ОписаниеОшибкиТекст = ОписаниеОшибки();
ТекстСообщения = "Печать невозможна, обратитесь к системному администратору. Возможно не установлен MS Word: "+ ОписаниеОшибкиТекст;
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
Возврат;
КонецПопытки;

СтруктураПараметров = СформироватьПараметрыШаблонаДоговора(ПараметрКоманды);

ДокументWord.Application.Visible = Ложь;

Документ = ДокументWord.Application.Documents(1);

Документ.Activate();

Для Каждого ЭлементСтруктуры из СтруктураПараметров Цикл

ПараметрСтруктуры = "["+СокрЛП(ЭлементСтруктуры.Ключ)+"]";
ЗначениеПараметраСтруктуры = ЭлементСтруктуры.Значение;

Замена = Документ.Content.Find;
//замена один раз
//Замена.Execute(ПараметрСтруктуры, Ложь, Истина, Ложь, , , Истина, , Ложь, ЗначениеПараметраСтруктуры);
//замена до победного конца
Замена.Execute(ПараметрСтруктуры,1,,,,,,,,ЗначениеПараметраСтруктуры,2);
КонецЦикла;

//Прописываем ТекстВерхнегоКолонтитула
Документ.Application.ActiveDocument.Sections(1).Headers(1).Range.Text= СтруктураПараметров.ТекстВерхнегоКолонтитула;
Документ.Application.ActiveDocument.Sections(1).Headers(1).Range.Font.Italic = 9999998;
Документ.Application.ActiveDocument.Sections(1).Headers(1).Range.Font.Underline = 1;

Если СтруктураПараметров.СчетчикВыводимыхФизлиц = 1 Тогда
Документ.Application.Selection.GoTo(-1,,0,"ФизЛицоПодпись1");
Документ.Application.Selection.Cut();
Документ.Application.Selection.GoTo(-1,,0,"ФизЛицоПодпись2");
Документ.Application.Selection.Cut();
ИначеЕсли СтруктураПараметров.СчетчикВыводимыхФизлиц = 2 Тогда
Документ.Application.Selection.GoTo(-1,,0,"ФизЛицоПодпись2");
Документ.Application.Selection.Cut();
КонецЕсли;

Если СтруктураПараметров.СократитьСтраницуПриПечати Тогда
Попытка
Документ.Application.ActiveDocument.FitToPages();
Исключение
ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не удалось сократить на страницу при печати");
КонецПопытки;
КонецЕсли;

КоличествоЛистовWord = Документ.Application.ActiveDocument.ComputeStatistics(2);
КоличествоЛистовWordПропись = СокрЛП(СтрЗаменить(ЧислоПрописью(КоличествоЛистовWord),0,""));
Документ.Content.Find.Execute("[КоличествоСтраницДокумента]",1,,,,,,,,КоличествоЛистовWord,2);
Документ.Content.Find.Execute("[КолСтрДокПроп]",1,,,,,,,,КоличествоЛистовWordПропись,2);

Если КоличествоЛистовWord > 1 Тогда
Документ.Application.ActiveDocument.Sections(1).Footers(1).Range.Text=СтруктураПараметров.ТекстНижнегоКолонтитула;
Документ.Application.ActiveDocument.Sections(1).Footers(1).PageNumbers.Add(2, Истина);
КонецЕсли;

//Защита документа
Если НЕ СтруктураПараметров.НеСтандартныйДоговор Тогда //устанавливаем защиту
Документ.Application.ActiveDocument.Protect(2,Ложь,СокрЛП(ТекущаяДата()),Ложь,Ложь);
КонецЕсли;

Документ.Application.ActiveDocument.Save();

ДокументWord.Application.Visible = Истина;
ДокументWord.Activate();

КонецПроцедуры

217 СамСуСам

05.12.12

✎

00:09

Предупреждение("Это работает!");

218 Злопчинский

05.12.12

✎

00:19

Предупреждение("Это работает!",-1);
- круче

219 Злопчинский

05.12.12

✎

00:21

(210) телепат вроде воспринимает чтото типа такого

ТипаЭтоТЗНоНеобявлена=глОтобратьПоКолонке(исходнаяТЗ..); //:ТаблицаЗначений