Давненько ми не займались нашою «Відіотекою», вибачте мене якщо можете. Сьогодні ми поговоримо про таке поняття як «Оборотний регістр накопичення». Варто зазначити що оборотний регістр накопичення відрізняється від залишкового регістру накопичення. В чому ж його відмінність? Для пояснення відмінностей давайте розглянемо конкретний приклад. І так, ми в вже маємо документ «Позичив подивитись» в ньому ми вказали що позичили (за певну плату зрозуміло J) один диск з фільмами, а також надали послуги по запису фільмів на флешку. Причому послуга в залишковому регістрі ніяк не провелась оскільки ніякого приходу послуг зрозуміло не може бути в принципі, ми їх надаємо і отримуємо за це гроші. Проте облік наданих послуг мав би вестись. І мені як власнику нашої відеотеки хотілось би знати кому і за який період я надавав послуги, причому бажано в розрізі цих самих послуг і з деталізацією по друзях/клієнтах. Видно що залишковий регістр відомостей мені в цьому допомогти не зможе. Потрібно використати оборотний регістр відомостей. Основною відмінність регістру оборотів від регістру залишків є те, що залишки по регістрі оборотів не розраховуються в принципі. Потрібно відмітити наступний факт, коли ви працюєте з регістрами залишків то коли ви вказуєте вимір регістру слід пам’ятати що по виміру має відбуватись рух залишків в обидві сторони (як має бути прихід так має бути і розхід). Якщо ж ця умова не виконується то буде як правило реквізит.

Ну що ж з короткою теоретичною частиною закінчуємо і переходимо до створення регістру оборотів.

Створимо регістр «НаданняПослуг» і вкажемо вид регістру – «обороти» з наступними вимірами «Друг» – посилання на довідник «Друг» та «Послуга» – посилання на довідник «Номенклатура».

Ресурси мають бути наступними: кількість, готівка, ціна. Всі числа з 2 знаками після коми.

На закладці реєстратори вкажемо реєстратором документ»позичив подивитись» і в документі напишемо наступний код проведення по регістру накопичення.

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

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

// Даний фрагмент побудований конструктором.

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

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

// регістр ЗалишкиДисків Расход

если ТекСтрокаДиски.Диск.Метаданные().Имя = “Номенклатура” тогда

если ТекСтрокаДиски.Диск.Вид <> перечисления.ВидТовару.Послуга тогда

Движение = Движения.ЗалишкиДисків.Добавить();

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

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

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

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

иначе

Движение = Движения.НаданняПослуг.Добавить();

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

Движение.Друг = кому;

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

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

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

Движение.Ціна = ТекСтрокаДиски.ціна;

конецесли;

иначе

Движение = Движения.ЗалишкиДисків.Добавить();

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

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

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

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

// регістр ВартістьНоменклатури Приход

Движение1 = Движения.ВартістьМатеріалів.Добавить();

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

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

Движение1.Матеріал = ТекСтрокаДиски.Диск;

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

конецесли;

КонецЦикла;

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

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

Виділене червоним це код який ми дописали для того щоб зафіксувати рух по регістру. Зауважте відмінність від регістру з залишками в наступному не вказується ВидДвижени.

Оскільки вид руху має значення лише тоді коли ми хочемо мати залишки по регістру а нам цього не потрібно.

Що, ж тепер ми маємо налаштовану систему і інформація про діяльність нашої відеотеки буде вноситись правильно. В наступному занятті ми будемо вчитись робити на основі введеної інформації звіти та виводити їх на екран і друк.

Наша відеотека почала розвиватись і ми вже не просто позичаємо диски друзям і колегам, а і продаємо диски з фільмами (це означає що ми будемо купувати чисті диски та коробки і записувати на них фільми для продажі). Крім того ми вирішили записувати диски на носії інформації за певну суму (тобто надаємо послуги). Відповідно в програму потрібно внести зміни. Подивимось якими вони будуть.

Спочатку ми створимо перелічення «ВидТовару» з наступними значеннями: «Товар», «Послуга».

