88
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 Движение.Склад = Склад;
89
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 КонецЕсли;
152 КонецЦикла;
153 КонецЦикла;
154
155
156 КонецПроцедуры
157
158
159 // Исходный код модуля объекта «Списание товаров»
160
161 Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
162 //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
163 // Данный фрагмент построен конструктором.
164 // При повторном использовании конструктора, внесенные вручную изменения будут
утеряны!!!
165 Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.РасходнаяНакладная") Тогда
166 // Заполнение шапки
167 Ответственный = ДанныеЗаполнения.Выдал;
168 СкладПолучатель = ДанныеЗаполнения.Склад;
169 Для Каждого ТекСтрокаСписокТоваров Из ДанныеЗаполнения.СписокТоваров Цикл
170 НоваяСтрока = СписокТоваров.Добавить();
171 НоваяСтрока.Количество = ТекСтрокаСписокТоваров.Количество;
172 НоваяСтрока.Наименование = ТекСтрокаСписокТоваров.Наименование;
173 НоваяСтрока.Сумма = ТекСтрокаСписокТоваров.Сумма;
174 НоваяСтрока.Цена = ТекСтрокаСписокТоваров.Цена;
175 КонецЦикла;
90
176 КонецЕсли;
177 //}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
178 КонецПроцедуры
179
180 Процедура ОбработкаПроведения(Отказ, Режим)
181 КонтрольОстатков(Отказ);
182 Движения.ОстаткиИОборотыТоваров.Записывать = Истина;
183 Для Каждого ТекСтрокаСписокТоваров Из СписокТоваров Цикл
184 Движение = Движения.ОстаткиИОборотыТоваров.Добавить();
185 Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
186 Движение.Период = Дата;
187 Движение.Наименование = ТекСтрокаСписокТоваров.Наименование;
188 Движение.Склад = СкладПолучатель;
189 Движение.Количество = ТекСтрокаСписокТоваров.Количество;
190 Движение.Стоимость = ТекСтрокаСписокТоваров.Сумма;
191 КонецЦикла;
192 Движения.ОстаткиИОборотыТоваров.Записывать = Истина;
193 Для Каждого ТекСтрокаСписокТоваров Из СписокТоваров Цикл
194 Движение = Движения.ОстаткиИОборотыТоваров.Добавить();
195 Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
196 Движение.Период = Дата;
197 Движение.Наименование = ТекСтрокаСписокТоваров.Наименование;
198 Движение.Склад = СкладОтправитель;
199 Движение.Количество = ТекСтрокаСписокТоваров.Количество;
200 Движение.Стоимость = ТекСтрокаСписокТоваров.Сумма;
201 КонецЦикла;
202 КонецПроцедуры
203
204
205 Процедура КонтрольОстатков(Отказ)
206 Для Каждого Строка из СписокТоваров цикл
207 Запрос = Новый Запрос;
208 Запрос.Текст =
209 "ВЫБРАТЬ
210 | СУММА(ОстаткиИОборотыТоваров.КоличествоОстаток) КАК
КоличествоОстаток
211 |ИЗ
212 | РегистрНакопления.ОстаткиИОборотыТоваров.Остатки(
213 | &НаДату,
214 | Наименование = &Наименование
215 | И Склад = &Склад) КАК ОстаткиИОборотыТоваров";
216
217 Запрос.УстановитьПараметр("НаДату", Дата);
218 Запрос.УстановитьПараметр("Наименование", Строка.Наименование);
219 Запрос.УстановитьПараметр("Склад", СкладОтправитель);
220
221 РезультатЗапроса = Запрос.Выполнить();
222
223 ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
224
225 Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
226 Если ВыборкаДетальныеЗаписи.КоличествоОстаток<Строка.Количество тогда
227 Сообщить("Внимание! Документ не проведён. Товара "+
228 Строка.Наименование+" не достаточно на складе "+
229 СкладОтправитель+"!
Остаток:"+ВыборкаДетальныеЗаписи.КоличествоОстаток+" "+
230 Строка.Наименование.ЕдиницаИзмерения);
231 Отказ = Истина;
232 КонецЕсли;
233 КонецЦикла;
234 КонецЦикла;
235 КонецПроцедуры
91
236
237 // Исходный код отчета «Отчет по остаткам»
238
239 ВЫБРАТЬ
240 ОстаткиИОборотыТоваров.Наименование,
241 СУММА(ОстаткиИОборотыТоваров.КоличествоНачальныйОстаток) КАК
КоличествоНачальныйОстаток,
242 СУММА(ОстаткиИОборотыТоваров.КоличествоПриход) КАК КоличествоПриход,
243 СУММА(ОстаткиИОборотыТоваров.КоличествоРасход) КАК КоличествоРасход,
244 СУММА(ОстаткиИОборотыТоваров.КоличествоКонечныйОстаток) КАК
КоличествоКонечныйОстаток,
245 ОстаткиИОборотыТоваров.Склад
246 ИЗ
247 РегистрНакопления.ОстаткиИОборотыТоваров.ОстаткиИОбороты КАК
ОстаткиИОборотыТоваров
248
249 СГРУППИРОВАТЬ ПО
250 ОстаткиИОборотыТоваров.Наименование,
251 ОстаткиИОборотыТоваров.Склад
252
253 // Исходный код отчета «Отчет по расходу товаров»:
254
255 ВЫБРАТЬ
256 РасходнаяНакладнаяСписокТоваров.Наименование,
257 СУММА(РасходнаяНакладнаяСписокТоваров.Количество) КАК Количество,
258 СУММА(РасходнаяНакладнаяСписокТоваров.Цена) КАК Цена,
259 СУММА(РасходнаяНакладнаяСписокТоваров.Сумма) КАК Сумма,
260 РасходнаяНакладнаяСписокТоваров.Ссылка.Получил,
261 РасходнаяНакладнаяСписокТоваров.Ссылка.Дата,
262 РасходнаяНакладнаяСписокТоваров.Ссылка.Номер,
263 РасходнаяНакладнаяСписокТоваров.Ссылка.Склад
264 ИЗ
265 Документ.РасходнаяНакладная.СписокТоваров КАК РасходнаяНакладнаяСписокТоваров
266
267 СГРУППИРОВАТЬ ПО
268 РасходнаяНакладнаяСписокТоваров.Наименование,
269 РасходнаяНакладнаяСписокТоваров.Ссылка.Получил,
270 РасходнаяНакладнаяСписокТоваров.Ссылка.Дата,
271 РасходнаяНакладнаяСписокТоваров.Ссылка.Номер,
272 РасходнаяНакладнаяСписокТоваров.Ссылка.Склад
273
274 // Исходный код отчета «Отчет по стоимости товаров»
275
276 ВЫБРАТЬ
277 ЦеныМатериаловСрезПоследних.Наименование,
278 СУММА(ЦеныМатериаловСрезПоследних.Цена) КАК Цена,
279 ЦеныМатериаловСрезПоследних.Наименование.ЕдиницаИзмерения,
280 ЦеныМатериаловСрезПоследних.Наименование.Производитель,
281 ЦеныМатериаловСрезПоследних.Наименование.Родитель,
282 ЦеныМатериаловСрезПоследних.Период,
283 ЦеныМатериаловСрезПоследних.Наименование КАК Наименование1,
284 ЦеныМатериаловСрезПоследних.Цена КАК Цена1
285 ИЗ
286 РегистрСведений.ЦеныТоваров.СрезПоследних(, ) КАК ЦеныМатериаловСрезПоследних
287
288 СГРУППИРОВАТЬ ПО
289 ЦеныМатериаловСрезПоследних.Наименование,
290 ЦеныМатериаловСрезПоследних.Наименование.ЕдиницаИзмерения,
291 ЦеныМатериаловСрезПоследних.Наименование.Производитель,
292 ЦеныМатериаловСрезПоследних.Наименование.Родитель,
293 ЦеныМатериаловСрезПоследних.Наименование,
294 ЦеныМатериаловСрезПоследних.Период,
92
295 ЦеныМатериаловСрезПоследних__
93
СПИСОК ЛИТЕРАТУРЫ
1. Схиртладзе, А.Г. Автоматизация технологических процессов:
Учебное пособие / А.Г. Схиртладзе, С.В. Бочкарев, А.Н. Лыков. — Ст. Оскол:
ТНТ, 2018. — 524 c.
2. Извольская, Н.А. Проблемы и пути совершенствования
организационной структуры управления предприятия. / Н.А. Извольская. –
Уфа: Дело, 2016. – 348с.
3. Панов, А.В. Разработка управленческих решений:
информационные технологии: Учебное пособие / А.В. Панов. - М.: ГЛТ,
2012. - 151 c.
4. "Репин, Владимир Бизнес-процессы. Моделирование, внедрение,
управление / Владимир Репин. - М.: Манн, Иванов и Фербер, 2017. - 851 c.
5. "Черемных, С.В. Моделирование и анализ систем. IDEF-
технологии: практикум / С.В.Черемных [и др.]. – М.: Финансы и статистика,
2016. – 192 с.
6. Коноплева, И.А. Информационные технологии. / И.А. Коноплева,
О.А. Хохлова, А.В. Денисов. - М.: Проспект, 2015. - 328 c.
7. МойСклад — интернет-сервис для торговли и склада
[Электронный ресурс]. URL: https://www.moysklad.ru/
8. CloudShop — бесплатная программа для магазина. [Электронный
ресурс]. URL: https://cloudshop.ru/
9. Общее описание|1С:Управление торговлей [Электронный
ресурс]. URL: http://v8.1c.ru/trade/
10. 1С:Предприятие 8 [Электронный ресурс]. URL: http://v8.1c.ru/
11. Сибилев, Д.С. Разработка концептуальной модели данных/Д.
Сибилёв.– Томск: Знание, 2019. – 301 с.
12. Кашаев, С. М. 1С: Предприятие 8.1. Разработка прикладных
решений / С.М. Кашаев. –М.: Вильямс, 2019. –368 c.
94
13. Радченко, М.Г. 1С: Предприятие 8.3. Практическое пособие
разработчика. Примеры и типовые приёмы / М.Г Радченко. – М.:1С–
Паблишинг, 2018. – 512 с
14. Хрусталева, Е.Ю. Разработка сложных отчётов в 1С:
Предприятии 8. Система компоновки данных/ Е.Ю. Хрусталева. – М.:1С–
Паблишинг, 2014. – 501 с.
15. Бартеньев, О. 1С: Предприятие. Программирование для всех / О.
Бартеньев. - М.: Диалог МИФИ, 2017. - 464 c.
16. Минухин, С. В. / Методика выбора и расчёта затрат совокупной
стоимости владения С. В. Минухин, С.В. Знахур. // Радиоэлектронные и
компьютерные системы. – 2016. – №1. – С. 90-96.
17. Цыгалов, Ю. Экономическая эффективность инвестиций в ИТ:
оптимальный метод оценки [Электронный ресурс]. URL:
http://www.pcweek.ru/idea/article/detail.php?ID=68331.