Файл: Разработка конфигурации «Продажи» в среде 1С: Предприятие 8.3.pdf

Движения.ОстаткиНаСкладе.Записывать = Истина;

Для Каждого ТекСтрокаСоставНакладной Из СоставНакладной Цикл

Движение = Движения.ОстаткиНаСкладе.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Номенклатура = ТекСтрокаСоставНакладной.Номенклатура;

Движение.Количество = ТекСтрокаСоставНакладной.Количество;

КонецЦикла;

КонецПроцедуры

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Спецификация") Тогда

// Заполнение шапки

Спецификация = ДанныеЗаполнения.Ссылка;

Для Каждого ТекСтрокаСоставСпецификации Из ДанныеЗаполнения.СоставСпецификации Цикл

НоваяСтрока = СоставНакладной.Добавить();

НоваяСтрока.Количество = ТекСтрокаСоставСпецификации.Количество;

НоваяСтрока.Стоимость = ТекСтрокаСоставСпецификации.Количество*ТекСтрокаСоставСпецификации.Цена;

НоваяСтрока.Номенклатура = ТекСтрокаСоставСпецификации.Номенклатура;

НоваяСтрока.Цена = ТекСтрокаСоставСпецификации.Цена;

КонецЦикла;

КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура СоставНакладнойКоличествоПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.СоставНакладной.ТекущиеДанные;

РаботаСДокументами.РасчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

&НаКлиенте

Процедура СоставНакладнойЦенаПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.СоставНакладной.ТекущиеДанные;

РаботаСДокументами.РасчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)

// регистр ОстаткиНаСкладе Расход

Движения.ОстаткиНаСкладе.Записывать = Истина;

Для Каждого ТекСтрокаСоставНакладной Из СоставНакладной Цикл

Движение = Движения.ОстаткиНаСкладе.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Номенклатура = ТекСтрокаСоставНакладной.Номенклатура;

Движение.Количество = ТекСтрокаСоставНакладной.Количество;

КонецЦикла;

// регистр НаличиевТорговомЗале Приход

Движения.НаличиевТорговомЗале.Записывать = Истина;

Для Каждого ТекСтрокаСоставНакладной Из СоставНакладной Цикл

Движение = Движения.НаличиевТорговомЗале.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Номенклатура = ТекСтрокаСоставНакладной.Номенклатура;

Движение.Количество = ТекСтрокаСоставНакладной.Количество;

КонецЦикла;

КонецПроцедуры

&НаКлиенте

Процедура СоставНакладнойКоличествоПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.СоставНакладной.ТекущиеДанные;

ЕСЛИ РаботаСоСправочниками.ПроверитьНаличиеНаСкладе(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура)=0 ИЛИ СтрокаТабличнойЧасти.Количество > РаботаСоСправочниками.ПроверитьНаличиеНаСкладе(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура) ТОГДА

Сообщить("Недостаточно товара на складе");

СтрокаТабличнойЧасти.Количество = РаботаСоСправочниками.ПроверитьНаличиеНаСкладе(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура)

КОНЕЦЕСЛИ;

РаботаСДокументами.РасчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

&НаКлиенте

Процедура СоставНакладнойЦенаПриИзменении(Элемент)

СтрокаТабличнойЧасти = Элементы.СоставНакладной.ТекущиеДанные;

РаботаСДокументами.РасчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

&НаКлиенте

Процедура СоставНакладнойНоменклатураПриИзменении(Элемент)

СтрокаТабличнойЧасти = элементы.СоставНакладной.ТекущиеДанные;

ЕСЛИ РаботаСоСправочниками.ПроверитьНаличиеНаСкладе(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура)=0 ИЛИ СтрокаТабличнойЧасти.Количество > РаботаСоСправочниками.ПроверитьНаличиеНаСкладе(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура) ТОГДА

Сообщить("Недостаточно товара на складе");

СтрокаТабличнойЧасти.Количество = РаботаСоСправочниками.ПроверитьНаличиеНаСкладе(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура)

КОНЕЦЕСЛИ;

СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками.РозничнаяЦена(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура);

РаботаСДокументами.РасчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)

// регистр НаличиевТорговомЗале Расход

Движения.НаличиевТорговомЗале.Записывать = Истина;

Для Каждого ТекСтрокаСоставПокупки Из СоставПокупки Цикл

Движение = Движения.НаличиевТорговомЗале.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Номенклатура = ТекСтрокаСоставПокупки.Номенклатура;

Движение.Количество = ТекСтрокаСоставПокупки.Количество;

КонецЦикла;

КонецПроцедуры

Приложение 3. Руководтво пользователя

Приложение «Учет движения товара» предназначено для автоматизации учета товара на предприятии розничной торговли.

Запуск приложения сопровождается появление гласной формы (рис.3.1).

Рисунок 3.1 – Главная форма приложения

Приложение содержит четыре подсистемы:

- Администратор;

- Отдел закупок;

- Отдел продаж;

- Юридический отдел.

Для подсистемы Администратор доступны все возможные функции, остальные подсистемы служат для автоматизации работы соответствующих отделов.

Подсистема для работы юридического отдела (рис.3.2) включает функции регистрации поставщиков, номенклатуры, договоров и спецификаций.

Рисунок 3.2 – Подсистема Юридический отдел

При выборе одного из пунктов меню пользователь переходит на форму списка. Номенклатура является иерархическим справочником, поэтому список представлен в виде дерева (рис. 3.3).

Рисунок 3.3 – Форма Номенклатура

Для перехода к редактированию элемента списка достаточно щелкнуть мышкой по интересующей вас записи. Форма объекта Номенклатура (рис. 3.4) позволяет кроме информации о номенклатуре просматривать и редактировать информацию о ценах на нее.

Рисунок 3.4 – Форма объекта Номенклатура

Форма Спецификация (рис.3.5) имеет табличную часть, в которой фиксируется номенклатура, количество, цена и срок поставки.

Рисунок 3.5 – Форма объекта Спецификация

Форма Товарная накладная (рис. 3.6), Перемещение в торговый зал, Чек, Возврат на склад и Возврат поставщику также имеет соответствующую табличную часть.

Рисунок 3.6 – Форма объекта Спецификация

Расчет остатков происходит автоматически при проведении любого из этих документов.

Для формирования отчетов необходимо выбрать период (рис. 3.7)