Описание процедур и функций программы

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

1) «Клиенты», содержит информацию о клиентах организации

2) «Продукция», содержит информацию о товарах

3) «Поставщики», содержит информацию о поставщиках

4) «Сотрудники», содержит информацию о сотрудниках организации

5) «Статьи затрат», содержит информацию о статьях затрат

6) «Виды дополнительных услуг», содержит информацию о дополнительных услугах, которые предоставляет организация

7) «Склады». Содержит информацию о складах организации.

Документы:

1) Документ «Приходная накладная». Формирует движения в регистребухгалтерии. Формируется информация: склад, поставщик, материал, количество, цена, стоимость, НДС, всего с НДС.

В модуле формы документа реализованы следующие процедуры:

&НаКлиенте

Процедура Поступление_товараТоварПриИзменении(Элемент)

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

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

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

&НаКлиенте

Процедура Поступление_товараКоличествоПриИзменении(Элемент)

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

СтрокаТабличнойЧасти.Стоимость_без_НДС = СтрокаТабличнойЧасти.Количество*СтрокаТабличнойЧасти.Цена;

ПолучитьСтавку();

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

&НаКлиенте

Процедура Поступление_товараЦенаПриИзменении(Элемент)

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

СтрокаТабличнойЧасти.Стоимость_без_НДС = СтрокаТабличнойЧасти.Количество*СтрокаТабличнойЧасти.Цена;

ПолучитьСтавку();

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

&НаКлиенте

Процедура Поступление_товараСтавка_НДСПриИзменении(Элемент)

ПолучитьСтавку();

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

Функция Без_НДС()

Возврат Перечисления.Ставка_НДС.Без_НДС

КонецФункции

Функция Десять_процентов()

Возврат Перечисления.Ставка_НДС.Десять_процентов

КонецФункции

Функция Тринадцать_процентов()

Возврат Перечисления.Ставка_НДС.Тринадцать_процентов

КонецФункции

Функция Восемнадцать_процентров()

Возврат Перечисления.Ставка_НДС.Восемнадцать_процентров

КонецФункции

&НаКлиенте

Процедура ПолучитьСтавку()

ТекущаяСтрока = Элементы.Поступление_товара.ТекущиеДанные;

Если ТекущаяСтрока.Ставка_НДС = Без_НДС() Тогда

ТекущаяСтрока.Сумма_НДС = 0;

ТекущаяСтрока.Всего_НДС =ТекущаяСтрока.Стоимость_без_НДС;

Конецесли;

Если ТекущаяСтрока.Ставка_НДС = Десять_процентов() Тогда

ТекущаяСтрока.Сумма_НДС = ТекущаяСтрока.Стоимость_без_НДС*10/100;

ТекущаяСтрока.Всего_НДС =ТекущаяСтрока.Стоимость_без_НДС+ТекущаяСтрока.Сумма_НДС;

Конецесли;

Если ТекущаяСтрока.Ставка_НДС = Восемнадцать_процентров() Тогда

ТекущаяСтрока.Сумма_НДС = ТекущаяСтрока.Стоимость_без_НДС*18/100;

ТекущаяСтрока.Всего_НДС =ТекущаяСтрока.Стоимость_без_НДС+ТекущаяСтрока.Сумма_НДС;

Конецесли;

Если ТекущаяСтрока.Ставка_НДС = Тринадцать_процентов() Тогда

ТекущаяСтрока.Сумма_НДС = ТекущаяСтрока.Стоимость_без_НДС*13/100;

ТекущаяСтрока.Всего_НДС=ТекущаяСтрока.Стоимость_без_НДС+ТекущаяСтрока.Сумма_НДС;

Конецесли;

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

Документ «Приходная накладная» формирует движения в регистре бухгалтерии:

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

//регистр Розничные_и_закупочные

Если ТипЦен = Перечисления.Вид_цена.Закупочная_цена тогда

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

Для Каждого ТекСтрокаПоступление_товара Из Поступление_товара Цикл

Движение = Движения.Розничные_и_закупочные.Добавить();

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

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

Движение.Вид_цены = ТипЦен;

Движение.Цена = ТекСтрокаПоступление_товара.Цена;

КонецЦикла;

Иначе Движения.Розничные_и_закупочные.Записывать = Ложь;

КонецЕсли;

//регистр ЖурналОпераций

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр ЖурналОпераций

Движения.ЖурналОпераций.Записывать = Истина;

Для Каждого ТекСтрокаПоступление_товара Из Поступление_товара Цикл

Движение = Движения.ЖурналОпераций.Добавить();

Движение.СчетДт = ПланыСчетов.Хозрасчетный.Товары;

Движение.СчетКт = ПланыСчетов.Хозрасчетный.Расчеты_с_поставщиками_и_подрядчиками;

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

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

Движение.Суммовый = ТекСтрокаПоступление_товара.Стоимость_без_НДС;

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Товары] = ТекСтрокаПоступление_товара.Товар;

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Склады] = Склад;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Поставщики] = Поставщик;

КонецЦикла;

// регистр ЖурналОпераций

Движения.ЖурналОпераций.Записывать = Истина;

Для Каждого ТекСтрокаПоступление_товара Из Поступление_товара Цикл

Движение = Движения.ЖурналОпераций.Добавить();

Движение.СчетДт = ПланыСчетов.Хозрасчетный.Налог_на_добавленну_стоимость_по_преобретенным_ценностям;

Движение.СчетКт = ПланыСчетов.Хозрасчетный.Расчеты_с_поставщиками_и_подрядчиками;

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

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

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Ставка] = ТекСтрокаПоступление_товара.Ставка_НДС;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Поставщики] = Поставщик;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

2) Документ «Дополнительные услуги». Формирует движения в регистре бухгалтерии.

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

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр ЖурналОпераций

Движения.ЖурналОпераций.Записывать = Истина;

Для Каждого ТекСтрокаУслуга Из Услуга Цикл

Движение = Движения.ЖурналОпераций.Добавить();

Движение.СчетДт = ПланыСчетов.Хозрасчетный.Расчеты_с_покупателями_и_подрядчиками;

Движение.СчетКт = ПланыСчетов.Хозрасчетный.Расчеты_с_разными_дебиторами_и_кредиторами;

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

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

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Покупатели] = Покупатель_контрагент;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Сотрудники] = Сотрудник_исполнитель;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.ДОП] = ТекСтрокаУслуга.Вид_услуги;

КонецЦикла;

// регистр ЖурналОпераций

Движения.ЖурналОпераций.Записывать = Истина;

Для Каждого ТекСтрокаУслуга Из Услуга Цикл

Движение = Движения.ЖурналОпераций.Добавить();

Движение.СчетДт = ПланыСчетов.Хозрасчетный.Продажи_Себестоимость_продаж;

Движение.СчетКт = ПланыСчетов.Хозрасчетный.Расходы_на_продажу;

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

Движение.Суммовый = ТекСтрокаУслуга.Себестоимость_распледеленная;

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.ДОП] = ТекСтрокаУслуга.Вид_услуги;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Покупатели] = Покупатель_контрагент;

Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.ДОП] = ТекСтрокаУслуга.Вид_услуги;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

Отчеты