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

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

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

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

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

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

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

Движение.Филиал = Филиал;

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

КонецЦикла;

// регистр ПродажаПоФилиалам

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

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

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

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

Движение.Филиал = Филиал;

Движение.Мастер = Мастер;

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

КонецЦикла;

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

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

Приложение 4. Продажа товаров «Модуль Менеджера».

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

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

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

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

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

"ВЫБРАТЬ

| ПродажаТовара.Дата,

| ПродажаТовара.Мастер,

| ПродажаТовара.Номер,

| ПродажаТовара.Филиал,

| ПродажаТовара.Фирма,

| ПродажаТовара.ПереченьТоваров.(

| Товар,

| Цена,

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

| Сумма

| )

|ИЗ

| Документ.ПродажаТовара КАК ПродажаТовара

|ГДЕ

| ПродажаТовара.Ссылка В (&Ссылка)";

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

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

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

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

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

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

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

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

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

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

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

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

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

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

Пока ВыборкаПереченьТоваров.Следующий() Цикл

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

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

КонецЦикла;

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

КонецЦикла;

//}}

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

Приложение 5. Перемещение на филиал «Модуль Объекта».

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

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

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

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

// регистр КоличествоТоваров Расход

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

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

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

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

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

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

Движение.Филиал = Филиал;

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

КонецЦикла;

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

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

Приложение 6. Перемещение с филиала «Модуль объекта».

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

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

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

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

// регистр КоличествоТоваров Приход

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

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

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

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

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

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

Движение.Филиал = Филиал;

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

КонецЦикла;

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

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

Приложение 7. Услуги мастеров.

ВЫБРАТЬ

НашиМастер.Наименование КАК НашМастер,

Продажи.Филиал КАК НашФилиал,

Продажи.СуммаОборот КАК Сумма

ИЗ

РегистрНакопления.ПродажаПоФилиалам.Обороты КАК Продажи

ПРАВОЕ СОЕДИНЕНИЕ Справочник.Мастер КАК НашиМастер

ПО (НашиМастер.Наименование = Продажи.Мастер.Наименование)

Приложение 8. Максимальная, средняя,минимальная сумма товара.

ВЫБРАТЬ

ПоступлениеТовараПереченьТоваров.Товар КАК Товар,

СУММА(ПоступлениеТовараПереченьТоваров.Сумма) КАК СуммаПоТовару,

МАКСИМУМ(ПоступлениеТовараПереченьТоваров.Сумма) КАК МаксимальнаяСумма,

МИНИМУМ(ПоступлениеТовараПереченьТоваров.Сумма) КАК МинимальнаяСумма,

СРЕДНЕЕ(ПоступлениеТовараПереченьТоваров.Сумма) КАК СредняяСумма

ИЗ

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