Дипломная работа: Автоматизация приема платежей в базе конфигурации 1С: предприятие 8.3.6 для ТОО "ASD.PRO"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
112
Шапка.Параметры.Накладная = "Счет № " + Номер + " от " +
Лев(Строка(Дата),10);
Шапка.Параметры.Получатель = Клиент.Наименование;
ТабДок.Вывести(Шапка);
Для Каждого ТекущаяСтрока Из Товары Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = ТекущаяСтрока.Товар.Код;
Строка.Параметры.Наименование =
ТекущаяСтрока.Товар.Наименование;
Строка.Параметры.ТипПродукта =
ТекущаяСтрока.Товар.ТипПродукта;
Строка.Параметры.ТипТовара =
ТекущаяСтрока.Товар.ТипТовара;
Строка.Параметры.КолВо = ТекущаяСтрока.Количество;
Строка.Параметры.Цена = ТекущаяСтрока.Цена;
Строка.Параметры.Сумма = ТекущаяСтрока.Сумма;
ТабДок.Вывести(Строка);
КонецЦикла;
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Итого = Товары.Итог("Сумма");
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
113
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура ОсновныеДействияФормыНакладная(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("СчетНаОплату");
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Накладная = "Накладная № " + Номер + " от " +
Лев(Строка(Дата),10);
Шапка.Параметры.Получатель = Клиент.Наименование;
ТабДок.Вывести(Шапка);
Для Каждого ТекущаяСтрока Из Товары Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = ТекущаяСтрока.Товар.Код;
Строка.Параметры.Наименование =
ТекущаяСтрока.Товар.Наименование;
Строка.Параметры.ТипПродукта =
ТекущаяСтрока.Товар.ТипПродукта;
Строка.Параметры.ТипТовара =
ТекущаяСтрока.Товар.ТипТовара;
Строка.Параметры.КолВо = ТекущаяСтрока.Количество;
Строка.Параметры.Цена = ТекущаяСтрока.Цена;
Строка.Параметры.Сумма = ТекущаяСтрока.Сумма;
ТабДок.Вывести(Строка);
114
КонецЦикла;
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Итого = Товары.Итог("Сумма");
ТабДок.Вывести(Подвал);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(Шапка);
ном = 0;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Товары.Наименование,
| Товары.Код,
| Товары.ТипТовара,
| Товары.ТипУпаковки,
| Товары.ТипПродукта,
| Товары.Цена,
| СУММА(ПриходТовары.Количество) КАК КоличествоПриход,
| СУММА(ПродажаТовары.Количество) КАК КоличествоРасход
|ИЗ
115
| Справочник.Товар КАК Товары
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.Приход.Товары КАК
ПриходТовары
| ПО Товары.Ссылка = ПриходТовары.Товар
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.Продажа.Товары КАК
ПродажаТовары
| ПО Товары.Ссылка = ПродажаТовары.Товар
|ГДЕ
| Товары.ПометкаУдаления = ЛОЖЬ
|
|СГРУППИРОВАТЬ ПО
| Товары.ТипУпаковки,
| Товары.ТипТовара,
| Товары.Код,
| Товары.ТипПродукта,
| Товары.Наименование,
| Товары.Цена";
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
Строка = Макет.ПолучитьОбласть("Строка");
Строка.Параметры.Артикул = Результат.Код;
Строка.Параметры.Наименование = Результат.Наименование;
Строка.Параметры.ТипПродукта = Результат.ТипПродукта;
Строка.Параметры.ТипТовара = Результат.ТипТовара;
Строка.Параметры.ТипУпаковки = Результат.ТипУпаковки;
КоличествоПриход = Результат.КоличествоПриход;
КоличествоРасход = Результат.КоличествоРасход;
Если КоличествоПриход = NULL Тогда
КоличествоПриход = 0;
КонецЕсли;
116
Если КоличествоРасход = NULL Тогда
КоличествоРасход = 0;
КонецЕсли;
Строка.Параметры.количество = КоличествоПриход -
КоличествоРасход;
Строка.Параметры.Артикул = Результат.Код;
Строка.Параметры.Стоимость = Результат.Цена;
ТабДок.Вывести(Строка);
КонецЦикла;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(Шапка);
ном = 0;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| СУММА(ПродажаТовары.Количество) КАК
КоличествоРасход,
| СУММА(ПродажаТовары.Сумма) КАК Сумма,
Источник: https://baza.diplomsite.ru/previewfile/1990

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009
- Программа ГПИ