Выдавать ошибку при проведении

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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр ОстаткиМатериалов Расход
    Движения.ОстаткиМатериалов.Записывать = Истина;
    Движения.СтоимостьМатериалов.Записывать=Истина;
    Движения.Продажи.Записывать=Истина;
    
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
МенеджерВТ=Новый МенеджерВременныхТаблиц; 
    Запрос = Новый Запрос;
    Запрос.МенеджерВременныхТаблиц=МенеджерВТ;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидыНоменклатуры КАК ВидыНоменклатуры,
        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе
        |ПОМЕСТИТЬ НоменклатураДокумента
        |ИЗ
        |   Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
        |ГДЕ
        |   ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
        |
        |СГРУППИРОВАТЬ ПО
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидыНоменклатуры";
    
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    РезультатЗапроса = Запрос.Выполнить();
        Запрос2=Новый Запрос;
            Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;
            Запрос2.Текст=
                        "ВЫБРАТЬ
                          | НоменклатураДокумента.Номенклатура,
                          | НоменклатураДокумента.КоличествоВДокументе,
                          | НоменклатураДокумента.СуммаВДокументе,
                          | ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,
                          | ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество,
                          | НоменклатураДокумента.ВидыНоменклатуры
                          |ИЗ
                          | НоменклатураДокумента КАК НоменклатураДокумента
                          |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(
                          |             ,
                          |             Материал В
                          |                 (ВЫБРАТЬ
                          |                     НоменклатураДокумента.Номенклатура
                          |                 ИЗ
                          |                     НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки
                          |     ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал
                          |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(
                          |             ,
                          |             Материал В
                          |                 (ВЫБРАТЬ
                          |                     НоменклатураДокумента.Номенклатура
                          |                 ИЗ
                          |                     НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки
                          |     ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал";
                          
        Движения.СтоимостьМатериалов.Записать();
        Движения.ОстаткиМатериалов.Записать();
      Результат=Запрос2.Выполнить();
    
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Если ВыборкаДетальныеЗаписи.Количество=0 Тогда СтоимостьМатериала=0;
        Иначе
            СтоимостьМатериала=ВыборкаДетальныеЗаписи.Стоимость/ВыборкаДетальныеЗаписи.Количество;
        КонецЕсли;
        
        Если ВыборкаДетальныеЗаписи.ВидыНоменклатуры=Перечисления.ВидыНоменклатуры.материал тогда
        Движение=Движения.ОстаткиМатериалов.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
        Движение.Склад = Склад;
        Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
        Движение=Движения.СтоимостьМатериалов.Добавить(); 
        Движение.ВидДвижения=ВидДвиженияНакопления.Расход; 
        Движение.Период=Дата; 
        Движение.Материал=ВыборкаДетальныеЗаписи.номенклатура; 
        Движение.Стоимость=ВыборкаДетальныеЗаписи.КоличествоВДокументе * СтоимостьМатериала;   
    Конецесли;
        Движение=Движения.Продажи.Добавить();
    Движение.Период=Дата;
    Движение.Номенклатура=ВыборкаДетальныеЗаписи.Номенклатура; 
 
    Движение.Клиент=Клиент;
    Движение.Мастер=Мастер;
    
    Движение.Количество=ВыборкаДетальныеЗаписи.КоличествоВДокументе; 
    Движение.Выручка=ВыборкаДетальныеЗаписи.СуммаВДокументе; 
    Движение.Стоимость=СтоимостьМатериала*ВыборкаДетальныеЗаписи.КоличествоВДокументе;
 
// Вставить обработку выборки ВыборкаДетальныеЗаписи
    КонецЦикла;
    
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
 
    //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151

Процедура ОбработкаПроведения(Отказ, Режим)
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
 
    // регистр ОстаткиМатериалов Расход
    Движения.ОстаткиМатериалов.Записывать = Истина;
    Движения.СтоимостьМатериалов.Записывать=Истина;
    Движения.Продажи.Записывать=Истина;
 
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
МенеджерВТ=Новый МенеджерВременныхТаблиц; 
    Запрос = Новый Запрос;
    Запрос.МенеджерВременныхТаблиц=МенеджерВТ;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидыНоменклатуры КАК ВидыНоменклатуры,
        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе
        |ПОМЕСТИТЬ НоменклатураДокумента
        |ИЗ
        |   Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
        |ГДЕ
        |   ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
        |
        |СГРУППИРОВАТЬ ПО
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидыНоменклатуры";
    
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
        Движения.СтоимостьМатериалов.БлокироватьДляИзменения=Истина; 
        Движения.ОстаткиМатериалов.БлокироватьДляИзменения=Истина; 
        движения.СтоимостьМатериалов.Записать(); 
        Движения.ОстаткиМатериалов.Записать(); 
        // Результат = Запрос.Выполнить();
    РезультатЗапроса = Запрос.Выполнить();
        Запрос2=Новый Запрос;
            Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;
            Запрос2.Текст=
                        "ВЫБРАТЬ
                          | НоменклатураДокумента.Номенклатура,
                          | НоменклатураДокумента.КоличествоВДокументе,
                          | НоменклатураДокумента.СуммаВДокументе,
                          | ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,
                          | ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество,
                          | НоменклатураДокумента.ВидыНоменклатуры
                          |ИЗ
                          | НоменклатураДокумента КАК НоменклатураДокумента
                          |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(
                          |             ,
                          |             Материал В
                          |                 (ВЫБРАТЬ
                          |                     НоменклатураДокумента.Номенклатура
                          |                 ИЗ
                          |                     НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки
                          |     ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал
                          |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(
                          |             ,
                          |             Материал В
                          |                 (ВЫБРАТЬ
                          |                     НоменклатураДокумента.Номенклатура
                          |                 ИЗ
                          |                     НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки
                          |     ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал";
                          
        Движения.СтоимостьМатериалов.Записать();
        Движения.ОстаткиМатериалов.Записать();
      Результат=Запрос2.Выполнить();
    
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Если ВыборкаДетальныеЗаписи.Количество=0 Тогда СтоимостьМатериала=0;
        Иначе
            СтоимостьМатериала=ВыборкаДетальныеЗаписи.Стоимость/ВыборкаДетальныеЗаписи.Количество;
        КонецЕсли;
        
        Если ВыборкаДетальныеЗаписи.ВидыНоменклатуры=Перечисления.ВидыНоменклатуры.материал тогда
        Движение=Движения.ОстаткиМатериалов.Добавить();
        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
        Движение.Период = Дата;
        Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
        Движение.Склад = Склад;
        Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
        Движение=Движения.СтоимостьМатериалов.Добавить(); 
        Движение.ВидДвижения=ВидДвиженияНакопления.Расход; 
        Движение.Период=Дата; 
        Движение.Материал=ВыборкаДетальныеЗаписи.номенклатура; 
        Движение.Стоимость=ВыборкаДетальныеЗаписи.КоличествоВДокументе * СтоимостьМатериала;   
        движение=движения.Управленческий.Добавить(); 
        движение.СчетДт=ПланыСчетов.Основной.ДебиторскаяЗадолженность; 
        движение.СчетКт=ПланыСчетов.Основной.Капитал; 
        движение.Период=Дата; 
        движение.Сумма=ВыборкаДетальныеЗаписи.СуммаВДокументе; 
        движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Клиенты] = Клиент; 
        движение=движения.Управленческий.Добавить(); 
        движение.СчетДт=ПланыСчетов.Основной.Капитал; 
        движение.СчетКт=ПланыСчетов.Основной.Товары; 
        движение.Период=Дата; 
        движение.Сумма = СтоимостьМатериала* ВыборкаДетальныеЗаписи.КоличествоВДокументе; 
        движение.КоличествоКт=ВыборкаДетальныеЗаписи.КоличествоВДокументе; 
        движение.СубконтоКт [ПланыВидовХарактеристик.ВидыСубконто.Материалы] = ВыборкаДетальныеЗаписи.Номенклатура; 
    Конецесли;
        Движение=Движения.Продажи.Добавить();
    Движение.Период=Дата;
    Движение.Номенклатура=ВыборкаДетальныеЗаписи.Номенклатура; 
 
    Движение.Клиент=Клиент;
    Движение.Мастер=Мастер;
    
    Движение.Количество=ВыборкаДетальныеЗаписи.КоличествоВДокументе; 
    Движение.Выручка=ВыборкаДетальныеЗаписи.СуммаВДокументе; 
    Движение.Стоимость=СтоимостьМатериала*ВыборкаДетальныеЗаписи.КоличествоВДокументе;
 
// Вставить обработку выборки ВыборкаДетальныеЗаписи
    КонецЦикла;
    Движения.Записать(); 
    Если Режим=РежимПроведенияДокумента.Оперативный Тогда 
        Запрос3=Новый Запрос; 
        Запрос3.МенеджерВременныхТаблиц=МенеджерВТ; 
        Запрос3.Текст="ВЫБРАТЬ
                      | ОстаткиМатериаловОстатки.Материал,
                      | ОстаткиМатериаловОстатки.КоличествоОстаток
                      |ИЗ
                      | РегистрНакопления.ОстаткиМатериалов.Остатки(
                      |         ,
                      |         Материал В
                      |                 (ВЫБРАТЬ
                      |                     НоменклатураДокумента.Номенклатура
                      |                 ИЗ
                      |                     НоменклатураДокумента)
                      |             И Склад = &Склад) КАК ОстаткиМатериаловОстатки
                      |ГДЕ
                      | ОстаткиМатериаловОстатки.КоличествоОстаток < 0"; 
        Запрос3.УстановитьПараметр("Склад",Склад); 
        Результат=Запрос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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115

  Процедура ОбработкаПроведения(Отказ, Режим)
    МенеджерВТ=Новый МенеджерВременныхТаблиц;
    Запрос =Новый Запрос;
    Запрос.МенеджерВременныхТаблиц=МенеджерВТ;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,
    |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
    |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе
    |ПОМЕСТИТЬ НоменклатураДокумента
    |ИЗ
    |   Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
    |ГДЕ
    |   ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
    |
    |СГРУППИРОВАТЬ ПО
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры";    
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    Движения.СтоимостьМатериалов.БлокироватьДляИзменения=Истина;
    Движения.ОстаткиМатериалов.БлокироватьДляИзменения=Истина;
    движения.СтоимостьМатериалов.Записать();
    Движения.ОстаткиМатериалов.Записать();
    Результат = Запрос.Выполнить();
     Запрос2=Новый Запрос;
Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;
Запрос2.Текст="ВЫБРАТЬ
              | НоменклатураДокумента.Номенклатура,
              | НоменклатураДокумента.ВидНоменклатуры,
              | НоменклатураДокумента.КоличествоВДокументе,
              | НоменклатураДокумента.СуммаВДокументе,
              | ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,
              | ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество
              |ИЗ
              | НоменклатураДокумента КАК НоменклатураДокумента
              |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(
              |             ,
              |             Материал В
              |                 (ВЫБРАТЬ
              |                     НоменклатураДокумента.Номенклатура
              |                 ИЗ
              |                     НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки
              |     ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал
              |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(
              |             ,
              |             Материалы В
              |                 (ВЫБРАТЬ
              |                     НоменклатураДокумента.Номенклатура
              |                 ИЗ
              |                     НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки
              |     ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материалы";
              Движения.СтоимостьМатериалов.Записать();
              движения.ОстаткиМатериалов.Записать();
              Результат=Запрос2.Выполнить();
               ВыборкаДетальныеЗаписи = Результат.Выбрать();
               Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Количество=0 Тогда
СтоимостьМатериала=0;
Иначе
СтоимостьМатериала = ВыборкаДетальныеЗаписи.Стоимость
/ВыборкаДетальныеЗаписи. Количество;
КонецЕсли;
Если ВыборкаДетальныеЗаписи.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материалы тогда
    Движение = Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Материалы = ВыборкаДетальныеЗаписи.Номенклатура;
Движение.Склад = Склад;
Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
Движение=Движения.СтоимостьМатериалов.Добавить();
Движение.ВидДвижения=ВидДвиженияНакопления.Расход;
Движение.Период=Дата;
Движение.Материал=ВыборкаДетальныеЗаписи.номенклатура;
Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе *
СтоимостьМатериала;
конецЕсли;
 движение=движения.Продажи.Добавить();
движение.Период=Дата;
движение.Номенклатура=ВыборкаДетальныеЗаписи.номенклатура;
Движение.клиент=Клиент;
движение.мастер=мастер;
движение.Количество= ВыборкаДетальныеЗаписи.КоличествоВДокументе;
движение.выручка=ВыборкаДетальныеЗаписи.суммаВДокументе;
движение.стоимость =СтоимостьМатериала * ВыборкаДетальныеЗаписи.количествоВДокументе;
КонецЦикла;
Движения.Записать();
Если Режим=РежимПроведенияДокумента.Оперативный Тогда
Запрос3=Новый Запрос;
 Запрос3.МенеджерВременныхТаблиц=МенеджерВТ;
 Запрос3.Текст="ВЫБРАТЬ
              | ОстаткиМатериаловОстатки.Материалы,
              | ОстаткиМатериаловОстатки.КоличествоОстаток
              |ИЗ
              | РегистрНакопления.ОстаткиМатериалов.Остатки(
              |         ,
              |         Материалы В
              |                 (ВЫБРАТЬ
              |                     НоменклатураДокумента.Номенклатура
              |                 ИЗ
              |                     НоменклатураДокумента)
              |             И Склад = &Склад) КАК ОстаткиМатериаловОстатки
              |ГДЕ
              | ОстаткиМатериаловОстатки.КоличествоОстаток < 0";
              Запрос3.УстановитьПараметр("Склад",Склад);
              Результат=Запрос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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115

 Процедура ОбработкаПроведения(Отказ, Режим)
    МенеджерВТ=Новый МенеджерВременныхТаблиц;
    Запрос =Новый Запрос;
    Запрос.МенеджерВременныхТаблиц=МенеджерВТ;
    Запрос.Текст = 
    "ВЫБРАТЬ
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,
    |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
    |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе
    |ПОМЕСТИТЬ НоменклатураДокумента
    |ИЗ
    |   Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
    |ГДЕ
    |   ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
    |
    |СГРУППИРОВАТЬ ПО
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
    |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры";    
    Запрос.УстановитьПараметр("Ссылка", Ссылка);
    Движения.СтоимостьМатериалов.БлокироватьДляИзменения=Истина;
    Движения.ОстаткиМатериалов.БлокироватьДляИзменения=Истина;
    движения.СтоимостьМатериалов.Записать();
    Движения.ОстаткиМатериалов.Записать();
    Результат = Запрос.Выполнить();
     Запрос2=Новый Запрос;
Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;
Запрос2.Текст="ВЫБРАТЬ
              | НоменклатураДокумента.Номенклатура,
              | НоменклатураДокумента.ВидНоменклатуры,
              | НоменклатураДокумента.КоличествоВДокументе,
              | НоменклатураДокумента.СуммаВДокументе,
              | ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,
              | ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество
              |ИЗ
              | НоменклатураДокумента КАК НоменклатураДокумента
              |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(
              |             ,
              |             Материал В
              |                 (ВЫБРАТЬ
              |                     НоменклатураДокумента.Номенклатура
              |                 ИЗ
              |                     НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки
              |     ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал
              |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(
              |             ,
              |             Материал В
              |                 (ВЫБРАТЬ
              |                     НоменклатураДокумента.Номенклатура
              |                 ИЗ
              |                     НоменклатураДокумента)) КАК ОстаткиМатериаловОстатки
              |     ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал";
              Движения.СтоимостьМатериалов.Записать();
              движения.ОстаткиМатериалов.Записать();
              Результат=Запрос2.Выполнить();
               ВыборкаДетальныеЗаписи = Результат.Выбрать();
               Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Количество=0 Тогда
СтоимостьМатериала=0;
Иначе
СтоимостьМатериала = ВыборкаДетальныеЗаписи.Стоимость
/ВыборкаДетальныеЗаписи. Количество;
КонецЕсли;
Если ВыборкаДетальныеЗаписи.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материалы тогда
    Движение = Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Материалы = ВыборкаДетальныеЗаписи.Номенклатура;
Движение.Склад = Склад;
Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
Движение=Движения.СтоимостьМатериалов.Добавить();
Движение.ВидДвижения=ВидДвиженияНакопления.Расход;
Движение.Период=Дата;
Движение.Материал=ВыборкаДетальныеЗаписи.номенклатура;
Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе *
СтоимостьМатериала;
конецЕсли;
 движение=движения.Продажи.Добавить();
движение.Период=Дата;
движение.Номенклатура=ВыборкаДетальныеЗаписи.номенклатура;
Движение.клиент=Клиент;
движение.мастер=мастер;
движение.Количество= ВыборкаДетальныеЗаписи.КоличествоВДокументе;
движение.выручка=ВыборкаДетальныеЗаписи.суммаВДокументе;
движение.стоимость =СтоимостьМатериала * ВыборкаДетальныеЗаписи.количествоВДокументе;
КонецЦикла;
Движения.Записать();
Если Режим=РежимПроведенияДокумента.Оперативный Тогда
Запрос3=Новый Запрос;
 Запрос3.МенеджерВременныхТаблиц=МенеджерВТ;
 Запрос3.Текст="ВЫБРАТЬ
              | ОстаткиМатериаловОстатки.Материалы,
              | ОстаткиМатериаловОстатки.КоличествоОстаток
              |ИЗ
              | РегистрНакопления.ОстаткиМатериалов.Остатки(
              |         ,
              |         Материалы В
              |                 (ВЫБРАТЬ
              |                     НоменклатураДокумента.Номенклатура
              |                 ИЗ
              |                     НоменклатураДокумента)
              |             И Склад = &Склад) КАК ОстаткиМатериаловОстатки
              |ГДЕ
              | ОстаткиМатериаловОстатки.КоличествоОстаток < 0";
              Запрос3.УстановитьПараметр("Склад",Склад);
              Результат=Запрос3.Выполнить();
КонецЕсли;
ВыборкаДетальныеЗаписи=Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий()Цикл
Сообщение=Новый СообщениеПользователю();
Сообщение.Текст="Не хватает"+Строка(-ВыборкаДетальныеЗаписи.Количество)+"единиц материалы""""+ВыборкаДетальныеЗаписи.Материалов+""";
Сообщение.Сообщить();
Отказ=Истина;
 КонецЦикла;
  КонецПроцедуры