9. Лабораторная работа №8

9.1. Создание перечисления "МетодСписания"

В постановке задачи даны три метода списания товара:

1. FIFO (First Input First Output) - это такая система, при которой ранее пришедшие партии товара списываются первыми. Цена списания — цена партии товара, из которой списывают товар;

2. LIFO (Last Input First Output) - это такая система, при которой последняя пришедшая партия товара списывается в первую очередь. Цена списания - цена партии товара, из которой списывают товар;

3. по-среднсму — здесь вообще партии не нужны. Цена списания — средняя цена остатка партий товара на складе. Таким образом, при начале работы с конфигурацией необходимо указать, какая система списания в дальнейшем используется. Перечень возможных систем учета будут содержаться в перечислении.

1. Создать новый вид перечисления - "МетодСписания".

2. Добавить значения ФИФО, ЛИФО, По_Среднему. В представлении можно и латинскими буквами, а в идентификаторах — русскими, чтобы при наборе кода лишний раз язык не переключать. Для хранения выбранного нами типа списания заведем константу.

3. Создать константу "МетодСписания" тип П.МетодСписания. При начале работы с программой учета надо обязательно выставлять способ списания. И в последующем не менять его. Пусть программа при начале работы проверит, выбран ли способ списания, если не выбран, то предложить выбрать, а если выбран, ничего не делать. Запрещать редактирование мы не будем.

4. Войти в окно с деревом метаданных.

5. Меню "Действия", команда "Глобальный модуль".

6. Появилось окно глобального модуля.

7. Написать процедуру:

Процедура ПриНачалеРаботыСистемы()

// предопределенная процедура, запускается при начале работы // в

1С: Предприятии Перем Значение; // Объявляем переменную

Если Константа.МетодСписания.Выбран()=0 Тогда // если константа

не заполнена

Рез=ВвестиЗначение(Значение," Выберите способ спи

са¬ния","Перечисление.МетодСписания");

// просим выбрать способ списания. РезН, если выбор произведен, //

0 - если нет

Если Рез"=1 Тогда

Константа.МетодСписания=Значение;

/7 установим константе выбранное значение

Иначе

СтатусВозврата(О);

// Мы просили выбрать значение, а Вы этого не сделали.

// С 1С работать не будете!

// СтатусВозврата определяет, как должно завершиться событие

вы¬звавшее

// предопределенную процедуру. В данном случае открытие системы

должно

// завершиться неудачей. Т.е. 1С:Предприятие закроется.

КонецЕсли;

КонецЕсли;

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

8. Загрузить 1С:Предприятие и попробовать сперва отказаться от выбора, а потом выбрать FIFO.

9. Создать две приходные накладные на Склад №3 с одинаковым товаром и количеством, но с разной ценой прихода.

10. Провести накладные.

11. Все остальные накладные надо распровести. Они будут только мешать и излишне усложнять картину. Для этого - открыть журнал "Накладные".

12. Установить курсор на ненужную нам накладную.

13. Меню "Действия" команда "Сделать документ не проведенным".

14. Подтвердить отмену проведения документа.

15. Галочка с пиктограммы документа исчезла - документ не проведен.

16. Проверить по отчету остатки на складе №3.