Файл: Разработка и реализация конфигурации «Интернет-магазин обуви» в среде 1С:Предприятие.pdf

СтрокаТабличнойЧасти.СуммаНДС = (СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧасти.СтавкаНДС)/100;

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

Расчет «Суммы» и «СуммыСНДС»

Процедура РассчитатьСумму (СтрокаТабличнойЧасти) Экспорт

СтрокаТабличнойЧасти.Сумма = (СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена);

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

Общий модуль выбора цен

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

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

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

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

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

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

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

Код конструктора движения регистров документа «ПоступлениеТоваров»

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

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

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

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

// регистр ЗапасыТоваров Приход

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

Для Каждого ТекСтрокаПереченьТоваров Из ПереченьТоваров Цикл

Движение = Движения.ЗапасыТоваров.Добавить();

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

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

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

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

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

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

КонецЦикла;

// регистр ПоступлениеТоваров

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

Для Каждого ТекСтрокаПереченьТоваров Из ПереченьТоваров Цикл

Движение = Движения.ПоступлениеТоваров.Добавить();

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

Движение.Дата = Дата;

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

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

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

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

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

Для Каждого ТекСтрокаПереченьТоваров Из ПереченьТоваров Цикл

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.Товары;

Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.РасчетыСПоставщиками;

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

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

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

Движение.СодержаниеОперации = "Стоимость товаров без НДС";

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

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

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

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

Для Каждого ТекСтрокаПереченьТоваров Из ПереченьТоваров Цикл

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.НДСПоПриобретениям;

Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.РасчетыСПоставщиками;

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

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

Движение.СодержаниеОперации = "Сумма НДС";

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

КонецЦикла;

// регистр РегистрБухгалтерскогоУчета

Движения.РегистрБухгалтерскогоУчета.Записывать = Истина;

Для Каждого ТекСтрокаПереченьТоваров Из ПереченьТоваров Цикл

Движение = Движения.РегистрБухгалтерскогоУчета.Добавить();

Движение.СчетДт = ПланыСчетов.ПланСчетовБухучета.РасчетыСБюджетомПоНДС;

Движение.СчетКт = ПланыСчетов.ПланСчетовБухучета.НДСПоПриобретениям;

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

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

Движение.СодержаниеОперации = "НДС к вычету";

КонецЦикла;

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

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

Код конструктора печати «ПоступлениеТоваров»

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.ПоступленияТоваров.ПолучитьМакет("Печать");

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

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

"ВЫБРАТЬ

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

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

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

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

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

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

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

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

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

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

| Цена,

| Сумма,

| СтавкаНДС,

| СуммаНДС,

| ВсегоСНДС

| )

|ИЗ

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

|ГДЕ

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