Потім ми створимо новий довідник «Номенклатура». В ньому вкажемо реквізит «Вид» і встановимо його тип «ВидТовару».

Тепер відредагуємо регістр накопичення «ЗалишкиДисків». Відкриємо вимір «Диски» і відредагуємо його вид даних наступним чиномВкажемо що в регістрі використовується складний тип даних. І відзначимо два довідники («Диски», «Номенклатура») як типи даних даного виміру (див. рис.).

Аналогічні дії потрібно буде провести в двох документах, там де фігурує тип даних «Диски».

Тепер давайте змінимо процедуру проведення документу «ПозичивПодивитись». Тепер процедура проведення буде виглядати так:

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

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

// Даний фрагмент побудований конструктором.

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

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

// регістр ЗалишкиДисків Расход

если ТекСтрокаДиски.Диск.Метаданные().Имя = “Номенклатура” тогда

если ТекСтрокаДиски.Диск.Вид <> перечисления.ВидТовару.Послуга тогда

Движение = Движения.ЗалишкиДисків.Добавить();

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

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

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

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

конецесли;

иначе

Движение = Движения.ЗалишкиДисків.Добавить();

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

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

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

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

конецесли;

КонецЦикла;

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

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

Як бачимо в тілі циклу додано дві вкладені одна в другу конструкції

Если … Тогда …. Конецесли;

В першій конструкції ми перевіряємо чи в колонці «Диск» табличної сатини «Диски» вибрано елемент довідника «Номенклатура». В разі якщо це так тоді другим «если» ми перевіряємо чи номенклатура є послугою. Якщо це твердження не відповідає дійсності тоді робимо рух по регістру. В разі якщо вибраний елемент не належить довіднику номенклатура ми просто проводимо його по регістру без додаткових перевірок.

На цьому пропоную закінчити.

Справа в тому, що ми маємо довідники і документи, в документах маємо потрібну нам інформацію для формування звітів (наприклад залишків по певних складах) проте для отримання потрібних нам результатів потрібно буде проаналізувати всі документ що роблять відповідні рухи товарів. Добре якщо це лише один документ приходу та один документ розходу товарів. В випадку коли їх кілька задача ускладнюється, якщо ж документів кілька десятків запрограмувати звіт буде дуже важко. Чи не краще зберігати дані про рухи товарів в одній окремій структурі даних і при формуванні звіту всі дані вибирати інформацію лише звідтіля? Для полегшення доступу до інформації яка зберігається в багатьох документах, та і не тільки в документах було створено «регістри накопичення».

Регістр накопичення має певну структуру в якій і накопичуються дані . ці дані будуть зберігатися в регістрі в вигляді окремих записів.

Важливо відмітити що регістр накопичення не передбачає того щоб користувач міг його редагувати. Регістр створений для того щоб дані в нього заносились і модифікувались виключно об’єктами конфігурації.

До поняття «регістр накопичення» мають відношення також поняття «вимір» та «ресурс».

