120
33. Чистов Д.А: Экономическая информатика (для бакалавров). Учебное
пособие, - М., Кнорус, 2014 г., 512 с.
34. Эндрю Стиллмен: Изучаем C#, - М., Питер, 2014 г., 816 с.
35. Энтони Молинаро, SQL. Сборник рецептов, - М., Символ-Плюс,2011 г.,
672 с.
36. Энтони Уильямс: Параллельное программирование на С++ в действии.
Практика разработки многопоточных программ, - М., ДМК-Пресс, 2014 г., 672 с.
121
Приложение. Листинг программных модулей
Процедура ТоварыЦенаПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Сумма =
ЭлементыФормы.Товары.текущиеДанные.Количество *
ЭлементыФормы.Товары.текущиеДанные.Цена;
КонецПроцедуры
Процедура ТоварыСуммаПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Цена =
ЭлементыФормы.Товары.текущиеДанные.Сумма /
ЭлементыФормы.Товары.текущиеДанные.Количество;
КонецПроцедуры
Процедура ТоварыТоварПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Цена =
ЭлементыФормы.Товары.текущиеДанные.Товар.Цена;
ЭлементыФормы.Товары.текущиеДанные.Сумма =
ЭлементыФормы.Товары.текущиеДанные.Количество *
ЭлементыФормы.Товары.текущиеДанные.Цена;
КонецПроцедуры
Процедура ТоварыКоличествоПриИзменении(Элемент)
ЭлементыФормы.Товары.текущиеДанные.Сумма =
ЭлементыФормы.Товары.текущиеДанные.Количество *
ЭлементыФормы.Товары.текущиеДанные.Цена;
КонецПроцедуры
Процедура ОсновныеДействияФормыСчетНаОплату(Кнопка)
ТабДок = Новый ТабличныйДокумент;
122
Макет = ПолучитьМакет("СчетНаОплату");
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Накладная = "Счет № " + Номер + " от " +
Лев(Строка(Дата),10);
Шапка.Параметры.Получатель = Клиент.Наименование;
ТабДок.Вывести(Шапка);
Для Каждого ТекущаяСтрока Из Товары Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = ТекущаяСтрока.Товар.Код;
Строка.Параметры.Наименование =
ТекущаяСтрока.Товар.Наименование;
Строка.Параметры.ТипПродукта =
ТекущаяСтрока.Товар.ТипПродукта;
Строка.Параметры.ТипТовара = ТекущаяСтрока.Товар.ТипТовара;
Строка.Параметры.КолВо = ТекущаяСтрока.Количество;
Строка.Параметры.Цена = ТекущаяСтрока.Цена;
Строка.Параметры.Сумма = ТекущаяСтрока.Сумма;
ТабДок.Вывести(Строка);
КонецЦикла;
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Итого = Товары.Итог("Сумма");
ТабДок.Вывести(Подвал);
123
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура ОсновныеДействияФормыНакладная(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("СчетНаОплату");
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Накладная = "Накладная № " + Номер + " от " +
Лев(Строка(Дата),10);
Шапка.Параметры.Получатель = Клиент.Наименование;
ТабДок.Вывести(Шапка);
Для Каждого ТекущаяСтрока Из Товары Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = ТекущаяСтрока.Товар.Код;
Строка.Параметры.Наименование =
ТекущаяСтрока.Товар.Наименование;
Строка.Параметры.ТипПродукта =
ТекущаяСтрока.Товар.ТипПродукта;
Строка.Параметры.ТипТовара = ТекущаяСтрока.Товар.ТипТовара;
Строка.Параметры.КолВо = ТекущаяСтрока.Количество;
Строка.Параметры.Цена = ТекущаяСтрока.Цена;
Строка.Параметры.Сумма = ТекущаяСтрока.Сумма;
124
ТабДок.Вывести(Строка);
КонецЦикла;
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Итого = Товары.Итог("Сумма");
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(Шапка);
ном = 0;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Товары.Наименование,
| Товары.Код,
| Товары.ТипТовара,
| Товары.ТипУпаковки,
| Товары.ТипПродукта,
| Товары.Цена,
125
| СУММА(ПриходТовары.Количество) КАК КоличествоПриход,
| СУММА(ПродажаТовары.Количество) КАК КоличествоРасход
|ИЗ
| Справочник.Товар КАК Товары
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.Приход.Товары КАК
ПриходТовары
| ПО Товары.Ссылка = ПриходТовары.Товар
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.Продажа.Товары КАК
ПродажаТовары
| ПО Товары.Ссылка = ПродажаТовары.Товар
|ГДЕ
| Товары.ПометкаУдаления = ЛОЖЬ
|
|СГРУППИРОВАТЬ ПО
| Товары.ТипУпаковки,
| Товары.ТипТовара,
| Товары.Код,
| Товары.ТипПродукта,
| Товары.Наименование,
| Товары.Цена";
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = Результат.Код;
Строка.Параметры.Наименование = Результат.Наименование;
Строка.Параметры.ТипПродукта = Результат.ТипПродукта;
Строка.Параметры.ТипТовара = Результат.ТипТовара;
Строка.Параметры.ТипУпаковки = Результат.ТипУпаковки;
КоличествоПриход = Результат.КоличествоПриход;
126
КоличествоРасход = Результат.КоличествоРасход;
Если КоличествоПриход = NULL Тогда
КоличествоПриход = 0;
КонецЕсли;
Если КоличествоРасход = NULL Тогда
КоличествоРасход = 0;
КонецЕсли;
Строка.Параметры.количество = КоличествоПриход -
КоличествоРасход;
Строка.Параметры.Артикул = Результат.Код;
Строка.Параметры.Стоимость = Результат.Цена;
ТабДок.Вывести(Строка);
КонецЦикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(Шапка);
ном = 0;
127
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СУММА(ПродажаТовары.Количество) КАК
КоличествоРасход,
| СУММА(ПродажаТовары.Сумма) КАК Сумма,
| ПродажаТовары.Товар,
| ПродажаТовары.Товар.Код,
| ПродажаТовары.Товар.Наименование,
| ПродажаТовары.Товар.ТипТовара,
| ПродажаТовары.Товар.ТипПродукта,
| ПродажаТовары.Ссылка.Клиент,
| ПродажаТовары.Ссылка.Сотрудник
|ИЗ
| Документ.Продажа.Товары КАК ПродажаТовары
|ГДЕ
| ПродажаТовары.Ссылка.ПометкаУдаления = ЛОЖЬ";
Если (ЗначениеЗаполнено(ДатаНач)) и (ЗначениеЗаполнено(ДатаКон))
Тогда
Запрос.Текст = Запрос.Текст + " И ПродажаТовары.Ссылка.Дата
МЕЖДУ &Дата1 И &Дата2";
КонецЕсли;
Если (ЗначениеЗаполнено(Клиент)) Тогда
Запрос.Текст = Запрос.Текст + " И
ПродажаТовары.Ссылка.Клиент = &Клиент";
КонецЕсли;
Если (ЗначениеЗаполнено(Товар)) Тогда
128
Запрос.Текст = Запрос.Текст + " И ПродажаТовары.Товар =
&Товар";
КонецЕсли;
Если (ЗначениеЗаполнено(ТипТовара)) Тогда
Запрос.Текст = Запрос.Текст + " И
ПродажаТовары.Товар.ТипТовара = &ТипТовара";
КонецЕсли;
Запрос.Текст = Запрос.Текст + " СГРУППИРОВАТЬ ПО
| ПродажаТовары.Товар,
| ПродажаТовары.Товар.Код,
| ПродажаТовары.Товар.Наименование,
| ПродажаТовары.Товар.ТипТовара,
| ПродажаТовары.Товар.ТипПродукта,
| ПродажаТовары.Ссылка.Клиент,
| ПродажаТовары.Ссылка.Сотрудник";
Запрос.УстановитьПараметр("Дата1",НачалоДня(ДатаНач));
Запрос.УстановитьПараметр("Дата2",КонецДня(ДатаКон));
Запрос.УстановитьПараметр("Клиент",Клиент);
Запрос.УстановитьПараметр("Товар",Товар);
Запрос.УстановитьПараметр("ТипТовара",ТипТовара);
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = Результат.ТоварКод;
129
Строка.Параметры.Наименование =
Результат.ТоварНаименование;
Строка.Параметры.ТипПродукта = Результат.ТоварТипПродукта;
Строка.Параметры.ТипТовара = Результат.ТоварТипТовара;
Строка.Параметры.Клиент = Результат.Клиент;
Строка.Параметры.Сотрудник = Результат.Сотрудник;
Строка.Параметры.количество = Результат.КоличествоРасход;
Строка.Параметры.Сумма = Результат.Сумма;
Строка.Параметры.Стоимость = Результат.Сумма /
Результат.КоличествоРасход;
ТабДок.Вывести(Строка);
КонецЦикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры