Имя: Пароль:
LIFE
Юмор
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

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

Если (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
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
нашел в интернетах прикольный код
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) телепат вроде воспринимает чтото типа такого

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