Оперативный учет (стр. 1 )

Билет 7

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

       Компания занимается оптовой торговлей. Поступление товаров отражается документом «Приходная накладная», продажа – «Расходная накладная». Помимо продажи товара, могут оказываться дополнительные услуги, например по доставке. И услуги и товары указываются в одной табличной части.

Весь учет ведется одновременно в 2-х валютах: рубли и доллары. При проведении документов курс указывается непосредственно в самом документе. Возникновение курсовых разниц на себестоимость при продаже не предполагается.

       Складской учет товаров не ведется.

       Списание себестоимости товаров должно быть организовано по партиям, в зависимости метода списания (FIFO или LIFO), принятого в учетной политике. Значение учетной политики меняется не чаще одного раза в год. При проведении документа необходимо использовать метод, актуальный на момент проведения.

       Необходимо построить отчет по продажам товаров за период.

       Продажи с 01.01.2010 по 31.03.2010

Номенклатура	Кол-во	Себест-сть руб./дол.	Продажа руб./дол.	Прибыль руб./дол.
Куртка замшевая	3	9 000 300	20 000 620	11 000 320
Портсигар	3	1 000 30	1 800 50	800 20
Доставка	1	3 200 100	3 200 100

       Прибыль по каждой валюте рассчитывается как:

«Сумма продаж» - «Себестоимость»

**********************************************************************

Справочник «Номенклатура»

Рекв: ЭтоУслуга

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

Рекв: КурсДоллара

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

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

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

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

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

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

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

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

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

               Движение. Партия = Ссылка;

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

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

               Движение. СуммаВДолларах = Окр(?(КурсДоллара = 0, 0, ТекСтрокаСписокНоменклатуры. Сумма/КурсДоллара),2) ;

       КонецЦикла;

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

Документ: «Расходная накладная».

Рекв: КурсДоллара

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

       МС = РегистрыСведений. УчетнаяПолитика. ПолучитьПоследнее(Дата);

       Если Не ЗначениеЗаполнено(МС. МетодСписания) Тогда

               Сообщение = Новый СообщениеПользователю;

               Сообщение. Текст = "Не задана учетная политика";

               Сообщение. Сообщить();

               

               Отказ = Истина;

               Возврат;

       КонецЕсли;

       

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

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

       ЭБ. Режим = РежимБлокировкиДанных. Исключительный;

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

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

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

       

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

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

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

       

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

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

       "ВЫБРАТЬ

       |        РасходнаяНакладнаяСписокНоменклатуры. Номенклатура,

       |        СУММА(РасходнаяНакладнаяСписокНоменклатуры. Количество) КАК Количество,

       |        СУММА(РасходнаяНакладнаяСписокНоменклатуры. Сумма) КАК Сумма,

       |        СУММА(ВЫБОР

       |                        КОГДА РасходнаяНакладнаяСписокНоменклатуры. Ссылка. КурсДоллара = 0

       |                                ТОГДА 0

       |                        ИНАЧЕ РасходнаяНакладнаяСписокНоменклатуры. Сумма / РасходнаяНакладнаяСписокНоменклатуры. Ссылка. КурсДоллара

       |                КОНЕЦ) КАК СуммаВДолларах

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

       |ИЗ

       |        Документ. РасходнаяНакладная. СписокНоменклатуры КАК РасходнаяНакладнаяСписокНоменклатуры

       |ГДЕ

       |        РасходнаяНакладнаяСписокНоменклатуры. Ссылка = &Ссылка

       |        И НЕ РасходнаяНакладнаяСписокНоменклатуры. Номенклатура. ЭтоУслуга

       |

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

       |        РасходнаяНакладнаяСписокНоменклатуры. Номенклатура

       |;

       |

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

       |ВЫБРАТЬ

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

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

       |        ВТ_ТЧ. Сумма КАК Сумма,

       |        ВТ_ТЧ. СуммаВДолларах КАК СуммаВДолларах,

       |        ОстаткиНоменклатурыОстатки. КоличествоОстаток КАК КоличествоОстаток,

       |        ОстаткиНоменклатурыОстатки. СуммаОстаток КАК СуммаОстаток,

       |        ОстаткиНоменклатурыОстатки. СуммаВДолларахОстаток,

       |        ОстаткиНоменклатурыОстатки. Партия

       |ИЗ

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

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

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

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

       |                                        (ВЫБРАТЬ

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

       |                                        ИЗ

       |                                                ВТ_ТЧ КАК ВТ_ТЧ)) КАК ОстаткиНоменклатурыОстатки

       |                ПО ВТ_ТЧ. Номенклатура = ОстаткиНоменклатурыОстатки. Номенклатура

       |

       |УПОРЯДОЧИТЬ ПО

       |        ОстаткиНоменклатурыОстатки. Партия. МоментВремени УБЫВ

       |ИТОГИ

       |        МАКСИМУМ(Количество),

       |        МАКСИМУМ(Сумма),

       |        МАКСИМУМ(СуммаВДолларах),

       |        СУММА(КоличествоОстаток),

       |        СУММА(СуммаОстаток)

       |ПО

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