Дипломная работа: Автоматизация учета продаж в магазине компьютерной техники «COMPIX»

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
Если ТипЗнч(ДанныеЗаполнения) =
Тип("ДокументСсылка.ПродажаТовара") Тогда
// Заполнение шапки
НомерПродажи = ДанныеЗаполнения.Ссылка;
Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары
Цикл
НоваяСтрока = Товары.Добавить();
НоваяСтрока.Товар = ТекСтрокаТовары.Товар;
НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
НоваяСтрока.НаборСвойств =
ТекСтрокаТовары.НаборСвойств;
НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
НоваяСтрока.Сумма = ТекСтрокаТовары.Сумма;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ОстаткиТовара Приход
Движения.ОстаткиТовара.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.ОстаткиТовара.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Склад = Склад;
Движение.Товар = ТекСтрокаТовары.Товар;
Движение.НаборСвойств = ТекСтрокаТовары.НаборСвойств;
Движение.Количество = ТекСтрокаТовары.Количество;
КонецЦикла;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
СуммаДокумента = 0;
Для Каждого СтрокаТЧ ИЗ Товары Цикл
СуммаДокумента = СуммаДокумента + СтрокаТЧ.Сумма;
КонецЦикла;
КонецПроцедуры
Документ «Поступление товара»
Код формы документа «Поступление товара»
&НаКлиенте
Процедура ТоварыКоличествоПриИзменении(Элемент)
ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
ТекущиеДанные.Сумма = ТекущиеДанные.Количество *
ТекущиеДанные.Цена;
КонецПроцедуры
&НаКлиенте
Процедура ТоварыЦенаПриИзменении(Элемент)
ТекущиеДанные = Элементы.Товары.ТекущиеДанные;
ТекущиеДанные.Сумма = ТекущиеДанные.Количество *
ТекущиеДанные.Цена;
КонецПроцедуры
Элементы.СуммаДокумента.Видимость = Ложь;
Элементы.Номер.Видимость = Ложь;
Элементы.Дата.Видимость = Ложь;
Код модуля документа «Поступление товара»
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ОстаткиТовара Приход
Движения.ОстаткиТовара.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.ОстаткиТовара.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Склад = Склад;
Движение.Товар = ТекСтрокаТовары.Товар;
Движение.НаборСвойств = ТекСтрокаТовары.НаборСвойств;
Движение.Количество = ТекСтрокаТовары.Количество;
КонецЦикла;
// регистр СтоимостьТовара Приход
Движения.СтоимостьТовара.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.СтоимостьТовара.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Товар = ТекСтрокаТовары.Товар;
Движение.НаборСвойств = ТекСтрокаТовары.НаборСвойств;
Движение.Стоимость = ТекСтрокаТовары.Цена;
КонецЦикла;
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
СуммаДокумента = 0;
Для Каждого СтрокаТЧ ИЗ Товары Цикл
СуммаДокумента = СуммаДокумента + СтрокаТЧ.Сумма;
КонецЦикла;
КонецПроцедуры
Документ «Перемещение товара»
Код формы документа «Перемещение товара»
Элементы.Номер.Видимость = Ложь;
Элементы.Дата.Видимость = Ложь;
Код модуля объекта «Перемещение товара»
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ОстаткиТовара Расход
Движения.ОстаткиТовара.Записывать = Истина;
Для Каждого ТекСтрокаСписокТоваров Из СписокТоваров Цикл
Движение = Движения.ОстаткиТовара.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Склад = ПеремещениеСоСклада;
Движение.Товар = ТекСтрокаСписокТоваров.Товар;
Движение.НаборСвойств =
ТекСтрокаСписокТоваров.НаборСвойств;
Движение.Количество = ТекСтрокаСписокТоваров.Количество;
КонецЦикла;
// регистр ОстаткиТовара Приход
Движения.ОстаткиТовара.Записывать = Истина;
Для Каждого ТекСтрокаСписокТоваров Из СписокТоваров Цикл
Движение = Движения.ОстаткиТовара.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Склад = ПеремещениеНаСклад;
Движение.Товар = ТекСтрокаСписокТоваров.Товар;
Движение.НаборСвойств =
ТекСтрокаСписокТоваров.НаборСвойств;
Движение.Количество = ТекСтрокаСписокТоваров.Количество;
Источник: https://baza.diplomsite.ru/previewfile/259

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

ЦЕНОВАЯ ПОЛИТИКА ПРЕДПРИЯТИЯ НА ПРИМЕРЕ ООО «ДНС РИТЕЙЛ»
_archivetempпротивовоспалительные
_Роджерс Карл, Брак и его альтернативы
- Обратный порядок следования фаз 4
- Сопротивление изоляции 25
!_Лабораторные_работы_1_сем_ОУТС
!Контрольная работа (задание)