81
12. Кузнецов С.Д. Основы баз данных / С.Д. Кузнецов. - М.: Бином, 2017.
– 484 c.
13. Першин В.К. Компьютерная обработка таблиц: учебное пособие.
[Текст] – М-во образования Рос. Федерации, Урал. гос. экон. ун-т, Центр дистанц.
образования. - Екатеринбург: Издательство УрГЭУ, 2002. - 168 с.
14. Плещев В. В. Базы данных. Visual FoxPro, Access, SQL Server,
ORACLE с примерами и упражнениями: учеб. пособие. [Текст]. 2-е изд., испр. доп.
(реком. УМО) – Екатеринбург: Изд-во УрГЭУ, 2014. – 100 с.
15. Плещев В. В. Информатика и программирование. Quick Basic и Visual
Basic, VBScript, HTML, ASP, Dreamweaver, Crystal Reports c примерами и
упражнениями: учебник для студентов вузов, обучающихся по специальности
"Прикладная информатика (по областям)" и другим экономическим
специальностям. [Текст] – М-во образования Рос. Федерации, Урал. гос. экон. ун-т,
Центр дистанц. образования. - 3-е изд., испр. и доп. - Екатеринбург: Издательство
УрГЭУ, 2002. - 275 с.
16. Практика и проблематика моделирования бизнес-процессов / Всяких
Е.И., Зуева А.Г., Носков Б.В., - 2-е изд., (эл.) – М.:ДМК Пресс, 2018. – 248 с.
17. Плещев В. В. Организация разработки и стандартизация программных
и информационных систем и технологий: методы, технологии, CASE-средства,
качество, метрология: учеб. пособие. [Текст] – М-во образования и науки Рос.
Федерации, Урал. гос. экон. ун-т, Центр дистанц. образования. - Екатеринбург :
[Издательство УрГЭУ], 2011. - 260 с.
18. Плещев В. В. Основы разработки программных средств: учеб.
пособие. [Текст] – М-во образования и науки Рос. Федерации, Урал. гос. экон. ун-т,
Центр дистанц. образования. – Екатеринбург: [Изд-во УрГЭУ], 2004. – С. 29-30.
19. Плещёв В. В. Проектирование и реализация адаптивных методических
систем формирования компетентности специалистов в области разработки
компьютерных приложений: [монография]. [Текст] – Федер. агентство по
образованию, Урал. гос. экон. ун-т. - Екатеринбург: [Издательство УрГЭУ], 2005. -
343 с.
82
20. Проектирование информационных систем [Текст] : учебное пособие /
Н. М. Сурнина, Н. Г. Чиркина ; М-во образования и науки Рос. Федерации, Урал.
гос. экон. ун-т. - Екатеринбург : [Издательство УрГЭУ], 2017. - 191 с.
21. Репин, В. Бизнес-процессы. Моделирование, внедрение, управление.
[Текст] – М.: Манн, Иванов и Фербер, 2013. – 512 с.
22. Сайт Microsoft Windows [Электронный ресурс]. – Режим доступа:
https://www.microsoft.com, свободный.
23. Информационные технологии в профессиональной деятельности :
учеб. пособие / Е.Л. Федотова. – М.: ИД «ФОРУМ»: ИНФРА-М, 2018. – 367 с.
24. Технические требования access [Электронный ресурс].- Режим
доступа: https://www.mssoft.ru/Makers/Microsoft/Access_2016/SysReq, свободный.
25. Системные требования access [Электронный ресурс]. – Режим доступа:
https://www.mssoft.ru/Makers/Microsoft/Access_2016/SysReq, свободный.
26. Схема данных в access [Электронный ресурс]. – Режим доступа:
https://accesshelp.ru/shema-dannyh-v-access/, свободный.
27. Создание формы в Access [Электронный ресурс]. – Режим доступа:
https://support.office.com/ru-
ru/article/%D0%A1%D0%BE%D0%B7%D0%B4%D0%B0%D0%BD%D0%B8%D0%
B5-%D1%84%D0%BE%D1%80%D0%BC%D1%8B-%D0%B2-access-5d550a3d-92e1-
4f38-9772-7e7e21e80c6b, свободный.
28. Создание таблиц в ms access [Электронный ресурс]. – Режим доступа:
https://accesshelp.ru/sozdanie-tablic-v-ms-access/, свободный.
29. Создание отчета в access [Электронный ресурс]. – Режим доступа:
https://accesshelp.ru/sozdanie-otcheta-v-access-s-pomoshhju-mastera/, свободный.
30. Сурнина Н. М. Проектирование информационных систем [Текст]:
Учебное пособие / Н. М. Сурнина, Н. Г. Чиркина; М-во образования и науки РФ,
Урал.гос. экон. ун-т. – Екатеринбург: [Изд-во УрГЭУ], 2017. – 191 с.
31. Симонович С. Информатика. Базовый курс: учебное пособие для
высших технических учебных заведений. [Текст] – Санкт-Петербург: Питер, 2011.
– 639 с.
83
32. Технология осуществления розничной торговли [Электронный
ресурс]. – Режим доступа: https://www.cfin.ru/press/practical/2001-05/04.shtml,
свободный.
84
Приложение 1
Листинг основных программных модулей
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ДатыПриемаМетриаловИКомпонентов
Движения.ДатыПриемаМатериаловИКомпонентов.Записывать = Истина;
ТЗ = Марка.Выгрузить(,"МатериалКомпонент"); ТЗ.Свернуть("МатериалКомпонент");
Для Каждого ТекСтр Из ТЗ Цикл
Движение = Движения.ДатыПриемаМатериаловИКомпонентов.Добавить(); Движение.Период =
Дата;
Движение.МатериалКомпонент = ТекСтр.МатериалКомпонент;
Движение.Касса = Касса;
КонецЦикла;
// регистр ОстаткиМатериаловИКомпонентов Приход
Движения.ОстаткиМатериаловИКомпонентов.Записывать = Истина;
Для Каждого ТекСтрокаМарка Из Марка Цикл Движение =
Движения.ОстаткиМатериаловИКомпонентов.Добавить(); Движение.ВидДвижения =
ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.МатериалКомпонент =
ТекСтрокаМарка.МатериалКомпонент;
Движение.Количество = ТекСтрокаМарка.Количество; Движение.Касса = Касса;
Движение.МестоХранения = ТекСтрокаМарка.МестоХранения; КонецЦикла;
КонецПроцедуры
Процедура Печать(ТабДок, МассивСсылок) Экспорт
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.СчетКлиента.ПолучитьМакет("Счет"); ОбластьЗаголовокСчета =
Макет.ПолучитьОбласть("ЗаголовокСчета"); ТабДок.Вывести(ОбластьЗаголовокСчета);
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); ОбластьПоставщик =
Макет.ПолучитьОбласть("Поставщик"); ОбластьПокупатель =
Макет.ПолучитьОбласть("Покупатель"); ОбластьШапкаТаблицы =
Макет.ПолучитьОбласть("ШапкаТаблицы"); ОбластьСтрокаТаблицы =
Макет.ПолучитьОбласть("СтрокаТаблицы"); ОбластьПодвалТаблицы =
Макет.ПолучитьОбласть("ПодвалТаблицы"); ОбластьСуммаПрописью =
Макет.ПолучитьОбласть("СуммаПрописью"); ОбластьПодвалСчета =
Макет.ПолучитьОбласть("ПодвалСчета");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВложенныйЗапрос.Дата,
85
| ВложенныйЗапрос.Номер,
| ВложенныйЗапрос.Клиент,
| ВложенныйЗапрос.Сумма,
| ВложенныйЗапрос.Количество,
| ВложенныйЗапрос.Сумма КАК Всего,
| ВложенныйЗапрос.Ссылка
|ИЗ
| (ВЫБРАТЬ
| Марка.Ссылка.Дата КАК Дата,
| Марка.Ссылка.Номер КАК Номер,
| Марка.Ссылка.Клиент.Представление КАК
Клиент,
| СУММА(Марка.Сумма) КАК Сумма,
| СУММА(Марка.Количество) КАК Количество,
| Марка.Ссылка КАК Ссылка
| ИЗ
| Документ.СчетКлиента.Марка КАК
Марка | ГДЕ
| Марка.Ссылка В(&Ссылка)
|
| СГРУППИРОВАТЬ ПО
| Марка.Ссылка.Дата,
| Марка.Ссылка.Номер,
| Марка.Ссылка.Клиент.Представление,
| Марка.Ссылка) КАК ВложенныйЗапрос";
Запрос.УстановитьПараметр(
м
Ссылка
м
,МассивСсылок);
ЗапросПоТабличнойЧасти = Новый Запрос;
ЗапросПоТабличнойЧасти.Текст =
"ВЫБРАТЬ
| СчетКлиентаМарка.МатериалКомпонент,
| СчетКлиентаМарка.Количество,
| СчетКлиентаМарка.Цена,
| СчетКлиентаМарка.Сумма
|ИЗ
| Документ.СчетКлиента.Марка КАК
СчетКлиентаМарка |ГДЕ
| СчетКлиентаМарка.Ссылка = &Ссылка";
Выборка = Запрос.Выполнить().Выбрать();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ОбластьЗаголовок.Параметры.ТекстЗаголовка = "Счет №" + Выборка.Номер + " от
" + Формат(Выборка.Дата,"ДЛФ=DD");
ОбластьПокупатель.Параметры.ПредставлениеПолучателя=
Выборка.Клиент;
ТабДок.Вывести(ОбластьЗаголовок);
86
ТабДок.Вывести(ОбластьПоставщик);
ТабДок.Вывести(ОбластьПокупатель);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ЗапросПоТабличнойЧасти.УстановитьПараметр(
м
Ссылка
м
,Выборка.Ссылка);
ВыборкаПоТЧ = ЗапросПоТабличнойЧасти.Выполнить().Выбрать(); Пока
ВыборкаПоТЧ.Следующий() Цикл
ОбластьСтрокаТаблицы.Параметры.Заполнить(ВыборкаПоТЧ);
ТабДок.Вывести(ОбластьСтрокаТаблицы);
КонецЦикла;
ОбластьПодвалТаблицы.Параметры.Заполнить(Выборка);
ОбластьСуммаПрописью.Параметры.ИтоговаяСтрока = "Всего наименований 1, на сумму " +
Формат(Выборка.Сумма,"ЧДЦ=2; ЧН=0,00");
ФормСтрока = "Л = ru_RU; ДП = Истина";
ПарПредмета="рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
ПрописьЧисла = ЧислоПрописью(Выборка.Сумма, ФормСтрока, ПарПредмета);
ОбластьСуммаПрописью.Параметры.СуммаПрописью = ПрописьЧисла;
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьСуммаПрописью);
ТабДок.Вывести(ОбластьПодвалСчета);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.АвтоМасштаб = Истина;
КонецПроцедуры
Процедура ПечатьСчетФактуры(ТабДок, МассивСсылок) Экспорт
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.СчетКлиента.ПолучитьМакет("СчетФактура");
//ОбластьЗаголовокСчета = Макет.ПолучитьОбласть("ЗаголовокСчета");
//ТабДок.Вывести(ОбластьЗаголовокСчета);
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПоставщик = Макет.ПолучитьОбласть("Поставщик");
ОбластьПокупатель = Макет.ПолучитьОбласть("Покупатель");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьСтрокаТаблицы = Макет.ПолучитьОбласть("СтрокаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьСуммаПрописью = Макет.ПолучитьОбласть("СуммаПрописью");
ОбластьПодвалСчета = Макет.ПолучитьОбласть("ПодвалСчета");
87
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВложенныйЗапрос.Дата,
| ВложенныйЗапрос.Номер,
| ВложенныйЗапрос.Клиент,
| ВложенныйЗапрос.Сумма,
| ВложенныйЗапрос.Количество,
| ВложенныйЗапрос.Сумма КАК Всего,
| ВложенныйЗапрос.Ссылка
|ИЗ
| (ВЫБРАТЬ
| Марка.Ссылка.Дата КАК Дата,
| Марка.Ссылка.Номер КАК Номер,
| Марка.Ссылка.Клиент.Представление КАК
Клиент,
| СУММА(Марка.Сумма) КАК Сумма,
| СУММА(Марка.Количество) КАК Количество,
| Марка.Ссылка КАК Ссылка
| ИЗ
| Документ.СчетКлиента.Марка КАК
Марка | ГДЕ
| Марка.Ссылка В(&Ссылка)
|
| СГРУППИРОВАТЬ ПО
| Марка.Ссылка.Дата,
| Марка.Ссылка.Номер,
| Марка.Ссылка.Клиент.Представление,
| Марка.Ссылка) КАК ВложенныйЗапрос";
Запрос.УстановитьПараметр("Ссылка",МассивСсылок);
ЗапросПоТабличнойЧасти = Новый Запрос;
ЗапросПоТабличнойЧасти.Текст =
"ВЫБРАТЬ
| СчетКлиентаМарка.МатериалКомпонент,
| СчетКлиентаМарка.Количество,
| СчетКлиентаМарка.Цена,
| СчетКлиентаМарка.Сумма
|ИЗ
| Документ.СчетКлиента.Марка КАК
СчетКлиентаМарка |ГДЕ
| СчетКлиентаМарка.Ссылка = &Ссылка";
Выборка = Запрос.Выполнить().Выбрать();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ОбластьЗаголовок.Параметры.ТекстЗаголовка = "Счет-Фактура №" +
88
Выборка.Номер + " от " + Формат(Выборка.Дата,"ДЛФ=DD");
ОбластьПокупатель.Параметры.ПредставлениеПолучателя=
Выборка.Клиент;
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьПоставщик);
ТабДок.Вывести(ОбластьПокупатель);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ЗапросПоТабличнойЧасти.УстановитьПараметр("Ссылка",Выборка.Ссылка);
ВыборкаПоТЧ = ЗапросПоТабличнойЧасти.Выполнить().Выбрать(); Пока
ВыборкаПоТЧ.Следующий() Цикл
ОбластьСтрокаТаблицы.Параметры.Заполнить(ВыборкаПоТЧ);
ТабДок.Вывести(ОбластьСтрокаТаблицы);
КонецЦикла;
ОбластьПодвалТаблицы.Параметры.Заполнить(Выборка);
ОбластьСуммаПрописью.Параметры.ИтоговаяСтрока = "Всего наименований 1, на сумму " +
Формат(Выборка.Сумма,"ЧДЦ=2; ЧН=0,00");
ФормСтрока = "Л = ru_RU; ДП = Истина";
ПарПредмета-'рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2";
ПрописьЧисла = ЧислоПрописью(Выборка.Сумма, ФормСтрока, ПарПредмета);
ОбластьСуммаПрописью.Параметры.СуммаПрописью = ПрописьЧисла;
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьСуммаПрописью);
ТабДок.Вывести(ОбластьПодвалСчета);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.АвтоМасштаб = Истина;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//Проверим остатки Запрос =
Новый Запрос;
Запрос.УстановитьПараметр("Ссылка",Ссылка);
Запрос.УстановитьПараметр("Дата",Дата);
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| СчетКлиентаМарка.МатериалКомпонент,
| СчетКлиентаМарка.МестоХранения,
| СчетКлиентаМарка.Ссылка.Касса,
| СУММА(СчетКлиентаМарка.Количество) КАК
89
Количество
ПОМЕСТИТЬ вт_Марка |ИЗ
| Документ.СчетКлиента.Марка КАК
СчетКлиентаМарка |ГДЕ
| СчетКлиентаМарка.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| СчетКлиентаМарка.МатериалКомпонент,
| СчетКлиентаМарка.МестоХранения,
| СчетКлиентаМарка.Ссылка.Касса
|
;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗРЕШЕННЫЕ
| вт_Марка.МатериалКомпонент,
| вт_Марка.МестоХранения,
| вт_Марка.Касса,
| вт_Марка.МатериалКомпонент.Представление,
| вт_Марка.Количество -
ЕСТЬКЦЕЕ(ОстаткиМатериаловИКомпонентовОстатки.КоличествоОстаток, 0) КАК
Отклонение |ИЗ
| вт_Марка КАК вт_Марка
| ЛЕВОЕ СОЕДИНЕНИЕ
РегистрНакопления.ОстаткиМатериаловИКомпонентов.Остатки(&Дата, ) КАК
ОстаткиМатериаловИКомпонентовОстатки
| ПО вт_Марка.МатериалКомпонент =
ОстаткиМатериаловИКомпонентовОстатки.МатериалКомпонент
| И вт_Марка.МестоХранения =
ОстаткиМатериаловИКомпонентовОстатки.МестоХранения
| И вт_Марка.МатериалКомпонент =
ОстаткиМатериаловИКомпонентовОстатки.МатериалКомпонент |ГДЕ
| вт_Марка.Количество -
ЕСТЬNULL(ОстаткиМатериаловИКомпонентовОстатки.КоличествоОстаток, 0) > 0"; Результат =
Запрос.Выполнить();
Если Не Результат.Пустой() Тогда
Отказ = Истина;
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Сообщить("Не хватает материала:" +
Выборка.МатериалКомпонентПредставление + " в количестве:" + Выборка.Отклонение);
КонецЦикла;
КонецЕсли;
// регистр ОстаткиМатериаловИКомпонентов Расход Если
Отгружен Тогда
Движения.ОстаткиМатериаловИКомпонентов.Записывать = Истина; Для
Каждого ТекСтрокаМарка Из Марка Цикл Движение =
Движения.ОстаткиМатериаловИКомпонентов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
90
Движение.МатериалКомпонент = ТекСтрокаМарка.МатериалКомпонент;
Движение.Количество =
ТекСтрокаМарка.Количество;
Движение.Касса = Касса;
Движение.МестоХранения = ТекСтрокаМарка.МестоХранения;
КонецЦикла;
КонецЕсли;
КонецПроцедуры