File: bsl

package info (click to toggle)
ruby-rouge 4.6.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 6,836 kB
  • sloc: ruby: 38,168; sed: 2,071; perl: 152; makefile: 8
file content (85 lines) | stat: -rw-r--r-- 3,977 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
#Область ИмяОбласти

Перем А Экспорт;

#Если Сервер Тогда

// Комментарий процедуры
&НаСервере
Процедура ИмяПроцедуры(
    Знач ПараметрСКонстантой,
    ОбычныйПараметр,
    ПараметрСНекорректнымЗначением = Нелегальщина,
    ПараметрСНекорректнымЗначением =НелегальщинаБезПробела,
    ПараметрСДефолтнымЧисловымЗначением = 0) Экспорт
    а = ?(НЕ ЗначениеЗаполнено(Неопределено), "", " Есть значение ";
    Б = "текст с экраннированной "" кавычкой" + "и конкатенаций""";

    В = "многострочная
    |строка
    //|это комментарий
    |// а это нет
    |";
    Г = "";

    ТекстЗапроса = ТекстЗапроса + ?(ТекстЗапроса = "", "
        |ВЫБРАТЬ ", "
        |ОБЪЕДИНИТЬ ВСЕ
        |ВЫБРАТЬ") + "
        |Дата, Ссылка, Представление, Проведен, ПометкаУдаления,
        |" + ?(мКэшРеквизитовДокумента[КлючИЗначение.Ключ]["СуммаДокумента"], "СуммаДокумента", "NULL") + " КАК СуммаДокумента,
        |" + ?(мКэшРеквизитовДокумента[КлючИЗначение.Ключ]["ВалютаДокумента"], "ВалютаДокумента", "NULL") + " КАК ВалютаДокумента,
        |" + ?(мКэшРеквизитовДокумента[КлючИЗначение.Ключ]["ВидОперации"], "ВидОперации", "NULL") + " КАК ВидОперации
        |ИЗ Документ." + КлючИЗначение.Ключ + "
        |ГДЕ Ссылка В (&" + КлючИЗначение.Ключ + ")";

    ТекстЗапроса =
        "ВЫБРАТЬ
        |   Таблица.Поле КАК Поле,
        |   МАКСИМУМ(Таблица.Поле2) КАК Поле2
        |ИЗ
        |   Таблица КАК Таблица
        |ГДЕ
        |   Таблица.Поле = 0
        |   И Таблица.Поле <> ""Строка""" + "123" + "
        |   И ВЫРАЗИТЬ(Таблица.Поле КАК СТРОКА) <> """"
        |   И Таблица.Поле <> ""Строка с экраннированной """" кавычкой""
        //|Закомментированная строка
        |// Закомметированная строка внутри запроса с кавычками ""ТЕКСТ""
        |СГРУППИРОВАТЬ ПО
        |   Поле
        |//АВТОУПОРЯДОЧИВАНИЕ";

    GUID = 00000000-0000-0000-0000-000000000000;
    Число = 0.0 * 100;
    ЧислоИзСтроки = Число("1000");

    Дата = '00010101000000';
    КороткаяДата = '00010101';
    ДатаСРазделителями = '0001-01-01';

    Если А = 0 И НЕ Число <= 0 Тогда
        ОбычныйПараметр = Истина;
    Иначе
        ОбычныйПараметр = Ложь;
    КонецЕсли;
    Пока ЗначениеЗаполнено(Б) Цикл
        Прервать;
    КонецЦикла;

    НевстроеннаяПроцедура();

    НовыйОбъект = Новый ТаблицаЗначений;
    НовыйОбъектСкобка = Новый("ТаблицаЗначений");

    ПрефиксЗначениеЗаполненоПостфикс = "";

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

Процедура НевстроеннаяПроцедура()
    Возврат;
КонецПроцедуры

#КонецЕсли

#КонецОбласти