2.21 Fifo/lifo/По-среднему.

Любителей футбола просим не беспокоится. Речь у нас пойдет не о FIFA, а о способах списания товара при разных системах учета. Бухгалтерам объяснять, что это такое, не нужно. Для остальных кратенько поясним. FIFO (First Input First Output) – это такая система, при которой ранее пришедшие партии товара списываются первыми. Цена списания – цена партии товара, из которой списывают товар. LIFO (Last Input First Output) – а это такая система, при которой последняя пришедшая партия товара списывается в первую очередь. Цена списания – цена партии товара, из которой списывают товар. По-среднему – здесь вообще партии не нужны. Цена списания – средняя цена остатка партий товара на складе. Мы должны при начале работы указать, какой системой списания мы будем в дальнейшем пользоваться. Перечень возможных систем учета мы будем держать в перечислении.

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

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

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

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

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

6. Появилось окно глобального модуля. Подробнее в "Описание встроенного языка" т. 1;

7. Пишем процедуру: Процедура ПриНачалеРаботыСистемы() // предопределенная процедура, запускается при начале работы // в 1С:Предприятии   Перем Значение; // Объявляем переменную   Если Константа.МетодСписания.Выбран()=0 Тогда // если константа не заполнена     Рез=ВвестиЗначение(Значение,"Выберите способ списания","Перечисление.МетодСписания"); // просим выбрать способ списания. Рез=1, если выбор произведен, // 0 – если нет     Если Рез=1 Тогда       Константа.МетодСписания=Значение; // установим константе выбранное значение     Иначе       СтатусВозврата(0); // Мы просили выбрать значение, а Вы этого не сделали. // С 1С работать не будете! // СтатусВозврата определяет, как должно завершиться событие вызвавшее // предопределенную процедуру. В данном случае открытие системы должно // завершиться неудачей. Т.е. 1С:Предприятие закроется.     КонецЕсли;   КонецЕсли; КонецПроцедуры

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

9. Создадим две приходные накладные на Склад №3 с одинаковым товаром и сортом и количеством, но с разной ценой прихода. Пусть это будет кефир первого сорта по 20 штук в накладной №6 по цене 6.00 а в накладной №7 по 7.00, яблоки первого сорта по 50 штук в накладной №6 по цене 17.00 а в накладной №7 по 19.00 и яблоки второго сорта по 50 штук в накладной №6 по цене 16.00 а в накладной №7 по 16.40. Накладная №6 должна быть от 06.10.2000, а №7 от 07.10.2000;

10. Проведем накладные;

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

12. Откроем журнал "Накладные";

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

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

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

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

17. Проверим по отчету остатки на складе №3;