Как красиво вставить свой код на форуме ? иногда автоматом вставляется +code ?

1С v8

Как красиво вставить свой код на форуме ? иногда автоматом вставляется +code ?
Ø (Asmody 19.09.2016 08:20)

, ,

☑

0 Радим1987

17.09.16

✎

18:06

Как вставить код сгруппированном виде?

1 Радим1987

17.09.16

✎

18:07

пример

ВЫБРАТЬ
    График.Сотрудник КАК Сотрудник,
    График.ДатаРегистрации КАК ДатаНачало,
    График.Территория КАК Территория
ПОМЕСТИТЬ ВТ
ИЗ
    РегистрСведений.РТ_ГрафикСотрудниковПоОбъектамУчета КАК График
ГДЕ
    График.ДатаРегистрации МЕЖДУ &Начало И &Конец
    И График.Сотрудник = &Сотрудник
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТ.Сотрудник КАК Сотрудник,
    ВТ.Территория КАК Территория,
    СТ.Территория КАК ТерриторияСТ,
    ВТ.ДатаНачало КАК ДатаНачало
ПОМЕСТИТЬ ВТНачало
ИЗ
    ВТ КАК ВТ
        ЛЕВОЕ СОЕДИНЕНИЕ ВТ КАК СТ
        ПО (ВТ.ДатаНачало = ДОБАВИТЬКДАТЕ(СТ.ДатаНачало, ДЕНЬ, 1))
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТ.Сотрудник КАК Сотрудник,
    ВТ.Территория КАК Территория,
    СТ.Территория КАК ТерриторияСТ,
    ВТ.ДатаНачало КАК ДатаНачало
ПОМЕСТИТЬ ВТКонец
ИЗ
    ВТ КАК ВТ
        ЛЕВОЕ СОЕДИНЕНИЕ ВТ КАК СТ
        ПО (ВТ.ДатаНачало = ДОБАВИТЬКДАТЕ(СТ.ДатаНачало, ДЕНЬ, -1))
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    МАКСИМУМ(ВВТ.Сотрудник) КАК Сотрудник,
    ВВТ.Территория КАК Территория,
    МИНИМУМ(ВВТ.ДатаНачало) КАК ДатаНачало,
    ВВТ.ТерриторияСТ КАК ТерриторияСТ
ПОМЕСТИТЬ ВТПоследняяНачало
ИЗ
    ВТНачало КАК ВВТ

СГРУППИРОВАТЬ ПО
    ВВТ.Территория,
    ВВТ.ТерриторияСТ
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    МАКСИМУМ(ВВТ.Сотрудник) КАК Сотрудник,
    ВВТ.Территория КАК Территория,
    МИНИМУМ(ВВТ.ДатаНачало) КАК ДатаНачало,
    ВВТ.ТерриторияСТ КАК ТерриторияСТ
ПОМЕСТИТЬ ВТПоследняяКонец
ИЗ
    ВТКонец КАК ВВТ

СГРУППИРОВАТЬ ПО
    ВВТ.Территория,
    ВВТ.ТерриторияСТ
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТПоследняя.Сотрудник КАК Сотрудник,
    ВТПоследняя.Территория КАК Территория,
    ВТПоследняя.ДатаНачало КАК ДатаНачало
ПОМЕСТИТЬ ВНачало
ИЗ
    ВТПоследняяНачало КАК ВТПоследняя
ГДЕ
    (ВТПоследняя.Территория <> ВТПоследняя.ТерриторияСТ
            ИЛИ ВТПоследняя.ТерриторияСТ ЕСТЬ NULL )
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТПоследняя.Сотрудник КАК Сотрудник,
    ВТПоследняя.Территория КАК Территория,
    ВТПоследняя.ДатаНачало КАК ДатаНачало
ПОМЕСТИТЬ ВКонец
ИЗ
    ВТПоследняяКонец КАК ВТПоследняя
