1С программирование как дважды два

Скорость, с которой работает регистр ОстаткиТовара, нельзя получить при помощи регистра Партии или при использовании возможностей бухгалтерского учета.

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

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

Пользователь может сам подстраивать систему бухгалтерских итогов при минимальных вмешательствах со стороны программиста. К недостаткам этого метода учета итогов можно отнести более медленную скорость работы по сравнению с использованием регистров.

Регистры остатков

Регистр остатков позволяет получать следующие виды информации в разрезе определенных измерений:

•начальный остаток,

•приход,

•расход,

•конечный остаток.

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

Например, чтобы рассчитать остатки регистров, которые были до проведения документа Док, следует написать следующий код:

ВремРегистры = СоздатьОбъект("Регистры"); Per = ВремРегистры.ОстаткиТоваров; Per.ВременныйРасчет();

ВремРегистры.РассчитатьРегистрыНа(Док.ТекущийДокумент()); ОстатокТовара = Per.Остаток(ВыбФирма,Товар,Склад,"ОстатокТовара");

С помощью такого кода вы можете в любой момент получить остаток товара на складе.

Для того чтобы определить остатки регистров, которые стали после проведения документа, следует использовать метод РассчитатьРегистрыПо.

Оборотный регистр

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

Например, для решения описанной ниже задачи проще использовать оборотный регистр, а не регистр остатков.

Требуется предоставлять клиенту скидку в размере 5 %, если оборот клиента за предыдущие 3 месяца превышает 100 000 р.

Сконструируем следующий оборотный регистр с периодичностью месяц: Измерения:

•Клиент (тип значения — справочник Контрагенты),

•Док (тип значения — Документ),

Ресурсы:

• Сумма (тип значения — Число).

Для создания регистра следует зайти в Конфигуратор, выделить мышью узел Регистры, нажать правую кнопку мыши и выбрать в контекстном меню пункт Новый Регистр. Тип регистра (оборотный, остаточный) определяется полем Тип регистра.

Приведенная ниже программа рассчитывает обороты клиента за прошедшие три месяца

// Определение месяца и года Функция м(Дат, г)

Д = Док.ДатаДок; мес = ДатаМесяц(Д) - 1; г = ДатаГод(Д); Если мес < 1 Тогда

г = г - 1 ; мес = 12;

КонецЕсли; возврат мес; КонецФункции

Per = СоздатьОбъект("Регистр.ОборотыКлиента"); Сум = 0;

г= 0;

//Определяем итоги за прошлый месяц. мес = м(Док.ДатаДок - 1,г); Per.ИспользоватьПериод(г,мес);

Сум = Сум + Per.СводныйИтог(Кли,,"Сумма");

//Определяем итоги, которые были два месяца назад. мес = м(Док.ДатаДок - 2,г); Per.ИспользоватьПериод(г,мес);

Сум = Сум + Per.СводныйИтог(Кли,,"Сумма");

//Определяем итоги, которые были три месяца назад, мес = м(Док.ДатаДок - 3,г); Per.ИспользоватьПериод(г,мес);

Сум = Сум + Per.СводныйИтог(Кли,,"Сумма");

Использование оборотного регистра позволяет быстро получать суммы некоторых движений за определенный период. Такая необходимость может возникнуть, например, если надо оченьбыстро получить отчетоб объемах продаж определенному клиенту за некоторый период времени.

За увеличение скорости обработки, полученное введением оборотных регистров, приходится платить использованием дополнительных дисковых ресурсов.

С точки зрения реализации движений, оборотный регистр аналогичен регистру остатков, а в части итогов объем хранимой информации*зависит от выбранного периода оборотного регистра. В периодах с «дня» до «месяца» объем информации будет пропорционален количеству данных периодов в месяце при постоянном наборе значений. Заметим, что периоды «квартал» и «год» по задействованным ресурсам должны превосходить период «месяц».

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

Многие конфигурации, использующие регистры, построены только на регистрах остатков и не используют оборотных регистров.

Заметим, что при работе с базами данных в формате SQL роль оборотных регистров с точки зрения оптимизации построения отчетов существенно снижается.

Измерения и ресурсы

Основная проблема при проектировании регистров — это определение его структуры. Структура регистра должна быть такова, чтобы можно было извлекать из него нужную информацию без утомительной обработки.

Измерения регистра — это то, в каких разрезах требуется хранение информации. Ресурсы регистра — это количественные или суммовые данные, которые хранятся в регистре.

Предположим, что регистр ОстаткиТоваров имеет следующую структуру:

Измерения:

•Товар,

•Склад.

Ресурсы:

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

•Стоимость.

В идеологии системы «1 (^Предприятие» регистр такого вида представляет собой прямоугольную систему координат, на одной оси которой находятся склады, на другой — товары, а на пересечении конкретного склада и конкретного товара находятся цифры количества товара и его стоимости.

Спомощью методов встроенного языка мы можем легко узнать:

•остаток конкретного товара на конкретном складе,

•остаток конкретного товара на всех складах,

•стоимость всех товаров на конкретном складе.

Конструирование регистра

Регистр — это средство для накопления информации. Регистры можно менять только при проведении документов. Регистр содержит измерения, ресурсы и реквизиты.

Состав ресурсов регистра определяется тем, в каких запросах он будет использоваться. Например, если регистр будет использоваться в запросе: «Сколько на заданном складе находится единиц заданного товара по заданной цене», то регистр можно спроектировать следующим образом:

Измерения:

•первое — Склад,

•второе — Товар,

•третье — Цена. Реквизит:

•Количество.

Для получения сводных остатков используется метод СводныйОстаток. Функции получения остатков или оборотов из регистра предполагают обязательное заполнение полей измерений слева направо. То есть для приведенной выше схемы, если вы не задали Товар, то не можете задать Склад.

То есть такой запрос сформировать нельзя: Per.СводныйОстаток(Склад,,Цена,"Количество") ,

а такие запросы составлены верно:

Per.СводныйОстаток(Склад,Товар,,"Количество"),

Per.СводныйОстаток(Склад,,,"Количество"),

При конструировании регистра важно правильно определить порядок измерений. Например, если в будущем должен формироваться такой запрос: «Сколько находится товара у фирмы Б на складе А, товар не важен», то структура регистра будет следующей:

•первое измерение — Фирма,

•второе измерение — Склад,

•третье измерение — Товар.

Адля того чтобы формировался такой запрос: «Сколько находится товара

Ау фирмы Б, склад не важен», структура регистра будет другой:

•первое измерение — Фирма,

•второе измерение — Товар,

•третье измерение — Склад.

Нужно ли предусматривать измерение Фирма при проектировании регистров?

Иногда клиенты говорят: «У нас только одна фирма, и никакую другую мы создавать не намерены». Не верьте сказанному: скорее всего, через некоторое время окажется, что на самом деле работают одновременно две фирмы, например ЧП, работающее на вмененном налоге, и предприятие — плательщик НДС. Так устро-

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

Реквизиты регистра

Реквизиты используются для организации фильтров по движениям регистров. Отличие реквизитов от измерений состоит в том, что конечный (начальный) остаток по реквизиту получить нельзя. Остатки можно получать только по измерению.

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

Проанализируйте, чем различаются формирования движений регистра ОстаткиТМЦ у документов «перемещение» и «реализация» (конфигурации 9.*). Одно из различий движений регистров заключается в том, что перемещение записывает в реквизит Внутреннее единицу, а приходная накладная и реализация — ноль.

Чтобы отделить внутренние перемещения от внешних, достаточно добавить в запрос следующие строки:

|Функция КоличествоПриходВнутр = Приход(Количество) когда (Внутреннее = 1); |Функция КоличествоРасходВнутр = Расход(Количество) когда (Внутреннее = 1);

ПРИМЕЧАНИЕ Смотрите отчет Ведомость по остаткам ТМЦ в стандартной конфигурации «Торговли» 9.*.

Запись движения регистров

Вот так может выглядеть процедура записи движений регистров:

Процедура ДвижениеРегистраДолги(Док) Экспорт Per = Док.Регистр.Долги;

Вид = Док.Вид(); Если Вид = "ВводОстатковКредита" Тогда

Per.Клиент = Док.Клиент; Per.Агент = Док.Агент;

Рег.Рн = Док.ТекущийДокумент(); Per.Сумма = Док.Сумма; Per.ДвижениеПриходВыполнить();

ИначеЕсли Вид = "РасходнаяНакладная" Тогда Per.Клиент = Док.Клиент;

Per.Агент = Док.Агент;

Per.Рн = Док.ТекущийДокумент();

Per.Сумма = Док.Итог("Сумма") + Док.Итог("СуммаНП"); Per.ДвижениеПриходВыполнить();

ИначеЕсли Вид = "ПриходныйОрдерТБ" Тогда Per.Клиент = Док.Клиент;

Per.Агент = Док.Агент;

Временный расчет регистров

Временный расчет регистров требуется, если нужно получить итоги на определенную дату. Если временный расчет не используется, то итоги регистров выдаются на последний проведенный документ {точку актуальности).

1. Метод РассчитатьРегистрыНа{<ГраницаРасчета>,<ГрафаОтбора>) — рассчитать все регистры с установленным флагом временного расчета на начало события (на начало даты или на момент до проведения документа).

2. Метод РассчитатьРегистрыПо{<ГраницаРасчета>,<ГрафаОтбора>) —

рассчитать все регистры с установленным флагом временного расчета на конец события (на конец даты или на момент после проведения документа).

Пример иллюстрирует работу временного расчета регистров:

РеР = СоздатьОбъект("Регистр.Резервы"); РеР.ВременныйРасчет(); РеР.УстановитьФильтр(Док.Склад,,,); РассчитатьРегистрыНа(Док.ТекущийДокумент());

Кол = РеР.СводныйОстаток(Док.Склад,Док.Товар,Док.Партия,,"Резерв");

Что такое точка актуальности?

Точка актуальности (ТА) — это запись регистра остатков, которая показывает актуальный (текущий) остаток. Обычно ТА стоит на последнем документе в базе данных. Документ, на котором стоит ТА, подчеркнут красной полосой в журнале документов.

Если требуется определить остатки на ТА, то их можно взять из последней записи. Если же требуется определить остатки не на ТА, то для этого следует определить разницу между ТА и требуемым временем. Для расчета итогов не на ТА используется временный расчет регистров.

Использование метода УстановитьЗначениеФильтра

Метод УстановитьЗначениеФильтра используется для ускорения расчетов. Сравните следующие примеры. Первый работает на 30 % быстрее и выглядит более компактным.

Пример 1:

РегТовары = СоздатьОбъект("Регистр.ОстаткиТоваров"); РегТовары.УстановитьЗначениеФильтра("Склад",ТекСклад); РегТовары.ВыбратьДвижения(ДатаНач, ДатаКон)/ Пока РегТовары.ПолучитьДвижение() = 1 Цикл