Билет 13

Оперативный учет

В компании используется оборудование, имеющее ограничения к эксплуатации. Для каждого устройства устанавливается срок годности и срок использования. Срок годности считается с момента приобретения оборудования и указывается в документе поступления, а срок эксплуатации с момента его ввода в эксплуатацию и указывается непосредственно для оборудования и не меняется. Поступление оборудования отражается документом «Приходная накладная». Через некоторое время оборудование вводится в эксплуатацию документом «Ввод в эксплуатацию».

При передаче оборудования в эксплуатацию в первую очередь передастся оборудование, у которого минимальный срок годности. В документе «Ввод в эксплуатацию» указывается перечень и количество передаваемого оборудования. При проведении должна происходить проверка на наличие оборудования и его срок годности. В том случае, если срок годности истек или оборудования недостаточно, документ не проводится и выдается соответствующее сообщение.

Раз в месяц формируется регламентный документ «Выбытие оборудования», который при проведении проверяет эксплуатируемое оборудование и, если оно негодно, то списывает его. При проверке определяется, вышел ли срок эксплуатации устройства с момента его ввода в эксплуатацию. Если срок эксплуатации истек или истек срок годности, то оборудование должно быть списано. Кроме того, этот же документ должен списывать еще не введенное в эксплуатацию оборудование, но срок годности, которого уже истек.

Учет оборудования в разрезе складов не ведется. Себестоимость оборудования рассчитывается как средняя.

НЕ нашли? Не то? Что вы ищете?

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

Состояние оборудования в эксплуатации на 31.01.2010

Оборудование

Кол-во

Сумма

Оставшийся срок годн.

Оставшийся срок эксп.

Кинокамера

3

3 000

60

20

Портсигар

400

500

520


Справочник «Номенклатура», рекв. СрокЭксплуатации (число)

Документ «ПриходнаяНакладная»

ТЧ СписокНоменклатуры: Номенклатура, СрокГодности (число), Количество, Сумма

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

       

       День = 24*60*60;

       Движения. Оборудование. Очистить();

       Движения. Оборудование. Записать();

       Движения. ОстаткиНоменклатуры. Очистить();

       Движения. ОстаткиНоменклатуры. Записать();

       

       Движения. Оборудование. Записывать = Истина;

       Движения. ОстаткиНоменклатуры. Записывать = Истина;

       

       Для Каждого ТекСтрокаСписокНоменклатуры Из СписокНоменклатуры Цикл

               

               // регистр ОстаткиНоменклатуры Приход

               Движение = Движения. ОстаткиНоменклатуры. Добавить();

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

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

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

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

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

               

               // регистр Оборудование Приход

               Движение = Движения. Оборудование. Добавить();

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

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

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

               Движение. СрокГодности = Дата + ТекСтрокаСписокНоменклатуры. СрокГодности*День;

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

               

       КонецЦикла;

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

Документ «ВводВЭксплуатацию»

ТЧ СписокНоменклатуры: Номенклатура, Количество

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

       

       Движения. Оборудование. Очистить();

       Движения. Оборудование. Записать();

       

       Движения. Оборудование. Записывать = Истина;

       

       День = 24*60*60;

       

       Блокировка = Новый БлокировкаДанных;

       ЭлементБлокировки = Блокировка. Добавить("РегистрНакопления. Оборудование");

       ЭлементБлокировки. ИсточникДанных = СписокНоменклатуры;

       ЭлементБлокировки. ИспользоватьИзИсточникаДанных("Номенклатура", "Номенклатура");

       Блокировка. Заблокировать();

       

       Запрос = Новый Запрос;

       Запрос. Текст =

               "ВЫБРАТЬ

               |        ВводВЭксплуатациюСписокНоменклатуры. Номенклатура,

               |        СУММА(ВводВЭксплуатациюСписокНоменклатуры. Количество) КАК КоличествоДок

               |ПОМЕСТИТЬ ВТ_ТЧ

               |ИЗ

               |        Документ. ВводВЭксплуатацию. СписокНоменклатуры КАК ВводВЭксплуатациюСписокНоменклатуры

               |ГДЕ

               |        ВводВЭксплуатациюСписокНоменклатуры. Ссылка = &Ссылка

               |

               |СГРУППИРОВАТЬ ПО

               |        ВводВЭксплуатациюСписокНоменклатуры. Номенклатура

               |;

               |

               |////////////////////////////////////////////////////////////////////////////////

               |ВЫБРАТЬ

               |        ВТ_ТЧ. Номенклатура КАК Номенклатура,

               |        ВТ_ТЧ. КоличествоДок КАК КоличествоДок,

               |        ЕСТЬNULL(ОборудованиеОстатки. СрокГодности, ДАТАВРЕМЯ(1, 1, 1)) КАК СрокГодности,

               |        ЕСТЬNULL(ОборудованиеОстатки. КоличествоОстаток, 0) КАК КоличествоОстаток,

               |        ПРЕДСТАВЛЕНИЕ(ВТ_ТЧ. Номенклатура),

               |        ВТ_ТЧ. Номенклатура. СрокЭксплуатации КАК СрокЭксплуатации

               |ИЗ

               |        ВТ_ТЧ КАК ВТ_ТЧ

               |                ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления. Оборудование. Остатки(

               |                                &МоментВремени,

               |                                Номенклатура В

               |                                                (ВЫБРАТЬ

               |                                                        ВТ_ТЧ. Номенклатура

               |                                                ИЗ

               |                                                        ВТ_ТЧ КАК ВТ_ТЧ)

               |                                        И СрокГодности >= &Дата

Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9