ГДЕ
    (ВТПоследняя.Территория <> ВТПоследняя.ТерриторияСТ
            ИЛИ ВТПоследняя.ТерриторияСТ ЕСТЬ NULL )
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВНачало.Сотрудник КАК Сотрудник,
    ВНачало.Территория КАК Территория,
    ВНачало.ДатаНачало КАК Дата
ИЗ
    ВНачало КАК ВНачало

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    ВКонец.Сотрудник,
    ВКонец.Территория,
    ВКонец.ДатаНачало
ИЗ
    ВКонец КАК ВКонец

УПОРЯДОЧИТЬ ПО
    Дата

2 jsmith

17.09.16

✎

18:08



ВЫБРАТЬ 

    График.Сотрудник КАК Сотрудник,

    График.ДатаРегистрации КАК ДатаНачало,

    График.Территория КАК Территория

ПОМЕСТИТЬ ВТ

ИЗ

    РегистрСведений.РТ_ГрафикСотрудниковПоОбъектамУчета КАК График

ГДЕ 

    График.ДатаРегистрации МЕЖДУ &Начало И &Конец 

    И График.Сотрудник = &Сотрудник

;



////////////////////////////////////////////////////////////////////////////////



ВЫБРАТЬ

    ВТ.Сотрудник КАК Сотрудник,

    ВТ.Территория КАК Территория,

    СТ.Территория КАК ТерриторияСТ,

    ВТ.ДатаНачало КАК ДатаНачало

ПОМЕСТИТЬ ВТНачало

ИЗ

    ВТ КАК ВТ

        ЛЕВОЕ СОЕДИНЕНИЕ ВТ КАК СТ

        ПО (ВТ.ДатаНачало = ДОБАВИТЬКДАТЕ(СТ.ДатаНачало, ДЕНЬ, 1))

;



////////////////////////////////////////////////////////////////////////////////



ВЫБРАТЬ

    ВТ.Сотрудник КАК Сотрудник,

    ВТ.Территория КАК Территория,

    СТ.Территория КАК ТерриторияСТ,

    ВТ.ДатаНачало КАК ДатаНачало

ПОМЕСТИТЬ ВТКонец

ИЗ

    ВТ КАК ВТ

        ЛЕВОЕ СОЕДИНЕНИЕ ВТ КАК СТ

        ПО (ВТ.ДатаНачало = ДОБАВИТЬКДАТЕ(СТ.ДатаНачало, ДЕНЬ, -1))

;



////////////////////////////////////////////////////////////////////////////////



ВЫБРАТЬ

    МАКСИМУМ(ВВТ.Сотрудник) КАК Сотрудник,

    ВВТ.Территория КАК Территория,

    МИНИМУМ(ВВТ.ДатаНачало) КАК ДатаНачало,

    ВВТ.ТерриторияСТ КАК ТерриторияСТ

ПОМЕСТИТЬ ВТПоследняяНачало

ИЗ

    ВТНачало КАК ВВТ



СГРУППИРОВАТЬ ПО

    ВВТ.Территория,

    ВВТ.ТерриторияСТ

;



////////////////////////////////////////////////////////////////////////////////



ВЫБРАТЬ

    МАКСИМУМ(ВВТ.Сотрудник) КАК Сотрудник,

    ВВТ.Территория КАК Территория,

    МИНИМУМ(ВВТ.ДатаНачало) КАК ДатаНачало,

    ВВТ.ТерриторияСТ КАК ТерриторияСТ

ПОМЕСТИТЬ ВТПоследняяКонец

ИЗ

    ВТКонец КАК ВВТ



СГРУППИРОВАТЬ ПО

    ВВТ.Территория,

    ВВТ.ТерриторияСТ

;



////////////////////////////////////////////////////////////////////////////////



ВЫБРАТЬ

    ВТПоследняя.Сотрудник КАК Сотрудник,

    ВТПоследняя.Территория КАК Территория,

    ВТПоследняя.ДатаНачало КАК ДатаНачало