Вимірами (измерениями) називають розрізи інформації представлені в регістрі (в нашому випадку це може бути склад куди прийняли товар і сам товар.

Числова інформація що зберігається в регістрі називається ресурсами.

Зміна стану регістру накопичення відбувається як правило під час проведення документу і полягає в тому що в регістр додаються кілька записів з посилання на документ який зробив зміну (документ буде регістратором), «напрям» приросту (прихід чи розхід) ну і звичайно значення вимірів та ресурсів. Все в комплексі називається рухом регістру.

Крім вищевказаної інформації регістр може мати набір реквізитів, це додаткова інформація відносно руху регістру.

Давайте створимо регістр в якому буде фіксуватись інформація про рух наших дисків.

Регістр накопичення відповідно буде називатись ЗалишкиДисків і матиме лише один вимір «Диски», (посилання на відповідний довідник, та один ресурс – «Кількість», де вказуватиметься скільки дисків прийшло чи пішло.

Зберігаємо даний регістр накопичення. Оскільки, як вказувалось вище, рухи по регістру можливі лише за допомогою документів то потрібно налаштувати документи для роботи з данним регістром.

Відкриваємо в конфігуратор документ ПрихіднаНакладна.

Якщо ви уважно робили попередні уроки, то ви помітили що стала активною закладка «Рухи», якраз з нею ми і будемо працювати.

В верхньому віконечку вибираємо регістр накопичення «ЗалишкиДисків» і відзначаємо його галочкою, потім в нижній частині вікна натискуємо на кнопку «Конструктор рухів»

Ви побачите наступне вікно:

Конструктор рухів в «1с:Підприємство 8.1»

В табличці «Регістри» вказано той регістр рухи якого ми будемо конструювати.

Рухи по регістрах можуть бути двох типів: Прихід (чомусь по версії «1с:Підприємство 8.1» це «Прибуток») та розхід (по версії «1с:Підприємство 8.1» – «Видаток»).

В початковому варіанті в реквізитах документу вказано лише реквізити шапки документу, в разі якщо нам потрібно зробити рух по табличній частині вказуємо її у відповідному полі.

Після підготовчої частині вказуємо в нижній табличній частині відповідність реквізитів документу – значенням відповідних вимірів та ресурсів регістру. Для цього просто потрібно натиснути спочатку на порожньому полі в колонці «Вираз» а потім двічі клацнути на відповідному реквізиті документу. До речі для полегшення вибору реквізитів на відповідних до вимог регістру полях збоку з’являються маленькі червоні галочки. Коли багато реквізитів це дуже полегшує роботу.

Після натискування кнопки «ОК» бачимо наступну картину:

«Конструктор рухів» створив наступний код:

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

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

// Даний фрагмент побудований конструктором.

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

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

// регістр ЗалишкиДисків Приход

Движение = Движения.ЗалишкиДисків.Добавить();

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

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

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

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

КонецЦикла;

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

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

Перша стрічка вказує що код буде виконуватись лише при проведенні документу, це наперед визначена зарезервована процедура.

Друга і передостання стрічки це службові коментарі. Значення яких вказано в 3 і 4 стрічках.

Наступні стрічки це, властиво, сам значущий код програми.

Конструкція

Для Каждого … Из … Цикл

КонецЦикла;

Це стандартна конструкція «1с:Підприємство 8.1» для перебору табличної частини звертання до якої іде по назві «Товар».

Зауважте що об’єкт мови «1с:Підприємство 8.1» ДокументОбъект властивість Движения яке повертає колекцію наборів рухів регістрів до яких можна звернутись набравши крапку і назву регістру.

Таким чином в першій лінійці циклу ми додаємо до об’єкту Движения новий запис і зберігаємо його в змінній Движение. Потім ми присвоюємо потрібні значення полям, і так поки працює цикл. Після закінчення циклу ми записуємо значення в регістр одним масивом.

Ну що ж перевіримо чи працює те що ми так красиво описали

Запускаємо «1с:Підприємство 8.1» та відкриємо спочатку Регістр накопичення «Залишки дисків» (Операції-регістри накопичення –залишки дисків)

А потім документ «Прихідна накладна». (Операції-документи-прихідна накладна)

Коли ви натисните на «ОК» в регістрі з’являться відповідні записи.

Тепер налаштуємо наш документ ПозичивПодивитись.

Дії аналогічні як і з налаштуванням приходної накладної

Йдемо «Рухи – Регістр накопичення – Залишки дисків» потім конструктор рухів.

Єдина суттєва зміна це «Тип руху регістру» – «Видаток» див. рис.

Натискування «ОК» призведе до формування наступного коду він дуже подібний до попереднього.

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

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

// Даний фрагмент побудований конструктором.

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

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

// регістр ЗалишкиДисків Расход

Движение = Движения.ЗалишкиДисків.Добавить();

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

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

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

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

КонецЦикла;

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

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

Збережемо документ і запустивши «1с:Підприємство 8.1» перевіримо як він працює

Як видно з скріншоту рух по регістру відбувся. Отже документ рацює правильно поздоровляю!

В наступному уроці будемо вчитись створювати звіти.