Лабораторная работа №22

ТЕМА ПРОГРАММЫ: Создание баз учетных данных

ТЕМА УРОКА: Создание конфигурационного модуля для магазина с доставкой на дом.

ЗАДАНИЕ: Требуется создать простую учетную систему для магазина с доставкой на дом. Система должна учитывать остатки товаров, оформлять заказы от клиентов и формировать путевые листы для курьеров. В конфигурации необходимо будет создать следующие объекты:

Тип объектов	Объекты
Справочники	Клиенты Товары Курьеры Районы
Документы	ПриходТовара Заказ СнятиеЗаказа ПутевойЛист ОтчетКурьера
Регистры

Порядок выполнения:

1. Создайте пустую папку и запустите программу 1с: Предприятие, указав путь к папке.

2. Создайте следующие справочники:

• Клиенты (При регистрации клиента должно указываться его название (в этом поле будет вводится ФИО), адрес, телефон и район, в котором он находится).

• Товары (справочник является иерархическим и содержит 3 уровня, т.е. товары могут быть объединены в группы. Для товара указывается один реквизит - цена, по которой он продается клиентам).

• Курьеры (в нем перечислены фамилии курьеров, осуществляющих доставку товаров покупателю. Реквизиты в него не добавляйте – по умолчанию будет 2 реквизита: код и наименование).

• Районы (Реквизиты в него не добавляйте – по умолчанию будет 2 реквизита: код и наименование).

3. Создайте регистры, представленные в таблице.

4. Создайте необходимые документы.

1. Приход товара

Создайте документ Приход товара. Экранная форма документа должна выглядеть следующим образом:

При нажатии на кнопку «Подбор» должен открываться справочник Товары. Перейдите на модуль формы списка документа и запишите код процедуры Подбор, приведенный ниже:

Процедура Подбор()

Конт = 0;

ОткрытьПодбор("Справочник.Товары",,Конт,1);

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

Процедура ОбработкаПодбора(Элемент,Конт)

УжеЕсть = 0;

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Если Товар = Элемент Тогда

Количество = Количество + 1;

УжеЕсть = 1;

Прервать;

КонецЕсли;

КонецЦикла;

Если УжеЕсть=0 Тогда

НоваяСтрока();

Товар = Элемент;

Количество = 1;

КонецЕсли;

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

При проведении документа производятся движения в регистре Остатки. Запишите приведенный ниже код в модуль документа.

Процедура ОбработкаПроведения()

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Регистр.Остатки.Товар = Товар;

Регистр.Остатки.Количество = Количество;

Регистр.Остатки.ДвижениеПриходВыполнить();

КонецЦикла;

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

2. Заказ

Создайте документ Заказ. Экранная форма документа должна выглядеть следующим образом:

При нажатии на кнопку «Подбор» должен открываться справочник Товары. Перейдите на модуль формы списка документа и запишите код процедуры Подбор, такой же, как и в документе «Приход товара».

При проведении документа производятся движения в регистре Заказы. Поэтому для обработки проведения в модуль документа запишите следующий код:

Процедура ОбработкаПроведения()

ВыбратьСтроки();

Пока ПолучитьСтроку()=1 Цикл

Регистр.Заказы.Товар = Товар;

Регистр.Заказы.Клиент = Клиент;

Регистр.Заказы.ДатаДоставки = ДатаДоставки;

Регистр.Заказы.Заказ = ТекущийДокумент();

Регистр.Заказы.Цена = Цена;

Регистр.Заказы.Количество = Количество;

Регистр.Заказы.Сумма = Сумма;

Регистр.Заказы.ДвижениеПриходВыполнить();

КонецЦикла;

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