ПОМЕСТИТЬ ВНачало

ИЗ

    ВТПоследняяНачало КАК ВТПоследняя

ГДЕ

    (ВТПоследняя.Территория <> ВТПоследняя.ТерриторияСТ 

            ИЛИ ВТПоследняя.ТерриторияСТ ЕСТЬ NULL ) 

; 

////////////////////////////////////////////////////////////////////////////////



ВЫБРАТЬ

    ВТПоследняя.Сотрудник КАК Сотрудник,

    ВТПоследняя.Территория КАК Территория,

    ВТПоследняя.ДатаНачало КАК ДатаНачало

ПОМЕСТИТЬ ВКонец

ИЗ

    ВТПоследняяКонец КАК ВТПоследняя

ГДЕ

    (ВТПоследняя.Территория <> ВТПоследняя.ТерриторияСТ 

            ИЛИ ВТПоследняя.ТерриторияСТ ЕСТЬ NULL ) 

; 

////////////////////////////////////////////////////////////////////////////////



ВЫБРАТЬ

    ВНачало.Сотрудник КАК Сотрудник,

    ВНачало.Территория КАК Территория,

    ВНачало.ДатаНачало КАК Дата

ИЗ

    ВНачало КАК ВНачало



ОБЪЕДИНИТЬ ВСЕ



ВЫБРАТЬ

    ВКонец.Сотрудник,

    ВКонец.Территория,

    ВКонец.ДатаНачало

ИЗ

    ВКонец КАК ВКонец



УПОРЯДОЧИТЬ ПО

    Дата

3 jsmith

17.09.16

✎

18:09

[1ц][/1ц]
Вместо ц С

4 Tarzan_Pasha

17.09.16

✎

18:09

Обучите меня тоже. Как писать жирным, зачеркнутым, как обрамлять код и цитаты.

5 jsmith

17.09.16

✎

18:09

(4) Это только для модеров

6 Mankubus

17.09.16

✎

18:10

тест

7 Радим1987

17.09.16

✎

18:17

ghbvth

8 Радим1987

17.09.16

✎

18:17

ghbvth

9 Радим1987

17.09.16

✎

18:18

Спасибо )))

10 bolder

17.09.16

✎

21:59

Процедура

11 jsmith

17.09.16

✎

22:04

Хорошо, что Consolas'ом идёт, а не Courier'ом New дефолтным

12 youalex

17.09.16

✎

22:05

Переменная1 = Переменная;

13 youalex

17.09.16

✎

22:05

класс, спасибо)

14 vis_tmp

17.09.16

✎

22:07

Пример!

15 Dark_Warrior

19.09.16

✎

08:03

Тестовая ветка?

16 varyag

19.09.16

✎

08:05

С - на латинице или кириллице?

17 varyag

19.09.16

✎

08:05

А вот на латинице

18 varyag

19.09.16

✎

08:06

Не важно в общем)) спасибо

19 DDwe

19.09.16

✎

08:15

Пробуем

20 DDwe

19.09.16

✎

08:15

Странно

21 DDwe

19.09.16

✎

08:15

Ок.

22 Когнитивный Диссонанс

19.09.16

✎

08:18

 

// создание линии на карте

Процедура СоздатьЛинию( ШиротаНач, ДолготаНач, ШиротаКон, ДолготаКон, ЦветЛинии, ТолщинаЛинии)

    ЭлементыФормы.Карта.Документ.parentWindow.eval("addLine("+ ШиротаНач +", "+ДолготаНач+", "+ ШиротаКон +", "+ДолготаКон+", '"+ ЦветЛинии + "' )");    

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

23 Когнитивный Диссонанс

19.09.16

✎

08:19

хорошо было бы, если было бы доступно постредактирование, как на приличных форумах

24 Asmody

19.09.16

✎

08:20

Внизу ссылка Описание. Там все написано.