87
ПРИЛОЖЕНИЕ 1. Исходные коды информационной системы.
1 // Исходный код модуля объекта «Оплата поставщику»
2
3 Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
4 Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаявкаПоставщику") Тогда
5 Поставщик = ДанныеЗаполнения.Поставщик;
6 СуммаОплаты = ДанныеЗаполнения.СписокТоваров.Итог("Сумма");
7 ПоЗаявке = ДанныеЗаполнения.Ссылка;
8 Дата = ДанныеЗаполнения.Дата+24*60*60;
9 КонецЕсли;
10 КонецПроцедуры
11
12 // Исходный код модуля объекта «Приходная накладная»
13
14 Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
15 Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЗаявкаПоставщику") Тогда
16 Поставщик = ДанныеЗаполнения.Поставщик;
17 Дата = ДанныеЗаполнения.Дата+24*60*60*2;
18 КоличествоТоваров = ДанныеЗаполнения.СписокТоваров.Итог("Количество");
19 СтоимостьТоваров = ДанныеЗаполнения.СписокТоваров.Итог("Сумма");
20
21 Для Каждого ТекСтрокаСписокТоваров Из ДанныеЗаполнения.СписокТоваров Цикл
22 НоваяСтрока = СписокТоваров.Добавить();
23 НоваяСтрока.Количество = ТекСтрокаСписокТоваров.Количество;
24 НоваяСтрока.Наименование = ТекСтрокаСписокТоваров.Наименование;
25 НоваяСтрока.Цена = ТекСтрокаСписокТоваров.Цена;
26 НоваяСтрока.Сумма = ТекСтрокаСписокТоваров.Сумма;
27 КонецЦикла;
28 КонецЕсли;
29 КонецПроцедуры
30
31 Процедура ОбработкаПроведения(Отказ, Режим)
32 Движения.ОстаткиИОборотыТоваров.Записывать = Истина;
33 Для Каждого ТекСтрокаСписокТоваров Из СписокТоваров Цикл
34 Движение = Движения.ОстаткиИОборотыТоваров.Добавить();
35 Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
36 Движение.Период = Дата;
37 Движение.Склад = Склад;
38 Движение.Наименование = ТекСтрокаСписокТоваров.Наименование;
39 Движение.Количество = ТекСтрокаСписокТоваров.Количество;
40 Движение.Стоимость = ТекСтрокаСписокТоваров.Сумма;
41 КонецЦикла;
42 КонецПроцедуры
43
44 // Исходный код модуля объекта «Расходная накладная»
45
46 Процедура ОбработкаПроведения______(Отказ, Режим)
47
48 КонтрольОстатков(Отказ);
49 Движения.ОстаткиИОборотыТоваров.Записывать = Истина;
50 Для Каждого ТекСтрокаСписокТоваров Из СписокТоваров Цикл
51 Движение = Движения.ОстаткиИОборотыТоваров.Добавить();
52 Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
53 Движение.Период = Дата;
54 Движение.Наименование = ТекСтрокаСписокТоваров.Наименование;