|
OFF: крутые кодеры, давайте обсудим примеры крутого кода | ☑ | ||
---|---|---|---|---|
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
|
|
|||
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
|
||||
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
|
(23)приз уходит ко мне
Расчет Себестоимости,УПП отдыхает: ВЫБРАТЬ | СпрНоменклатура.Ссылка КАК Номенклатура, | ЦеныНоменклатурыСрезПоследних.Цена КАК ЦенаДаги |ПОМЕСТИТЬ Даги |ИЗ | Справочник.Номенклатура КАК СпрНоменклатура | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних | ПО СпрНоменклатура.Ссылка = ЦеныНоменклатурыСрезПоследних.Номенклатура | И (ЦеныНоменклатурыСрезПоследних.ТипЦен = &Даг) |ГДЕ | (НЕ СпрНоменклатура.ЭтоГруппа) | И (НЕ СпрНоменклатура.ПометкаУдаления) | И СпрНоменклатура.Ссылка В ИЕРАРХИИ(&Феникс) |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ДвиженияТовараПрошлыхПериодовОбороты.Номенклатура КАК Номенклатура, | ДвиженияТовараПрошлыхПериодовОбороты.КоличествоОборот КАК КоличествоОборот, | ДвиженияТовараПрошлыхПериодовОбороты.СуммаОборот КАК СуммаОборот, | ДвиженияТовараПрошлыхПериодовОбороты.Период, | ЕСТЬNULL(Даги.ЦенаДаги, 0) КАК ЦенаДаги, | ДвиженияТовараПрошлыхПериодовОбороты.Контрагент, | ДвиженияТовараПрошлыхПериодовОбороты.Проект |ПОМЕСТИТЬ ЦеныДагов |ИЗ | РегистрНакопления.ДвиженияТовараПрошлыхПериодов.Обороты(&ДатаНачало, &ДатаКонец, Запись, ) КАК ДвиженияТовараПрошлыхПериодовОбороты | ЛЕВОЕ СОЕДИНЕНИЕ Даги КАК Даги | ПО ДвиженияТовараПрошлыхПериодовОбороты.Номенклатура = Даги.Номенклатура |ГДЕ | ДвиженияТовараПрошлыхПериодовОбороты.ВидДвиженияПриходРасход = &Расход | И ДвиженияТовараПрошлыхПериодовОбороты.ВидОперацииСТоваром = &КупляПродажи | И ДвиженияТовараПрошлыхПериодовОбороты.Номенклатура В ИЕРАРХИИ(&Феникс) | И (НЕ ДвиженияТовараПрошлыхПериодовОбороты.Склад = &ТранзинНеВРейтинге) |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ЦеныДагов.Номенклатура, | ВЫБОР | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""1"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""2"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""2.3"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""2.5"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""2.6"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""3.1"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""3.3"" | ТОГДА 0 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""3.5"" | ТОГДА 0.03 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""3.6"" | ТОГДА 0.04 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""3.7"" | ТОГДА 0.04 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""3.8"" | ТОГДА 0.05 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""3.9"" | ТОГДА 0.06 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.0"" | ТОГДА 0.07 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.1"" | ТОГДА 0.07 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.2"" | ТОГДА 0.08 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.3"" | ТОГДА 0.07 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.4"" | ТОГДА 0.09 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.5"" | ТОГДА 0.1 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.6"" | ТОГДА 0.1 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.64"" | ТОГДА 0.1 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.7"" | ТОГДА 0.11 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.74"" | ТОГДА 0.11 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.8"" | ТОГДА 0.12 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.83"" | ТОГДА 0.12 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.9"" | ТОГДА 0.13 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""4.94"" | ТОГДА 0.13 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5"" | ТОГДА 0.13 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.1"" | ТОГДА 0.14 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.15"" | ТОГДА 0.14 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.20"" | ТОГДА 0.14 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.27"" | ТОГДА 0.14 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.3"" | ТОГДА 0.15 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.38"" | ТОГДА 0.15 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.4"" | ТОГДА 0.16 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.5"" | ТОГДА 0.19 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.51"" | ТОГДА 0.19 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.6"" | ТОГДА 0.17 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.64"" | ТОГДА 0.17 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.7"" | ТОГДА 0.18 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.74"" | ТОГДА 0.18 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.78"" | ТОГДА 0.18 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.9"" | ТОГДА 0.19 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""5.93"" | ТОГДА 0.19 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.0"" | ТОГДА 0.2 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.08"" | ТОГДА 0.2 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.1"" | ТОГДА 0.21 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.25"" | ТОГДА 0.21 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.3"" | ТОГДА 0.22 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.4"" | ТОГДА 0.23 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.41"" | ТОГДА 0.23 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.5"" | ТОГДА 0.23 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.6"" | ТОГДА 0.24 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.7"" | ТОГДА 0.25 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.79"" | ТОГДА 0.26 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""6.98"" | ТОГДА 0.28 | КОГДА ЗначенияСвойствОбъектов.Значение.Наименование = ""7.1"" | ТОГДА 0.3 | КОНЕЦ КАК Значение, | ЦеныДагов.КоличествоОборот, | ЦеныДагов.СуммаОборот, | ЦеныДагов.Период, | ЦеныДагов.ЦенаДаги, | ЦеныДагов.Контрагент, | ЦеныДагов.Проект |ПОМЕСТИТЬ Коэффициенты |ИЗ | ЦеныДагов КАК ЦеныДагов | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов | ПО ЦеныДагов.Номенклатура = ЗначенияСвойствОбъектов.Объект | И (ЗначенияСвойствОбъектов.Свойство = &Коээфиц) |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | Коэффициенты.Номенклатура, | Коэффициенты.КоличествоОборот, | Коэффициенты.СуммаОборот, | Коэффициенты.Период, | ВложенныйЗапрос.ЦенаКнигаОпт, | Коэффициенты.ЦенаДаги, | ЕСТЬNULL(Коэффициенты.Значение, 0.09) КАК Значение1, | ЕСТЬNULL(ВложенныйЗапрос.ЦенаКнОпт, 0) КАК КнОптовые, | Коэффициенты.Контрагент, | Коэффициенты.Проект |ПОМЕСТИТЬ КнОптКоэфф |ИЗ | Коэффициенты КАК Коэффициенты | ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ | ЦеныНоменклатурыСрезПоследних.Номенклатура КАК Номенклатура, | ЦеныНоменклатурыСрезПоследних.Цена / 2 КАК ЦенаКнигаОпт, | ЦеныНоменклатурыСрезПоследних.Цена КАК ЦенаКнОпт, | ЦеныНоменклатурыСрезПоследних.ТипЦен КАК ТипЦен | ИЗ | РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних) КАК ВложенныйЗапрос | ПО Коэффициенты.Номенклатура = ВложенныйЗапрос.Номенклатура | И (ВложенныйЗапрос.ТипЦен = &КнигаОпт) |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | КнОптКоэфф.Период, | КнОптКоэфф.Номенклатура КАК Номенклатура, | ЕСТЬNULL(КнОптКоэфф.ЦенаДаги, 0) КАК ЦенаДаги, | ЕСТЬNULL(ЗначенияСвойствОбъектов.Значение, 0.001) КАК Тиражи, | ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) КАК ЦеныАвторские, | ЕСТЬNULL(КнОптКоэфф.ЦенаКнигаОпт, 1) КАК КнигаОпт, | КнОптКоэфф.КоличествоОборот КАК КоличествоПродажи, | КнОптКоэфф.СуммаОборот КАК СуммаПродажи, | ЦеныНоменклатурыСрезПоследних1.Цена КАК УчМакет, | КнОптКоэфф.Значение1 КАК Коэффициенты, | КнОптКоэфф.КнОптовые, | КнОптКоэфф.Контрагент, | КнОптКоэфф.Проект |ПОМЕСТИТЬ АвторИТираж |ИЗ | КнОптКоэфф КАК КнОптКоэфф | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов | ПО КнОптКоэфф.Номенклатура = ЗначенияСвойствОбъектов.Объект | И (ЗначенияСвойствОбъектов.Свойство = &Тираж) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних | ПО КнОптКоэфф.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура | И (ЦеныНоменклатурыСрезПоследних.ТипЦен = &Авторские) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних1 | ПО КнОптКоэфф.Номенклатура = ЦеныНоменклатурыСрезПоследних1.Номенклатура | И (ЦеныНоменклатурыСрезПоследних1.ТипЦен = &УчетМакет) |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | АвторИТираж.Период, | АвторИТираж.Номенклатура КАК Номенклатура, | АвторИТираж.ЦенаДаги, | АвторИТираж.ЦеныАвторские, | (ВЫРАЗИТЬ(АвторИТираж.Тиражи КАК ЧИСЛО)) * 1000 КАК Тираж, | АвторИТираж.КнигаОпт, | АвторИТираж.УчМакет, | АвторИТираж.КоличествоПродажи КАК КоличествоПродажи, | АвторИТираж.СуммаПродажи КАК СуммаПродажи, | АвторИТираж.Коэффициенты, | АвторИТираж.КнОптовые, | ЕСТЬNULL(АвторИТираж.КнигаОпт * АвторИТираж.Коэффициенты, 0) КАК РезультатКоэффиц, | ВЫРАЗИТЬ(ЗначенияСвойствОбъектов.Значение КАК ЧИСЛО) КАК КнСебестоимость, | ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) КАК УчетнаяЦена, | АвторИТираж.Контрагент, | АвторИТираж.Проект |ПОМЕСТИТЬ АвторскийГанорар |ИЗ | АвторИТираж КАК АвторИТираж | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов | ПО АвторИТираж.Номенклатура = ЗначенияСвойствОбъектов.Объект | И (ЗначенияСвойствОбъектов.Свойство = &КнигаСебестоимость) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних | ПО АвторИТираж.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура | И (ЦеныНоменклатурыСрезПоследних.ТипЦен = &Учетная) |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | АвторскийГанорар.Период, | АвторскийГанорар.Номенклатура КАК Номенклатура, | АвторскийГанорар.ЦенаДаги, | АвторскийГанорар.ЦеныАвторские, | АвторскийГанорар.Тираж, | АвторскийГанорар.КнигаОпт, | ЕСТЬNULL(АвторскийГанорар.УчМакет, АвторскийГанорар.УчетнаяЦена) КАК УчетныеЦены, | АвторскийГанорар.КоличествоПродажи КАК КоличествоПродажи, | АвторскийГанорар.СуммаПродажи КАК СуммаПродажи, | АвторскийГанорар.Коэффициенты, | АвторскийГанорар.КнОптовые, | ВЫБОР | КОГДА АвторскийГанорар.ЦеныАвторские = 0 | ТОГДА АвторскийГанорар.РезультатКоэффиц | ИНАЧЕ АвторскийГанорар.ЦеныАвторские / АвторскийГанорар.Тираж | КОНЕЦ КАК Авторские, | АвторскийГанорар.РезультатКоэффиц, | ЕСТЬNULL(АвторскийГанорар.КнСебестоимость, 0) КАК КнСебестоимость, | АвторскийГанорар.Контрагент, | АвторскийГанорар.Проект |ПОМЕСТИТЬ Себестоимость |ИЗ | АвторскийГанорар КАК АвторскийГанорар |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | Себестоимость.Период, | Себестоимость.Номенклатура КАК Номенклатура, | ЗначенияСвойствОбъектов.Значение КАК Редакция, | Себестоимость.ЦеныАвторские КАК АвторскийГанорар, | Себестоимость.ЦенаДаги, | Себестоимость.Тираж, | Себестоимость.КнигаОпт, | Себестоимость.Коэффициенты, | Себестоимость.КоличествоПродажи КАК КоличествоПродажи, | Себестоимость.СуммаПродажи КАК СуммаПродажи, | Себестоимость.КнОптовые, | Себестоимость.Авторские, | Себестоимость.РезультатКоэффиц, | Себестоимость.КнСебестоимость, | ВЫБОР | КОГДА Себестоимость.УчетныеЦены = 0 | ТОГДА Себестоимость.КнСебестоимость | ИНАЧЕ Себестоимость.УчетныеЦены | КОНЕЦ КАК УчетИСебестоимость, | Себестоимость.Контрагент, | ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних.Цена, 0) КАК ЦенаБонусы, | ЕСТЬNULL(ЦеныНоменклатурыСрезПоследних1.Цена, 0) КАК ЦенаБайер, | Себестоимость.Проект |ПОМЕСТИТЬ редактор |ИЗ | Себестоимость КАК Себестоимость | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов | ПО Себестоимость.Номенклатура = ЗначенияСвойствОбъектов.Объект | И (ЗначенияСвойствОбъектов.Свойство = &Редакции) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних | ПО Себестоимость.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура | И (ЦеныНоменклатурыСрезПоследних.ТипЦен = &БонусыУчебные) | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних1 | ПО Себестоимость.Номенклатура = ЦеныНоменклатурыСрезПоследних1.Номенклатура | И (ЦеныНоменклатурыСрезПоследних1.ТипЦен = &ВознБайера) |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | редактор.Период, | редактор.Номенклатура, | редактор.Редакция, | редактор.АвторскийГанорар, | редактор.ЦенаДаги, | редактор.Тираж, | редактор.Коэффициенты, | редактор.СуммаПродажи / редактор.КоличествоПродажи КАК ЦенаПродажи, | редактор.КоличествоПродажи, | редактор.СуммаПродажи, | редактор.КнигаОпт, | редактор.КнОптовые, | редактор.Авторские, | редактор.РезультатКоэффиц, | редактор.КнСебестоимость, | редактор.УчетИСебестоимость, | ВЫБОР | КОГДА редактор.Коэффициенты = 0 | ТОГДА (редактор.УчетИСебестоимость + редактор.ЦенаБонусы + редактор.ЦенаБайер) * 1.8 | ИНАЧЕ (редактор.Авторские + редактор.УчетИСебестоимость + редактор.ЦенаБонусы + редактор.ЦенаБайер) * 1.8 | КОНЕЦ КАК СтоимостьАвтор, | редактор.Контрагент, | редактор.ЦенаБонусы, | редактор.ЦенаБайер, | редактор.Проект |ПОМЕСТИТЬ Прибыльность |ИЗ | редактор КАК редактор |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | Прибыльность.Период, | Прибыльность.Номенклатура КАК Номенклатура, | Прибыльность.Редакция, | Прибыльность.АвторскийГанорар, | Прибыльность.ЦенаДаги, | Прибыльность.Тираж, | Прибыльность.Коэффициенты, | Прибыльность.ЦенаПродажи, | Прибыльность.КоличествоПродажи КАК КоличествоПродажи, | Прибыльность.СуммаПродажи КАК СуммаПродажи, | Прибыльность.КнигаОпт, | Прибыльность.КнОптовые, | Прибыльность.Авторские, | Прибыльность.РезультатКоэффиц, | Прибыльность.КнСебестоимость, | Прибыльность.СтоимостьАвтор, | ВЫБОР | КОГДА Прибыльность.ЦенаДаги = 0 | ТОГДА Прибыльность.СтоимостьАвтор | ИНАЧЕ (Прибыльность.ЦенаДаги + Прибыльность.УчетИСебестоимость + Прибыльность.ЦенаБонусы + Прибыльность.ЦенаБайер) * 1.8 | КОНЕЦ КАК СебестОднойКниги, | Прибыльность.УчетИСебестоимость, | Прибыльность.Контрагент, | Прибыльность.ЦенаБонусы, | Прибыльность.ЦенаБайер, | Прибыльность.Проект |ПОМЕСТИТЬ Приб |ИЗ | Прибыльность КАК Прибыльность |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | Приб.Период, | Приб.Номенклатура КАК Номенклатура, | Приб.Редакция, | Приб.ЦенаДаги, | Приб.АвторскийГанорар, | Приб.Авторские, | Приб.РезультатКоэффиц, | Приб.Коэффициенты, | Приб.Тираж, | Приб.КнСебестоимость, | Приб.КнОптовые, | Приб.КнигаОпт, | Приб.ЦенаПродажи, | Приб.КоличествоПродажи КАК КоличествоПродажи, | Приб.СуммаПродажи КАК СуммаПродажи, | Приб.СебестОднойКниги, | Приб.СебестОднойКниги * Приб.КоличествоПродажи КАК СебестоимостьКниг, | Приб.УчетИСебестоимость, | Приб.Контрагент, | Приб.ЦенаБонусы, | Приб.ЦенаБайер, | Приб.Проект |ПОМЕСТИТЬ СебКниги |ИЗ | Приб КАК Приб |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | СебКниги.Период, | СебКниги.Номенклатура, | СебКниги.Редакция, | СебКниги.ЦенаДаги, | СебКниги.АвторскийГанорар, | СебКниги.Авторские, | СебКниги.РезультатКоэффиц, | СебКниги.Коэффициенты, | СебКниги.Тираж, | СебКниги.КнСебестоимость, | СебКниги.КнОптовые, | СебКниги.КнигаОпт, | СебКниги.ЦенаПродажи, | СебКниги.КоличествоПродажи, | СебКниги.СуммаПродажи, | СебКниги.СебестОднойКниги, &nb |
|||
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
|
||||
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) телепат вроде воспринимает чтото типа такого
ТипаЭтоТЗНоНеобявлена=глОтобратьПоКолонке(исходнаяТЗ..); //:ТаблицаЗначений |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |