Заключение. 
Автоматизация учета продаж программных продуктов, поставляемых франчайзинговой фирмой 1С

В данной дипломной работе была разработана Конфигурация на платформе «1С: Предприятие 8.2.», которая автоматизирует процесс учета продаж программных продуктов поставляемых франчайзинговой фирмой «1С».

Реализация задачи полностью соответствует постановке задачи (раздел1).

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

Была произведена экономическая оценка эффективности от внедрения программного продукта. Срок окупаемости менее чем 5 месяцев.

Литература

• 1С: Предприятие. Практическое пособие разработчика. Примеры и типовые приемы. М. Г. Радченко, Е. Ю. Хрусталева — М.: ООО «1С-Паблишинг», 2014 г.
• 1С: Предприятие. Руководство разработчика. Часть1, Часть2. — М.: ООО «1С-Паблишинг», 2009 г.

Нуралиев С. В., Федоров Б. Н., Филиппов В. С., «1С:Предприятие версия. конфигурирование и администрирование» — М.: ООО «1С-Паблишинг», 2011 г.

Общий модуль. Работа с документами

Общий модуль. Работа с документами:

Процедура РассчитатьСумму (СтрокаТабличнойЧасти) Экспорт СтрокаТабличнойЧасти. Сумма = СтрокаТабличнойЧасти. Количество * СтрокаТабличнойЧасти. Цена;

КонецПроцедуры Общий модуль. Работа со справочниками:

Функция РозничнаяЦена (АктуальнаяДата, ЭлементНоменклатуры) Экспорт.

//Создать вспомокательный обьект Отбор.

Отбор = Новый Структура («Номенклатура», ЭлементНоменклатуры);

//Получить актуальные значения ресурсов регистра.

ЗначенияРесурсов = РегистрыСведений.РозничныеЦены.ПолучитьПоследнее (АктуальнаяДата, Отбор);

Возврат ЗначенияРесурсов. Цена;

КонецФункции Функция ЗакупочнаяЦена (АктуальнаяДата, ЭлементНоменклатуры) Экспорт.

// Создадим спомогательный объект Отбор.

Отбор = Новый Структура («Номенклатура», ЭлементНоменклатуры);

// Получить актуальные значения объектов ресурса ЗначенияРесурсов = РегистрыСведений.ЗакупочныеЦены.ПолучитьПоследнее (АктуальнаяДата, Отбор);

Возврат ЗначенияРесурсов. Цена;

КонецФункции Документ «Поступление товара».

Модуль формы:

&НаКлиенте Процедура ТоварыКоличествоПриИзменении (Элемент) СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму (СтрокаТабличнойЧасти);

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

&НаКлиенте Процедура ТоварыЦенаЗаЕдиницуПриИзменении (Элемент).

СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму (СтрокаТабличнойЧасти);

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

&НаКлиенте Процедура ТоварыТоварПриИзменении (Элемент).

//Получить текущую строку табличной части СтрокаТабличнойЧасти = Элементы.Товары.ТекущиеДанные;

// Установить цену СтрокаТабличнойЧасти. Цена = РаботаСоСправочниками. ЗакупочнаяЦена (Объект.Дата, СтрокаТабличнойЧасти. Товар);

//Пересчитать сумму строки РаботаСДокументами. РассчитатьСумму (СтрокаТабличнойЧасти);

КонецПроцедуры Модуль Объекта:

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

Движения.СтоимостьТоваров.Записывать = Истина;

Движения.Закупки.Записывать = Истина;

Для Каждого ТекСтрокаТовары Из Товары Цикл.

// регистр ОстаткиТоваров Приход Движение = Движения.ОстаткиТоваров.Добавить ();

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

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

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

Движение.Склад = Склад;

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

// регистр СтоимостьТоваров Расход Движение = Движения.СтоимостьТоваров.Добавить ();

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

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

Движение.Контрагент = Поставщик;

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

// регистр Закупки.

Движение = Движения.Закупки.Добавить ();

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

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

Движение.Поставщик = Поставщик;

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

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

КонецЦикла;

КонецПроцедуры Менеджер объекта:

Процедура Печать (ТабДок, Ссылка) Экспорт Макет = Документы.ПоступлениеТоваров.ПолучитьМакет («Печать»);

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

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

" ВЫБРАТЬ.

|ПоступлениеТоваров.Дата,.

|ПоступлениеТоваров.МатериальноОтветственноеЛицо,.

|ПоступлениеТоваров.Номер,.

|ПоступлениеТоваров.Поставщик,.

|ПоступлениеТоваров.Склад,.

|ПоступлениеТоваров.Товары.(.

|НомерСтроки,.

|Товар,.

|Количество,.

|Цена,.

|Сумма.

|).

|ИЗ.

|Документ.ПоступлениеТоваров КАК ПоступлениеТоваров.

|ГДЕ.

|ПоступлениеТоваров.Ссылка В (&Ссылка)" ;

Запрос.Параметры.Вставить («Ссылка», Ссылка);

Выборка = Запрос. Выполнить ().Выбрать ();

ОбластьЗаголовок = Макет. ПолучитьОбласть («Заголовок»);

Шапка = Макет. ПолучитьОбласть («Шапка»);

ОбластьТоварыШапка = Макет. ПолучитьОбласть («ТоварыШапка»);

ОбластьТовары = Макет. ПолучитьОбласть («Товары»);

ОбластьИтог = Макет. ПолучитьОбласть («Всего»);

ТабДок.Очистить ();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка. Следующий () Цикл Если ВставлятьРазделительСтраниц Тогда ТабДок. ВывестиГоризонтальныйРазделительСтраниц ();

КонецЕсли;

ТабДок.Вывести (ОбластьЗаголовок);

Шапка.Параметры.Заполнить (Выборка);

ТабДок.Вывести (Шапка, Выборка. Уровень ());

ТабДок.Вывести (ОбластьТоварыШапка);

ВыборкаТовары = Выборка.Товары.Выбрать ();

СуммаИтог = 0;

Пока ВыборкаТовары. Следующий () Цикл ОбластьТовары.Параметры.Заполнить (ВыборкаТовары);

ТабДок.Вывести (ОбластьТовары, ВыборкаТовары. Уровень ());

СуммаИтог = СуммаИтог + ВыборкаТовары. Сумма;

КонецЦикла;

ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;

ТабДок.Вывести (ОбластьИтог);

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

КонецПроцедуры Документ «Реализация товара».

Модуль формы:

&НаКлиенте Процедура ПереченьНоменклатурыКоличествоПриИзменении (Элемент).

СтрокаТабличнойЧасти = Элементы.ПереченьНоменклатуры.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму (СтрокаТабличнойЧасти);

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

&НаКлиенте Процедура ПереченьНоменклатурыЦенаПриИзменении (Элемент).

СтрокаТабличнойЧасти = Элементы.ПереченьНоменклатуры.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму (СтрокаТабличнойЧасти);

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

&НаКлиенте Процедура ПереченьНоменклатурыНоменклатураПриИзменении (Элемент).

//Получить текущую строку табличтой части.

СтрокаТабличнойЧасти = Элементы.ПереченьНоменклатуры.ТекущиеДанные;

//Установить цену.

СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками. РозничнаяЦена (Объект.Дата, СтрокаТабличнойЧасти. Номенклатура);

КонецПроцедуры Модуль объекта:

Процедура ОбработкаПроведения (Отказ, Режим) Запрос = Новый Запрос;

Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;

Запрос.Текст = «ВЫБРАТЬ.

|РеализацияТовараПереченьНоменклатуры.Номенклатура,.

|СУММА (РеализацияТовараПереченьНоменклатуры.Количество) КАК Количество.

|ПОМЕСТИТЬ ДокТЧ.

|ИЗ.

|Документ.РеализацияТовара.ПереченьНоменклатуры КАК РеализацияТовараПереченьНоменклатуры.

|ГДЕ.

|РеализацияТовараПереченьНоменклатуры.Ссылка = &Ссылка.

|.

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

|РеализацияТовараПереченьНоменклатуры.Номенклатура.

|;

|.

|////////////////////////////////////////////////////////////////////////////////.

|ВЫБРАТЬ.

|ДокТЧ.Номенклатура,.

|ДокТЧ.Количество.

|ИЗ.

|ДокТЧ КАК ДокТЧ" ;

Запрос.УстановитьПараметр («Ссылка», Ссылка);

РезультатЗапроса = Запрос. Выполнить ();

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

Выборка = РезультатЗапроса. Выбрать ();

Пока Выборка. Следующий () Цикл Движение = Движения.ОстаткиТоваров.Добавить ();

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

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

Движение.Номенклатура = Выборка. Номенклатура;

Движение.Склад = Склад;

Движение.Количество = Выборка. Количество;

КонецЦикла;

Движения.Записать ();

Запрос.Текст = «ВЫБРАТЬ.

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

|КоличествоОстаток КАК Остаток.

|ИЗ.

|РегистрНакопления.ОстаткиТоваров.Остатки (.

|,.

|Склад = &Склад.

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

|(ВЫБРАТЬ.

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

|ИЗ.

|ДокТЧ КАК ДокТЧ)).

|ГДЕ.

|КоличествоОстаток < 0″ ;

Запрос.УстановитьПараметр («Склад», Склад);

РезультатЗапроса = Запрос. Выполнить ();

Выборка = РезультатЗапроса. Выбрать ();

Пока Выборка. Следующий () Цикл Сообщение = Новый СообщениеПользователю;

Сообщение.Текст = «Не хватает товара «+ Выборка. Номенклатура + «, после проведения документа остаток составит «+ Выборка. Остаток;

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

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

КонецЦикла;

Движения.СтоимостьТоваров.Записывать = Истина;

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

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

// регистр СтоимостьТоваров Приход Движение = Движения.СтоимостьТоваров.Добавить ();

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

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

Движение.Контрагент = Покупатель;

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

// регистр Продажи.

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

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

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

Движение.Покупатель = Покупатель;

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

Движение.Выручка = ТекСтрокаПереченьНоменклатуры. Сумма;

КонецЦикла;

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

Модуль менеджера:

Процедура Печать (ТабДок, Ссылка) Экспорт Макет = Документы.РеализацияТовара.ПолучитьМакет («Печать»);

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

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

" ВЫБРАТЬ.

|РеализацияТовара.Дата,.

|РеализацияТовара.МатериальноОтветствннноеЛицо,.

|РеализацияТовара.Номер,.

|РеализацияТовара.Покупатель,.

|РеализацияТовара.Склад,.

|РеализацияТовара.ПереченьНоменклатуры.(.

|НомерСтроки,.

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

|Количество,.

|Цена,.

|Сумма.

|).

|ИЗ.

|Документ.РеализацияТовара КАК РеализацияТовара.

|ГДЕ.

|РеализацияТовара.Ссылка В (&Ссылка)" ;

Запрос.Параметры.Вставить («Ссылка», Ссылка);

Выборка = Запрос. Выполнить ().Выбрать ();

ОбластьЗаголовок = Макет. ПолучитьОбласть («Заголовок»);

Шапка = Макет. ПолучитьОбласть («Шапка»);

ОбластьПереченьНоменклатурыШапка = Макет. ПолучитьОбласть («ПереченьНоменклатурыШапка»);

ОбластьПереченьНоменклатуры = Макет. ПолучитьОбласть («ПереченьНоменклатуры»);

ОбластьИтог = Макет. ПолучитьОбласть («Всего»);

ТабДок.Очистить ();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка. Следующий () Цикл Если ВставлятьРазделительСтраниц Тогда ТабДок. ВывестиГоризонтальныйРазделительСтраниц ();

КонецЕсли;

ТабДок.Вывести (ОбластьЗаголовок);

Шапка.Параметры.Заполнить (Выборка);

ТабДок.Вывести (Шапка, Выборка. Уровень ());

ТабДок.Вывести (ОбластьПереченьНоменклатурыШапка);

ВыборкаПереченьНоменклатуры = Выборка.ПереченьНоменклатуры.Выбрать ();

СуммаИтог = 0;

Пока ВыборкаПереченьНоменклатуры. Следующий () Цикл ОбластьПереченьНоменклатуры.Параметры.Заполнить (ВыборкаПереченьНоменклатуры);

ТабДок.Вывести (ОбластьПереченьНоменклатуры, ВыборкаПереченьНоменклатуры. Уровень ());

СуммаИтог = СуммаИтог + ВыборкаПереченьНоменклатуры. Сумма КонецЦикла;

ОбластьИтог.Параметры.ВсегоПоДокументу = СуммаИтог;

ТабДок.Вывести (ОбластьИтог);

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

КонецПроцедуры Отчет «Реестр документа реализация товара»:

ВЫБРАТЬ РеализацияТовара. Склад, РеализацияТовара.ПереченьНоменклатуры.(.

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

),.

РеализацияТовара.Покупатель, РеализацияТовара. Ссылка КАК Документ ИЗ Документ. РеализацияТовара КАК РеализацияТовара УПОРЯДОЧИТЬ ПО Документ Отчет «Реестр документа поступление товара»:

ВЫБРАТЬ ПоступлениеТоваров. Склад, ПоступлениеТоваров. Поставщик, ПоступлениеТоваров.Товары.(.

Товар, Количество.

),.

ПоступлениеТоваров.Ссылка КАК Документ ИЗ Документ. ПоступлениеТоваров КАК ПоступлениеТоваров УПОРЯДОЧИТЬ ПО Документ Отчет «Товары на складе»:

ВЫБРАТЬ ОстаткиТоваровОстаткиИОбороты. Склад, ОстаткиТоваровОстаткиИОбороты. Номенклатура, ОстаткиТоваровОстаткиИОбороты. КоличествоНачальныйОстаток, ОстаткиТоваровОстаткиИОбороты. КоличествоПриход, ОстаткиТоваровОстаткиИОбороты. КоличествоРасход, ОстаткиТоваровОстаткиИОбороты. КоличествоКонечныйОстаток ИЗ РегистрНакопления.ОстаткиТоваров.ОстаткиИОбороты КАК ОстаткиТоваровОстаткиИОбороты Отчет «Продажи»:

ВЫБРАТЬ ПродажиОбороты. Номенклатура, ПродажиОбороты. Покупатель, ПродажиОбороты. КоличествоОборот, ПродажиОбороты. ВыручкаОборот ИЗ РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты Отчет «Рейтинг продаж»:

ВЫБРАТЬ СпрНоменклатура. Ссылка КАК Товар, ПродажиОбороты. ВыручкаОборот КАК Выручка ИЗ РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты ПОЛНОЕ СОЕДИНЕНИЕ Справочник. Номенклатура КАК СпрНоменклатура ПО ПродажиОбороты. Номенклатура = СпрНоменклатура. Ссылка УПОРЯДОЧИТЬ ПО Выручка УБЫВ Отчет «Прайс-лист»:

ВЫБРАТЬ РозничныеЦеныСрезПоследних.Номенклатура.ПолноеНаименование КАК Товар, РозничныеЦеныСрезПоследних. Цена ИЗ.