72
13. Маклаков С.В. Создание информационных систем с All Fusion Modeling
Suite. / С.В. Маклаков – М.: Диалог-МИФИ, 2016.
14. Мартишин, С.А. Проектирование и реализация баз данных в СУБД MySQL
с использованием MySQL Workbench: Методы и средства проектирования
информационных систем и техноло / С.А. Мартишин, В.Л. Симонов, М.В.
Храпченко. - М.: Форум, 2018. - 61 c..
15. Остроух А. В., Суркова Н. Е. Проектирование информационных систем:
Монография. – СПб.: Издательство «Лань», 2019. – 164 с.: ил. – (Учебники
для вузов. Специальная литература.)
16. . . Перлова, О.Н. Проектирование и разработка информационных систем:
Учебник / О.Н. Перлова, О.П. Ляпина, А.В. Гусева. - М.: Academia, 2017. -
416 c.
17. Проектирование информационных систем (на примере методов
структурного системного анализа): учебное пособие / О.Г. Инюшкина,
Екатеринбург: «Форт-Диалог Исеть», 2014 240 с.
18. Проектирование информационных систем : учеб. пособие / В.В. Коваленко.
— М. : ФОРУМ : ИНФРА-М, 2018. — 320 с. .
19. Чистов Д. В., Мельников П. П., Золотарюк А. В., Проектирование
информационных систем : учебник и практикум для академического
бакалавриата / Д. В. Чистов, П. П. Мельников, А. В. Золотарюк, Н. Б.
Ничепорук ; под общ. ред. Д. В. Чистова. — Москва : Издательство Юрайт,
2018. — 258 с.
20. Шварц Б., Зайцев П., ТкаченкоВ. MySQL по максимуму. Оптимизация,
репликация, резервное копирование/ Б.. Шварц — П. : Питер, 2018. — 320 с.
21. https://portal.1c.ru/ - Портал 1 С
73
Код формы документа (автоматически вычисляем общую сумму
поступившего товара):
&НаКлиенте
Процедура Поступление_товараКоличествоПриИзменении(Элемент)
ТекущаяСтрока =
элементы.Поступление_товара.ТекущиеДанные.НомерСтроки;
Поступление_товараКоличествоПриИзмененииСервер(ТекущаяСтр
ока);
КонецПроцедуры
&НаСервере
Процедура
Поступление_товараКоличествоПриИзмененииСервер(НомерСтроки)
ТекущиеДанные =
Объект.Поступление_товара.Получить(НомерСтроки - 1);
Цена = Регистр
накопления.Поступление_товара.НайтиПоКоду(ТекущиеДанные.Номенк
латура.Код).Цена;
ТекущиеДанные.Стоимость = ТекущиеДанные.Количество * Цена;
КонецПроцедуры
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
ПередЗаписьюНаСервере();
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере()
Объект.СуммаПоступление_товара =
Объект.Поступление_товара.Итог("Стоимость");
74
КонецПроцедуры
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.ПоступлениеТовара.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПоступлениеТовара.ВидТовара,
| ПоступлениеТовара.Дата,
| ПоступлениеТовара.Номер
|ИЗ
| Документ.ПоступлениеТовара КАК ПоступлениеТовара
|ГДЕ
| ПоступлениеТовара.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
75
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры