Курсовые работы / ПРИС КП_И_12
.pdfПРИЛОЖЕНИЕ В Листинг программы
Листинг В.1 – Общий модуль РаботаСДокументами
Процедура |
РассчитатьСумму |
СтрокаТабличнойЧасти.Сумма |
= |
(СтрокаТабличнойЧасти) |
Экспорт |
СтрокаТабличнойЧасти.Количество*СтрокаТаблично |
|
|
|
йЧасти.Цена; |
|
|
|
КонецПроцедуры |
|
Листинг В.2 – Документ ПриходнаяНакладная: Модуль объекта
Процедура ОбработкаПроведения(Отказ, Режим) |
|
Движение.ВидДвижения |
= |
// регистр ОстаткиМатериалов Приход |
|
ВидДвиженияНакопления.Приход; |
|
Движения.ОстаткиМатериалов.Записывать = |
Движение.Период = Дата; |
|
|
Истина; |
|
Движение.Материал |
= |
Для Каждого ТекСтрокаПоступление |
Из |
ТекСтрокаПоступление.Номенклатура; |
|
Поступление Цикл |
|
Движение.Количество |
= |
Движение |
= |
ТекСтрокаПоступление.Количество; |
|
Движения.ОстаткиМатериалов.Добавить(); |
|
КонецЦикла; |
|
|
|
КонецПроцедуры |
|
Листинг В.3 – Документ КарточкаЗаказа
Процедура ОбработкаПроведения(Отказ, Режим) |
|
Движение.Клиент = Заказчик; |
|
// регистр Продажи |
|
Движение.Количество |
= |
Движения.Продажи.Записывать = Истина; |
|
ТекСтрокаСоставЗаказа.Количество; |
|
Для Каждого ТекСтрокаСоставЗаказа |
Из |
Движение.Выручка |
= |
СоставЗаказа Цикл |
|
ТекСтрокаСоставЗаказа.Сумма; |
|
Движение |
= |
Движение.Стоимость |
= |
Движения.Продажи.Добавить(); |
|
ТекСтрокаСоставЗаказа.Цена*ТекСтрокаСоставЗака |
|
Движение.Период = Дата; |
|
за.Количество; |
|
Движение.Номенклатура |
= |
КонецЦикла; |
|
ТекСтрокаСоставЗаказа.Наименование; |
|
КонецПроцедуры |
|
Листинг В.4 – Документ Квитанция: Модуль объекта
Процедура |
|
|
Заказчик |
= |
ОбработкаЗаполнения(ДанныеЗаполнения, |
|
ДанныеЗаполнения.Заказчик; |
|
|
СтандартнаяОбработка) |
|
ДатаВыполненияПлан |
= |
|
Если |
ТипЗнч(ДанныеЗаполнения) |
= |
ДанныеЗаполнения.ПланДатаЗавершения; |
|
Тип("ДокументСсылка.ПроизводственнаяЗадача") |
|
ДатаВыполненияФакт |
= |
|
Тогда |
|
|
ДанныеЗаполнения.ФактДатаЗавершения; |
|
|
// Заполнение шапки |
|
Для Каждого ТекСтрокаЗаказ |
Из |
|
|
|
ДанныеЗаполнения.Заказ Цикл |
|
НоваяСтрока |
= |
НоваяСтрока.Сумма |
= |
Заказ.Добавить(); |
|
ТекСтрокаЗаказ.СуммаПлан; |
|
НоваяСтрока.Количество |
= |
НоваяСтрока.Цена |
= |
ТекСтрокаЗаказ.Количество; |
|
ТекСтрокаЗаказ.ЦенаПлан; |
|
НоваяСтрока.Номенклатура |
КонецЦикла; |
|
|
= ТекСтрокаЗаказ.Продукция; |
|
КонецЕсли; |
|
|
|
КонецПроцедуры |
|
Листинг В.5 – Отчет ОтчетПоОстаткамНаСкладе:
ВЫБРАТЬ |
ОстаткиМатериаловОстаткиИОбороты.Количе |
|
ОстаткиМатериаловОстаткиИОбороты.Матери |
ствоПриход, |
|
ал, |
ОстаткиМатериаловОстаткиИОбороты.Количе |
|
ОстаткиМатериаловОстаткиИОбороты.Количе |
ствоРасход |
|
ствоНачальныйОстаток, |
ИЗ |
|
ОстаткиМатериаловОстаткиИОбороты.Количе |
РегистрНакопления.ОстаткиМатериалов.Ост |
|
ствоКонечныйОстаток, |
аткиИОбороты |
КАК |
|
ОстаткиМатериаловОстаткиИОбороты |
|
Листинг В.6 – Отчет СписокЗаказов: ОсновнаяСхемаКомпоновкиДанных
ВЫБРАТЬ |
КарточкаЗаказа.Ссылка КАК Документ |
|
КарточкаЗаказа.Заказчик КАК Клиент, |
ИЗ |
|
КарточкаЗаказа.СоставЗаказа.( |
Документ.КарточкаЗаказа |
КАК |
Наименование КАК ЭлементЗаказа, |
КарточкаЗаказа |
|
Количество, |
|
|
Цена, |
УПОРЯДОЧИТЬ ПО |
|
Сумма |
Документ |
|
), |
|
|
33