Как программно изменить значение регистра при вводе начальных остатков 1с

Куку, епта!

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

Как задать расписание для автоматического запуска
заданий?

Находим в древе конфигурации штучку «Регламентные задания» и
правым кликом создаем.

Чтобы установить расписание, жмакаем на ссылку «Открыть»
напротив «Расписание» (рис.1)

рис.1

Как обеспечить запуск заданий по расписанию в файловом
варианте работы?

Для чего предназначен документ для ввода начальных
остатков и как его создать?

Ну как бы предполагается, что возможен вариант, что 1С
внедряется в уже счуществующую фирму, где уже есть какой-то документооборот,
товары на складе, работники бухают и т.д. И нужно, чтобы в регистрах такие
данные существовали.

Создается такой документ – как и все в 1с, правым кликом.
Разве что для этого документа нужно запретить проведение.

Как программно изменить значение регистра при вводе
начальных остатков?

А в
самом занятии нам предлагается рассмотреть возможность программно изменять
какие-либо параметры либо в модуле формы объекта, либо в модуле объекта.

В
каких случаях использовать модуль формы, а в каких – модуль объекта для
размещения обработчиков событий?

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

В

нашей
информационной
базе,

как

и
в

любой
другой,

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

нашей
информационной
базой

не

с

чистого
листа,
а

с

некоторого
исходного
состояния,

которое

было

в

их

прежней

системе

учета

(на
бумаге
например).

Задача
ввода
начальных
остатков
отличается
от

прочих
алгоритмов
изменения

состояния

регистров

тем,

что

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

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

Рассмотрим

пример

ввода

начальных

остатков

регистра

накопления

ОстаткиМатериалов.

Для
выполнения

этой
задачи

мы

создадим

документ,
в
котором
будем
вручную
редактировать
его
движения
по

регистру
ОстаткиМатериалов
прямо
в
форме
документа.

В
режиме
Конфигуратор

Создадим

новый

объект

документ

с

именем

ВводНачальныхОстатковНоменклатуры.

На

закладке
Движения

запретим

проведение

документа

(поскольку
сами
будем
формировать
записи
регистра)
и
отметим,
что

движения
документа

будут
находиться

в

регистре

накопления
ОстаткиМатериалов.

После
этого
перейдем
на
закладку
Формы
и

создадим
основную
форму
документа.

В

окне

редактора

форм
на
закладке

Реквизиты

раскроем

основной
реквизит

формы
Объект,

затем

раскроем

Движения,

найдем
строку
ОстаткиМатериалов

и

перетащим

ее

в

окно

элементов

формы.

На

_{вопрос
системы
«добавить
колонки
таблицы?»
ответим
«да».}

Немного
изменим
внешний
вид
формы.

В

окне

элементов

формы
добавим

группу
полей

с

типом

группировки

Горизонтальная
и

перетащим
в
нее
поля
документа
Номер
и

Дата.
А

также

поменяем

местами

поля

таблицы

_{ДвиженияОстаткиМатериаловНаборСвойств
и
Склад.}

В

заключение

отредактируем
командный
интерфейс

формы
документа,
чтобы

в

панели

навигации

формы

иметь

возможность
переходить

к
списку
записей

регистра

ОстаткиМатериалов,

связанному

с
документом.
Для
этого
в
левом
верхнем
окне
редактора

форм
перейдем
на
вкладку
Командный
интерфейс.

В

группе

Панель

навигации
в

подгруппе

Перейти

установим
видимость
для
команды
открытия
регистра
Остатки
материалов.

В

окне
редактирования

документа
ВводНачальныхОстатковНоменклатуры

установим
принадлежность
к
подсистеме
Бухгалтерия.

В

заключение
отредактируем
командный
интерфейс
этой
подсистемы
–

Общие
–
Подсистемы
–
Все
подсистемы.

Выделим
в
списке
подсистем
Бухгалтерию

и
в
списке
команд
установим
видимость

команды

Ввод

начальных

остатков
номенклатуры:
создать
в
группе
Панель
действий.Создать.

В
режиме
1С:Предприятие

Запустим
режим
отладки
и
проверим
работу
нашего
документа.
Выполним

команду

Ввод

начальных

остатков

номенклатуры

в

панели
действий
раздела
Бухгалтерия.

Создадим

документ

для

ввода

начальных

остатков

в

регистр

_{ОстаткиМатериалов
и
внесем
в
него
следующие
данные.}

Обратите

внимание,

что

дата

документа

не

совпадает

с

датами
отдельных
записей,
которые
мы

создаем
в
движениях
документа.

Нажмем
Записать

и

в
панели
навигации
перейдем
к

движениям
нашего
документа
в
регистре
ОстаткиМатериалов.

Таким

образом,
мы

добились

поставленной

цели:

с

одной

стороны,
задавая

дату

документа,

мы

можем

фиксировать

момент
внесения
изменений

в

записи

регистра,

с

другой

стороны
–
для

каждой
создаваемой

нами
записи
регистра

мы
можем
указать

индивидуальное
значение
поля
Период.

Теперь

займемся

ужесточением
требований

к

тому,
как

наш
документ
формирует
записи
регистра,
и
рассмотрим
два
типичных
варианта.

Программное
редактирование
записей
регистра

В
режиме
Конфигуратор

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

формироваться

той
же
датой,

что
и
дата

документа.

Иначе
говоря,
синхронизируем
дату
движений
с
датой
документа.

Для

этого

создадим

для

формы

документа

обработчик

события

_{ПередЗаписью
и
добавим
в
него
следующий
текст.}

&НаКлиенте

Процедура
ПередЗаписью(Отказ,
ПараметрыЗаписи)

<sub>Для
Каждого
ЗаписьРегистра
Из

Объект.Движения.ОстаткиМатериалов</sub>

Цикл

_{ЗаписьРегистра.Период
=
Объект.Дата;}

_{КонецЦикла;}

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

В
режиме
1С:Предприятие

Запустим
отладку,
откроем
наш
документ
и
нажмем
Записать.

Открыв
движения
документа
в
регистре

ОстаткиМатериалов,

увидим,
что

значение
поля
Период
у
всех
записей
стало
равно
дате
документа.

Можно
сказать,
что

мы

достигли
поставленной
цели,
но

лишь
для
интерактивной

записи

документа.

Если
программно

вызвать

метод
Записать()
у
объекта
нашего
документа,
он

будет
записан
без
участия
формы
документа.
Это

значит,
что

событие
ПередЗаписью

формы
документа
вызвано
не
будет
и
наш
код
обработчика
не
сработает.

Чтобы
предусмотреть
возможность
синхронизации
периода
движений
документа
с

датой
документа
и

в
случае
программной
записи
объекта
Документ,
следует

использовать

обработчик

события
ПередЗаписью
объекта
Документ,
а
не
формы
документа.
Событие
ПередЗаписью

в
случае
интерактивной
записи
документа
сначала
будет
вызвано
у
формы
документа,
а
затем
у
объекта
Документ.

В
режиме
Конфигуратор

Вернемся
в
конфигуратор
и
удалим
из
модуля
формы
добавленный
нами
текст

и

создадим
обработчик
события
ПередЗаписью

в
модуле
документа
ВводНачальныхОстатковНоменклатуры.

Для

этого

откроем

на

закладке

Прочее
окна

редактирования

этого
объекта
модуль
объекта
и
внесем
в
него
следующий
текст.

_{Процедура
ПередЗаписью(Отказ,
РежимЗаписи,
РежимПроведения)}

//
Определить,
нужно
ли

обновлять
дату
в
движениях

ОбновитьДатуДвижений
=
ЭтоНовый()
Или

Движения.ОстаткиМатериалов.Модифицированность();
Если
Не
ОбновитьДатуДвижений
Тогда

//
Проверить,
что

дата
изменилась
Запрос
=
Новый
Запрос;
Запрос.УстановитьПараметр(«ТекущийДокумент»,
Ссылка);
Запрос.Текст
=

«ВЫБРАТЬ

|
Дата

|ИЗ

|
Документ.ВводНачальныхОстатковНоменклатуры

_{|ГДЕ
Ссылка
=
&ТекущийДокумент»;}

Выборка
=
Запрос.Выполнить().Выбрать();
Выборка.Следующий();

ОбновитьДатуДвижений
=
Выборка.Дата
<>
Дата;

_{КонецЕсли;}

//
Установить
всем
новую
дату,
если
нужно

Если
ОбновитьДатуДвижений
Тогда

Если
Не
Движения.ОстаткиМатериалов.Выбран()
И

Не
Движения.ОстаткиМатериалов.Модифицированность()
Тогда

Движения.ОстаткиМатериалов.Прочитать();
КонецЕсли;

Для
Каждого
ЗаписьРегистра
Из
Движения.ОстаткиМатериалов
Цикл

ЗаписьРегистра.Период
=
Дата;
КонецЦикла;

_{КонецЕсли;}

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

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

которые

выполняются

в

результате
возможности
как
интерактивной,
так
и
программной
записи
объекта.

Поясним
содержание

обработчика.

Если
записывается

новый
документ
или
были
изменены
его
движения,

следует

обновить
дату
движений.

В
противном
случае

мы

считваем

запросом

дату

документа

из

базы

и
сравниваем
ее
с

датой,
установленной
у

записываемого
объекта.

Если
даты
разные,
также
следует
обновить
дату
движений.

Перед
установкой
даты
мы

проверяем,
был
ли

прочитан
набор
записей
в
свойстве
Движения

объекта
и
изменился
ли

он.
Если
оба
этих
условия
ложны,
значит
набор
записей
в
свойстве
Движения

объекта
пуст,
и
это
состояние

не

связано

с

его

изменением.

В

этом

случае,
чтобы
предотвратить
ошибочное
удаление

записей

в

регистре
(перезаписать
пустым

набором

записей),

мы
предварительно

читаем

движения

из
регистра
в
набор
записей
в
свойстве
Движения.

Затем,
как
и
в
предыдущем
случае,
устанавливаем
нужную
дату
для
всех
записей

этого
набора.

При

выполнении
записи

объекта

документ
этот
набор
будет
записан
в
регистр
накопления.

В
режиме
1С:Предприятие

Запустим
режим
отладки
и

убедимся,
что
указав

новую
дату
для
нашего

документа

и
записав

его,

мы

получим
движения

в

регистре
накопления
с
новой
датой.

В

процессе

записи
нашего

документа

можно

управлять

не

только
периодом
записей
регистра
накопления,
но

и

значениями

других
полей
регистра.

Например,
по

аналогичному
принципу
может
быть
создан
документ
Операция,

позволяющий
вводить

ручные

операции

в

регистр
бухгалтерии.

При

этом
вероятно,

что

кроме
управления

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

Где
создавать
обработчики
событий

Выбор
обработчика,

в

который

будет

помещен

текст
процедуры,
зависит
от

логики
работы
создаваемого
объекта.
Если
конфигурация
не
предусматривает
прогаммной

записи

объекта,

можно

выбрать
обработчик

модуля
формы.

Если
предполагается

и

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

Заметьте,

что

оба

этих
способа

не

исключают
модификацию

записей
регистра
через
объект
Регистр<…>НаборЗаписей.<имя

регистра>.
Поэтому
если
логика
конфигурации
подразумевает

возможность
программной

модификации

объекта
НаборЗаписей,

код

обработки
следует
помещать
в
обработчик
события
набора

записей.

Все
попытки
изменить

данные
регистра

будут

сведены

к

записи

именно

набора
записей.

Контрольные
вопросы


Для
чего
предназначен

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


Как
программно
изменить
значение

регистра
при
вводе
начальных
остатков.


В

каких
случаях
использовать
модуль
формы,
а
в
каких
–
модуль
объекта
для
размещения
обработчиков
событий.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

Документ «Корректировка записей регистров» в типовых конфигурациях 1С предназначен для ручной корректировки записей регистров накопления, зависимых регистров сведений и регистров бухгалтерии. Типичные ситуации, в которых может понадобиться документ «Корректировка записей регистров», — ввод начальных остатков, исправление ошибок в учете, отражение в учете операций, для которых в конфигурации нет специальных документов. В документе есть сервис автоматического заполнения движений с предопределенным действием «Сторно движений документа». С его помощь можно автоматически создать движения по регистрам бухгалтерии и регистрам накопления, аналогичные движениям указанного документа, но с отрицательными значениями.

Иногда количество вводимых записей по регистрам может быть велико и тогда целесообразно выполнить корректировку регистров программно. Документ «Корректировка записей регистров», как Вы уже, наверно, догадались, не совсем обычный. А иначе бы о нем не стоило и писать.

В качестве примера, когда может потребоваться программно создать документ «Корректировка записей регистров», предлагаю рассмотреть операцию переоценки основных средств. Переоценка основных средств — ситуация хоть и нечастая, но все же вполне реальная, а специального документа для переоценки в типовых конфигурациях 1С нет. Чтобы пример получился более представительным (включал в себя все виды корректируемых регистров), я сделал обработку для конфигурации «1С:Управление производственным предприятием». Но с другой стороны, чтобы не перегружать пример лишней информацией, мы рассмотрим случай, когда в результате переоценки происходит увеличение стоимости основных средств и накопленной амортизации (дооценка).

В этом случае переоценка основных средств отражается в бухгалтерском учете проводками:

* Дт. 01.01. — Кт. 83.01 — Увеличение первоначальной стоимости ОС.
* Дт. 83.01. — Кт. 02.01 — Увеличение суммы накопленной амортизации ОС.

В налоговом учете операция переоценки основных средств не предусмотрена, но для того чтобы соблюдалось равенство БУ = НУ + ПР + ВР, мы должны отразить в учете возникновение постоянных разниц. Также мы должны сделать движения в регистрах накопления «СтоимостьОС», «СтоимостьОСБухгалтерскийУчет» и в регистрах сведений «ПараметрыАмортизацииОС», «ПараметрыАмортизацииОСБухгалтерскийУчет», «СобытияОС» и «СобытияОСОрганизаций».

Исходные данные для переоценки ОС берутся из dbf-таблицы с набором полей:

* OS (строка) — код основного средства;
* SumU (число) — сумма дооценки по управленческому учету в единицах валюты управленческого учета;
* SumB (число) — сумма дооценки по бухгалтерскому учету;
* AmortU (число) — сумма дооценки накопленной амортизации по управленческому учету в единицах валюты управленческого учета;
* AmortB (число) — сумма дооценки накопленной амортизации по бухгалтерскому учету.

Упрощенный фрагмент кода обработки, иллюстрирующий запись проводок в регистр бухгалтерии, представлен в листинге:

Код 1C v 8.х

 Сч01_01 = ПланыСчетов.Хозрасчетный.ОСвОрганизации;

Сч02_01 = ПланыСчетов.Хозрасчетный.АмортизацияОС_01;

Сч83_01 = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке;

ДБФ = Новый XBase;

ДБФ.ОткрытьФайл(ИмяФайла);

Если ДБФ.Открыта() Тогда

    Попытка

        НачатьТранзакцию();

        
  ДокКорректировка = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();

        ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокКорректировка.ЭтотОбъект, ПараметрыСеанса.ТекущийПользователь);

        ДокКорректировка.Дата = Период;            


  НоваяСтрокаРегБух = ДокКорректировка.ТаблицаРегистровБухгалтерии.Добавить();

        НоваяСтрокаРегБух.Имя = "Хозрасчетный";

        НоваяСтрокаРегБух.Представление = "Журнал проводок (бухгалтерский учет)";

        
        ДокКорректировка.Записать();

        ДокКорректировкаСсылка = ДокКорректировка.Ссылка;

  
        НЗХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

        НЗХозрасчетный.Отбор.Регистратор.Значение = ДокКорректировкаСсылка;

  
        ДБФ.Первая();

        Пока Не ДБФ.ВКонце() Цикл

            ОсновноеСредство = Справочники.ОсновныеСредства.НайтиПоКоду(СокрЛП(ДБФ.OS));

            Если ОсновноеСредство.Пустая() Тогда

                Сообщить("Не найдено ОС с кодом " + ДБФ.OS + "!", СтатусСообщения.Важное);

                Продолжить;

            КонецЕсли;


            ЗХозрасчетный = НЗХозрасчетный.Добавить();

            ЗХозрасчетный.Период = Период;

            ЗХозрасчетный.Регистратор = ДокКорректировкаСсылка;

            ЗХозрасчетный.Организация = Организация;

            ЗХозрасчетный.Содержание  = "Увеличение первоначальной стоимости ОС";

            ЗХозрасчетный.СчетДт = Сч01_01;

            ЗХозрасчетный.СчетКт = Сч83_01;     

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетДт, ЗХозрасчетный.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетКт, ЗХозрасчетный.СубконтоКт, "ОсновныеСредства", ОсновноеСредство);

            ЗХозрасчетный.Сумма = ДБФ.SumB;


            ЗХозрасчетный = НЗХозрасчетный.Добавить();

            ЗХозрасчетный.Период = Период;

            ЗХозрасчетный.Регистратор = ДокКорректировкаСсылка;

            ЗХозрасчетный.Организация = Организация;

            ЗХозрасчетный.Содержание  = "Увеличение накопленной амортизации ОС";

            ЗХозрасчетный.СчетДт = Сч83_01;

            ЗХозрасчетный.СчетКт = Сч02_01;     

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетДт, ЗХозрасчетный.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);

            БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетКт, ЗХозрасчетный.СубконтоКт, "ОсновныеСредства", ОсновноеСредство);

            ЗХозрасчетный.Сумма = ДБФ.AmortB;


            ДБФ.Следующая();

        КонецЦикла;

        ДБФ.ЗакрытьФайл();

        НЗХозрасчетный.Записать();


        ЗафиксироватьТранзакцию();

    Исключение

        Сообщить(ОписаниеОшибки(), СтатусСообщения.ОченьВажное);

        ОтменитьТранзакцию();

    КонецПопытки;

КонецЕсли;   

Как видно из примера, документ «Корректировка записей регистров» используется в качестве регистратора, движения же записываются непосредственно в регистр. Движения по регистрам накопления и регистрам сведений делаются аналогично.

Смотрите так же: Корректировка регистров накопления через документ

Источник

/// Как прочитать бухгалтерские проводки без значений
/// субконто в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПрочитатьПроводкиБезСубконтоНаСервере()
 
    // За журнал проводок отвечает таблица РегистрБухгалтерии.Хозрасчетный.
    // Обратите внимание, что в ней нет информации о субконто - аналитике
    // счетов, участвующих в проводках.
 
    // получим все бухгалтерские проводки
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Хозрасчетный.Период КАК Период,
        |   Хозрасчетный.Организация,
        |   Хозрасчетный.СчетДт,
        |   Хозрасчетный.СчетКт,
        |   Хозрасчетный.КоличествоДт,
        |   Хозрасчетный.КоличествоКт,
        |   Хозрасчетный.Сумма
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
        |ГДЕ
        |   Хозрасчетный.Активность = Истина
        |УПОРЯДОЧИТЬ ПО
        |   Период";
 
    РезультатЗапроса = Запрос.Выполнить();
    Записи = РезультатЗапроса.Выбрать();    
 
    Пока Записи.Следующий() Цикл
        Сообщить(
            "[" + Формат(Записи.Период, "ДФ=dd.MM.yy") + "]   " +
            "Дт " + Записи.СчетДт + " " +
            "Кт " + Записи.СчетКт + " " +
            Записи.Сумма + " руб.");
    КонецЦикла;
 
КонецПроцедуры
 
/// Как прочитать бухгалтерские проводки вместе со
/// значениями субконто в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПрочитатьПроводкиВместеССубконтоНаСервере()
 
    // За получение бухгалтерских проводок вместе с их аналитикой (субконто)
    // отвечает виртуальная таблица ДвиженияССубконто,
    // у неё есть параметры:
    // 1. Начало периода
    // 2. Конец периода
    // 3. Условие
    // 4. Порядок (влияет только на отбор первых)
    // 5. Первые (отбор перых N записей)
 
    // Получим проводки за 1 квартал 2014 года, где счёт 41.01 в
    // дебете или кредите, вместе с их аналитикой (субконто).
 
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |   ХозрасчетныйДвиженияССубконто.Период КАК Период,
        |   ХозрасчетныйДвиженияССубконто.Организация,
        |   ХозрасчетныйДвиженияССубконто.Регистратор,
        |   ХозрасчетныйДвиженияССубконто.Активность,
        |   ХозрасчетныйДвиженияССубконто.СчетДт,
        |   ХозрасчетныйДвиженияССубконто.СубконтоДт1,
        |   ХозрасчетныйДвиженияССубконто.СубконтоДт2,
        |   ХозрасчетныйДвиженияССубконто.СубконтоДт3,
        |   ХозрасчетныйДвиженияССубконто.СчетКт,
        |   ХозрасчетныйДвиженияССубконто.СубконтоКт1,
        |   ХозрасчетныйДвиженияССубконто.СубконтоКт2,
        |   ХозрасчетныйДвиженияССубконто.СубконтоКт3,
        |   ХозрасчетныйДвиженияССубконто.Сумма,
        |   ХозрасчетныйДвиженияССубконто.КоличествоДт,
        |   ХозрасчетныйДвиженияССубконто.КоличествоКт
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто(
        |       ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00),
        |       ДАТАВРЕМЯ(2014, 03, 31, 23, 59, 59),
        |       Активность = Истина И (
        |           СчетДт = &ВыбСчет ИЛИ СчетКт = &ВыбСчет)
        |   )
        |   КАК ХозрасчетныйДвиженияССубконто
        |УПОРЯДОЧИТЬ ПО
        |   Период Возр";
 
    Запрос.УстановитьПараметр("ВыбСчет",
        ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"));
 
    РезультатЗапроса = Запрос.Выполнить();
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
        Сообщить(
            "[" + Формат(Записи.Период, "ДФ=dd.MM.yy") + "]   " +
            "Дт " + Записи.СчетДт + " " +
            "(" + Записи.СубконтоДт1 + ", " + Записи.СубконтоДт2 + ")" +
            " " +
            "Кт " + Записи.СчетКт + " " +
            "(" + Записи.СубконтоКт1 + ", " + Записи.СубконтоКт2 + ")" +
            " " +
            Записи.Сумма + " руб.");
    КонецЦикла;
 
КонецПроцедуры
 
/// Как получить обороты между бухгалтерскими счетами в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПолучитьОборотыМеждуСчетамиНаСервере()
 
    // Пример №1
    Сообщить("Пример №1");
 
    // За получение оборотов между счётом и корреспондирующим счётом
    // за произвольный период с заданной периодичностью в различных
    // разрезах аналитики отвечает виртуальная таблица Обороты,
    // у неё есть следующие параметры:
    // 1. Начало периода
    // 2. Конец периода
    // 3. Периодичность (например, Период, Запись, Год, Месяц...)
    // 4. Условие счета (например, Счет = &ВыбСчет)
    // 5. Субконто (список видов субконто, влияет на доступность
    //    и смысл Субконто1, Субконто2.., которыми можно оперировать
    //    в запросе).
    // 6. Условие (например, Субконто1 = &ВыбСклад)
    // 7. Условие корсчета (аналогично условию счёта)
    // 8. КорСубконто (аналогично субконто)
 
    // Узнаем сколько пришло и сколько ушло товара на основной склад
    // за январь 2014 года. То есть получим дебетовые и кредитовые
    // обороты по счёту 41.01, субконто Склады (значение "Основной склад")
 
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |   ХозрасчетныйОбороты.Счет,
        |   ХозрасчетныйОбороты.Субконто1 КАК Склад,
        |   ХозрасчетныйОбороты.Организация,
        |   ХозрасчетныйОбороты.СуммаОборотДт КАК ПришёлТовар,
        |   ХозрасчетныйОбороты.СуммаОборотКт КАК УшёлТовар,
        |   ХозрасчетныйОбороты.СуммаОборот КАК Разница
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный.Обороты(
        |       ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00),
        |       ДАТАВРЕМЯ(2014, 01, 31, 23, 59, 59),
        |       Период,
        |       Счет = &ВыбСчет,
        |       &ВидыСубконто,
        |       Субконто1 = &ВыбСклад
        |   )
        |КАК ХозрасчетныйОбороты";
 
    Запрос.УстановитьПараметр("ВыбСчет",
        ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01")
    );
 
    ВидыСубконто = Новый Массив;
    ВидыСубконто.Добавить(
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады
    );
    Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто);
 
    Запрос.УстановитьПараметр("ВыбСклад",
        Справочники.Склады.НайтиПоНаименованию("Основной")
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Если Записи.Следующий() Тогда
 
        Сообщить("Счёт " + Записи.Счет + " (" + Записи.Склад + ")");
        Сообщить("Пришёл товар на " + Записи.ПришёлТовар + " руб.");
        Сообщить("Ушёл товар на " +Записи.УшёлТовар + " руб.");
        Сообщить("Разница между поступление и списанием " + 
            Записи.Разница + " руб."
        );
 
    КонецЕсли;
 
    // ===========================================================
 
    // Пример №2
    Сообщить("Пример №2");
 
    // Узнаем сколько пришло товара на основной склад
    // за каждый месяц 2014 года.
 
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |   ХозрасчетныйОбороты.Период,
        |   ХозрасчетныйОбороты.Счет,
        |   ХозрасчетныйОбороты.Субконто1 КАК Склад,
        |   ХозрасчетныйОбороты.Организация,
        |   ХозрасчетныйОбороты.СуммаОборотДт КАК ПришёлТовар
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный.Обороты(
        |       ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00),
        |       ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59),
        |       Месяц,
        |       Счет = &ВыбСчет,
        |       &ВидыСубконто,
        |       Субконто1 = &ВыбСклад
        |   ) КАК ХозрасчетныйОбороты
        |УПОРЯДОЧИТЬ ПО
        |   Период Возр";
 
    Запрос.УстановитьПараметр("ВыбСчет",
        ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01")
    );
 
    ВидыСубконто = Новый Массив;
    ВидыСубконто.Добавить(
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады
    );
    Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто);
 
    Запрос.УстановитьПараметр("ВыбСклад",
        Справочники.Склады.НайтиПоНаименованию("Основной")
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
 
        Сообщить(
            Формат(Записи.Период, "ДФ=ММММ") + ": " +
            Записи.ПришёлТовар + " руб."
        );
 
    КонецЦикла;
 
    // ===========================================================
 
    // Пример №3
    Сообщить("Пример №3");
 
    // Узнаем сколько денег поступило в кассу от покупателей за 2014 год.
    // То есть проанализируем дебетовые обороты между 50.01 и 62.01
 
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |   ХозрасчетныйОбороты.Счет,
        |   ХозрасчетныйОбороты.КорСчет,
        |   ХозрасчетныйОбороты.СуммаОборотДт
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный.Обороты(
        |       ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00),
        |       ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59),
        |       Период,
        |       Счет = &ВыбСчет,
        |       ,
        |       ,
        |       КорСчет = &ВыбКорСчет
        |   ) КАК ХозрасчетныйОбороты";
 
    Запрос.УстановитьПараметр("ВыбСчет",
        ПланыСчетов.Хозрасчетный.НайтиПоКоду("50.01")
    );
 
    Запрос.УстановитьПараметр("ВыбКорСчет",
        ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01")
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
 
        Сообщить(
            "За 2014 год на " +
            Записи.Счет + " с " + Записи.КорСчет + " пришло " +
            Записи.СуммаОборотДт + " руб."
        );
 
    КонецЦикла;
 
КонецПроцедуры
 
/// Как получить остатки по бухгалтерскому счету в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПолучитьОстаткиПоСчетуНаСервере()
 
    // За получение остатков по бухгалтерским счетам
    // в разрезе аналитики отвечает виртуальная
    // таблица Остатки, у неё есть следующие параметры:
    // 1. Период (на который считаем остатки)
    // 2. Условие счета (например, Счет = &ВыбСчет)
    // 3. Субконто (список видов субконто, влияет на доступность
    //    и смысл Субконто1, Субконто2.., которыми можно оперировать
    //    в запросе
    // 4. Условие (например, Субконто1 = &ВыбСклад)
 
    // Найдём остатки товаров на всех складах на конец 2014 года.
    // То есть запросим дебетовые остатки по всем счетам,
    // входящих в группу 41 счёта в разрезе субконто Номенклатура.
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ХозрасчетныйОстатки.Счет,
        |   ХозрасчетныйОстатки.Субконто1 КАК Товар,
        |   ХозрасчетныйОстатки.КоличествоОстатокДт,
        |   ХозрасчетныйОстатки.СуммаОстатокДт        
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный.Остатки(
        |       ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59),
        |       Счет В ИЕРАРХИИ (&ВыбСчет), &ВидыСубконто
        |   ) КАК ХозрасчетныйОстатки";
 
    Запрос.УстановитьПараметр("ВыбСчет",
        ПланыСчетов.Хозрасчетный.НайтиПоКоду("41")
    );
 
    ВидыСубконто = Новый Массив;
    ВидыСубконто.Добавить(
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура
    );
    Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто);
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Сообщить("Остатки товаров по всем складам на конец 2014 года.");
 
    Пока Записи.Следующий() Цикл
 
        Сообщить(
            Записи.Товар.Наименование +
            " Количество [" + Записи.КоличествоОстатокДт + " шт.]" +
            " Сумма [" + Записи.СуммаОстатокДт + " руб.]"
        );
 
    КонецЦикла;
 
КонецПроцедуры
 
/// Как получить сразу остатки и обороты по бухгалтерскому счету
/// в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПолучитьСразуОстаткиИОборотыПоСчетуНаСервере()
 
    // За получение остатков и обротов за произвольный период
    // с заданной периодичностью в разрезе аналитики отвечает
    // виртуальная таблица ОстаткиИОбороты, у неё есть параметры:
    // 1. Начало периода
    // 2. Конец периода
    // 3. Периодичность (например, Период, Год, Месяц...)
    // 4. Метод дополнения периодов (Движение или ДвиженияИГраницыПериода)
    // 5. Условие счета (например, Счет = &ВыбСчет)
    // 6. Субконто (список видов субконто, влияет на доступность
    //    и смысл Субконто1, Субконто2.., которыми можно оперировать
    //    в запросе
    // 7. Условие (например, Субконто1 = &ВыбТовар)
 
    // Для примера получим начальный остаток, приход, расход, и
    // конечный остаток банана на всех складах за каждый месяц
    // 2014 года.
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ХозрасчетныйОстаткиИОбороты.Период,
        |   ХозрасчетныйОстаткиИОбороты.Счет,
        |   ХозрасчетныйОстаткиИОбороты.Субконто1,
        |   ХозрасчетныйОстаткиИОбороты.КоличествоНачальныйОстатокДт,
        |   ХозрасчетныйОстаткиИОбороты.КоличествоОборотДт,
        |   ХозрасчетныйОстаткиИОбороты.КоличествоОборотКт,
        |   ХозрасчетныйОстаткиИОбороты.КоличествоКонечныйОстатокДт
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
        |       ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00),
        |       ДАТАВРЕМЯ(2014, 12, 31, 23, 59, 59),
        |       Месяц, ДвиженияИГраницыПериода, 
        |       Счет В ИЕРАРХИИ (&ВыбСчет), &ВидыСубконто,
        |       Субконто1 = &ВыбТовар
        |   ) КАК ХозрасчетныйОстаткиИОбороты";
 
    Запрос.УстановитьПараметр("ВыбСчет",
        ПланыСчетов.Хозрасчетный.НайтиПоКоду("41")
    );
 
    ВидыСубконто = Новый Массив;
    ВидыСубконто.Добавить(
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура
    );
    Запрос.УстановитьПараметр("ВидыСубконто", ВидыСубконто);
 
    Запрос.УстановитьПараметр("ВыбТовар", 
        Справочники.Номенклатура.НайтиПоНаименованию("Банан")
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
        Сообщить(Формат(Записи.Период, "ДФ=ММММ") + ": ");
        Сообщить(
            Строка(Записи.Счет) + " " + Записи.Субконто1 + " " +
            "Нач. остаток " + Записи.КоличествоНачальныйОстатокДт +
            " приход " + Записи.КоличествоОборотДт + ", расход " +
            Записи.КоличествоОборотКт + " Кон. остаток " + 
            Записи.КоличествоКонечныйОстатокДт
        );
    КонецЦикла;
 
КонецПроцедуры
 
/// Как найти и изменить программно бухгалтерские проводки
/// документа в 1с 8.3, 8.2
 
&НаСервере
Процедура КакНайтиИИзменитьПроводкиДокументаНаСервере()
 
    // предположим у нас есть ссылка на проведенный
    // документ поступления еды № ВМБП-000002
 
    ПоступлениеСсылка = 
        Документы.ПоступлениеЕды.НайтиПоНомеру(
            "ВМБП-000002", '20141231');
 
    // мы знаем, что этот документ делает следующие
    // проводки по регистру бухгалтерии "Хозрасчетный":
    // - Дт 41.01 Кт 60.01
    // - Дт 60.01 Кт 50.01
 
    // наша задача: найти эти проводки бухгалтерские проводки
    // и изменить их (например, удвоим количество по дебету 41.01)
    // и записать вместо старых
 
    // используем объектную технику получения проводок,
    // ведь мы будем их изменять
 
    Поступление = ПоступлениеСсылка.ПолучитьОбъект();
 
    // получим набор проводок этого документа в регистр "Хозрасчетный"
    НаборПроводок = Поступление.Движения.Хозрасчетный;
 
    // прочитаем проводки из базы данных
    НаборПроводок.Прочитать();
 
    Для Каждого Проводка Из НаборПроводок Цикл
 
        // выведем старые значения
        Сообщить(
            "Дт " + Проводка.СчетДт + " (" + Проводка.КоличествоДт + " шт.) " +
            "Кт " + Проводка.СчетКт + " (" + Проводка.КоличествоКт + " шт.) " +
            Проводка.Сумма + " руб."
        ); 
 
        Если 
            Проводка.СчетДт = 
            ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01")
        Тогда
            // эта проводка в дебет 41 счёта
            // изменим её, удвоив количество по дебету
            Проводка.КоличествоДт = Проводка.КоличествоДт * 2;
        КонецЕсли;
 
    КонецЦикла;
 
    // добавим новую проводку
    НоваяПроводка = НаборПроводок.Добавить();
    // дт
    НоваяПроводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
    НоваяПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] =
         Справочники.Склады.НайтиПоНаименованию("Основной");
    НоваяПроводка.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] =
        Справочники.Номенклатура.НайтиПоНаименованию("Банан");
    НоваяПроводка.КоличествоДт = 333;    
    // кт
    НоваяПроводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01");
    НоваяПроводка.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты] =
        Справочники.Контрагенты.НайтиПоНаименованию("ООО ""Африка""");
    // общая часть
    НоваяПроводка.Период = ТекущаяДата();
    НоваяПроводка.Организация = Справочники.Организации.НайтиПоНаименованию("ООО ""Ромашка""");
    НоваяПроводка.Сумма = 5000;
    НоваяПроводка.Содержание = "Проводка добавлена программно.";
 
    //  разом запишем набор проводок
    НаборПроводок.Записать(
        Истина // удалим старые проводки и запишем вместо них новые
    );
 
    // теперь бухгалтерские проводки документа № ВМБП-000002,
    // отличаются от тех, что были записаны документом при проведении
    // чтобы вернуть их к начальному виду - нужно
    // перепровести документ
 
КонецПроцедуры
 
/// Как прочитать бухгалтерские проводки документа запросом в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПрочитатьПроводкиДокументаЗапросомНаСервере()
 
    // этот приём используется, если не требуется изменять
    // найденные проводки
 
    // предположим у нас есть ссылка на проведенный
    // документ поступления еды № ВМБП-000002
 
    ПоступлениеСсылка = 
        Документы.ПоступлениеЕды.НайтиПоНомеру(
            "ВМБП-000002", '20141231');
 
    // мы знаем, что этот документ делает проводки по
    // регистру бухгалтерии "Хозрасчетный"
 
    // прочитаем проводкипо регистру "Хозрасчетный" запросом
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Хозрасчетный.СчетДт,
        |   Хозрасчетный.СчетКт,
        |   Хозрасчетный.Сумма
        |ИЗ
        |   РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
        |ГДЕ
        |   Хозрасчетный.Регистратор = &ВыбРегистратор
        |
        |УПОРЯДОЧИТЬ ПО
        |   Хозрасчетный.НомерСтроки";
 
    Запрос.УстановитьПараметр("ВыбРегистратор", ПоступлениеСсылка);
 
    РезультатЗапроса = Запрос.Выполнить();
 
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
 
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        Сообщить(
            "Дт " + ВыборкаДетальныеЗаписи.СчетДт +
            " Кт " + ВыборкаДетальныеЗаписи.СчетКт + 
            " " + ВыборкаДетальныеЗаписи.Сумма + " руб."
        );
    КонецЦикла;
 
КонецПроцедуры
 
/// Как создать бухгалтерские проводки без привязки
/// к документу в 1с 8.3, 8.2
 
&НаСервере
Процедура КакСоздатьПроводкиБезДокументаНаСервере()
 
    // в нашей тестовой конфигурации нет документа
    // "ОперацияБух", который присутствует во всех
    // типовых
 
    Сообщить("Этот пример нельзя выполнить в этой базе.");
    Возврат;
 
    // бухгалтерские проводки обязательно должны быть к
    // привязаны к документу, в данном случае этим документом
    // будет документ "ОперацияБух", задуманный как раз для
    // ручных бухгалтерских операций
 
    // создаём и записываем пустой документ
    // пока без бухгалтерских проводок
    Операция = Документы.ОперацияБух.СоздатьДокумент();
    Операция.Дата = ТекущаяДата();
    Операция.Организация = Справочники.Организации.НайтиПоНаименованию("Ромашка");	
    Операция.СуммаОперации = 1000;
    Операция.Содержание = "Ручная операция по 41 счёту";
    Операция.Записать(РежимЗаписиДокумента.Запись);
 
    // затем получаем его набор проводок (пустой)
    // заполняем его и записываем
    НаборПроводок = Операция.Движения.Хозрасчетный;	
 
    Проводка = НаборПроводок.Добавить();
    Проводка.Период = Операция.Дата;
    Проводка.Организация = Операция.Организация;
    // дт
    Проводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
    Проводка.СубконтоДт[
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура
    ] = Справочники.Номенклатура.НайтиПоНаименованию("Банан");
 
    На41ВедетсяУчетПоСкладам = Проводка.СчетДт.ВидыСубконто.Найти(
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады
    ) <> Неопределено;
 
    Если На41ВедетсяУчетПоСкладам Тогда
        Проводка.СубконтоДт[
            ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады
        ] = Справочники.Склады.НайтиПоНаименованию("Основной");
    КонецЕсли;
 
    Проводка.КоличествоДт = 3;
    // кт
    Проводка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01");
    Проводка.СубконтоКт[
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты
    ] = Справочники.Контрагенты.НайтиПоНаименованию("Беркут");
    // общее
    Проводка.Сумма = 500;
 
    НаборПроводок.Записать(Истина);
 
КонецПроцедуры
 
/// Как получить информацию о бухгалтерском счёте
/// из плана счетов в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПолучитьИнформациюОСчетеНаСервере()
 
    // читаем информацию о счёте из плана счетов
 
    // находим счёт по коду
    Счёт41_1 = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
 
    // смотрим состав субконто
    Для Каждого Субконто Из Счёт41_1.ВидыСубконто Цикл        
        Сообщить("Субконто " + Субконто.ВидСубконто.Наименование);
        Сообщить("  Валютный " + Субконто.Валютный);
        Сообщить("  Количественный " + Субконто.Количественный);
        Сообщить("  Суммовой " + Субконто.Суммовой);
    КонецЦикла;
 
    // узнаем, ведётся ли на 41.01 учёт по складам
    // (другими словами есть ли у этого счёта субконто
    // склады)
 
    Если Счёт41_1.ВидыСубконто.Найти(
        ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады
    ) <> Неопределено Тогда
        Сообщить("На 41.01 ведётся учёт по складам.");
    Иначе
        Сообщить("На 41.01 ведётся учёт по складам не ведётся.");
    КонецЕсли;
 
    // узнаем является ли один счёт родителем другого
    Счёт41 = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41");
    Если Счёт41_1.ПринадлежитЭлементу(Счёт41) Тогда
        Сообщить(Счёт41.Код + " является родителем для " + 
            Счёт41_1.Код);
    КонецЕсли;
 
КонецПроцедуры
 
/// Скачать и выполнить эти примеры на компьютере

Документ «Корректировка записей регистров» в типовых конфигурациях 1С предназначен для ручной корректировки записей регистров накопления, зависимых регистров сведений и регистров бухгалтерии. Типичные ситуации, в которых может понадобиться документ «Корректировка записей регистров», — ввод начальных остатков, исправление ошибок в учете, отражение в учете операций, для которых в конфигурации нет специальных документов. В документе есть сервис автоматического заполнения движений с предопределенным действием «Сторно движений документа». С его помощь можно автоматически создать движения по регистрам бухгалтерии и регистрам накопления, аналогичные движениям указанного документа, но с отрицательными значениями.

Иногда количество вводимых записей по регистрам может быть велико и тогда целесообразно выполнить корректировку регистров программно. Документ «Корректировка записей регистров», как Вы уже, наверно, догадались, не совсем обычный. А иначе бы о нем не стоило и писать.

В качестве примера, когда может потребоваться программно создать документ «Корректировка записей регистров», предлагаю рассмотреть операцию переоценки основных средств. Переоценка основных средств — ситуация хоть и нечастая, но все же вполне реальная, а специального документа для переоценки в типовых конфигурациях 1С нет. Чтобы пример получился более представительным (включал в себя все виды корректируемых регистров), я сделал обработку для конфигурации «1С:Управление производственным предприятием». Но с другой стороны, чтобы не перегружать пример лишней информацией, мы рассмотрим случай, когда в результате переоценки происходит увеличение стоимости основных средств и накопленной амортизации (дооценка).

В этом случае переоценка основных средств отражается в бухгалтерском учете проводками:

* Дт. 01.01. — Кт. 83.01 — Увеличение первоначальной стоимости ОС.

* Дт. 83.01. — Кт. 02.01 — Увеличение суммы накопленной амортизации ОС.

В налоговом учете операция переоценки основных средств не предусмотрена, но для того чтобы соблюдалось равенство БУ = НУ + ПР + ВР, мы должны отразить в учете возникновение постоянных разниц. Также мы должны сделать движения в регистрах накопления «СтоимостьОС», «СтоимостьОСБухгалтерскийУчет» и в регистрах сведений «ПараметрыАмортизацииОС», «ПараметрыАмортизацииОСБухгалтерскийУчет», «СобытияОС» и «СобытияОСОрганизаций».

Исходные данные для переоценки ОС берутся из dbf-таблицы с набором полей:

* OS (строка) — код основного средства;

* SumU (число) — сумма дооценки по управленческому учету в единицах валюты управленческого учета;

* SumB (число) — сумма дооценки по бухгалтерскому учету;

* AmortU (число) — сумма дооценки накопленной амортизации по управленческому учету в единицах валюты управленческого учета;

* AmortB (число) — сумма дооценки накопленной амортизации по бухгалтерскому учету.

Упрощенный фрагмент кода обработки, иллюстрирующий запись проводок в регистр бухгалтерии, представлен в листинге:

Код 1C v 8.х

 Сч01_01 = ПланыСчетов.Хозрасчетный.ОСвОрганизации;
      

    Сч02_01 = ПланыСчетов.Хозрасчетный.АмортизацияОС_01;
      

    Сч83_01 = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке;
      

    ДБФ = Новый XBase;
      

    ДБФ.ОткрытьФайл(ИмяФайла);
      

    Если ДБФ.Открыта() Тогда
      

     Попытка
      

     НачатьТранзакцию();
      

      
     ДокКорректировка = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
      

     ЗаполнениеДокументов.ЗаполнитьШапкуДокумента(ДокКорректировка.ЭтотОбъект, ПараметрыСеанса.ТекущийПользователь);
      

     ДокКорректировка.Дата = Период; 
      

      
     НоваяСтрокаРегБух = ДокКорректировка.ТаблицаРегистровБухгалтерии.Добавить();
      

     НоваяСтрокаРегБух.Имя = "Хозрасчетный";
      

     НоваяСтрокаРегБух.Представление = "Журнал проводок (бухгалтерский учет)";
      

      
     ДокКорректировка.Записать();
      

     ДокКорректировкаСсылка = ДокКорректировка.Ссылка;
      

      
     НЗХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
      

     НЗХозрасчетный.Отбор.Регистратор.Значение = ДокКорректировкаСсылка;
      

      
     ДБФ.Первая();
      

     Пока Не ДБФ.ВКонце() Цикл
      

     ОсновноеСредство = Справочники.ОсновныеСредства.НайтиПоКоду(СокрЛП(ДБФ.OS));
      

     Если ОсновноеСредство.Пустая() Тогда
      

     Сообщить("Не найдено ОС с кодом " + ДБФ.OS + "!", СтатусСообщения.Важное);
      

     Продолжить;
      

     КонецЕсли;
      

      
     ЗХозрасчетный = НЗХозрасчетный.Добавить();
      

     ЗХозрасчетный.Период = Период;
      

     ЗХозрасчетный.Регистратор = ДокКорректировкаСсылка;
      

     ЗХозрасчетный.Организация = Организация;
      

     ЗХозрасчетный.Содержание = "Увеличение первоначальной стоимости ОС";
      

     ЗХозрасчетный.СчетДт = Сч01_01;
      

     ЗХозрасчетный.СчетКт = Сч83_01; 
      

     БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетДт, ЗХозрасчетный.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);
      

     БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетКт, ЗХозрасчетный.СубконтоКт, "ОсновныеСредства", ОсновноеСредство);
      

     ЗХозрасчетный.Сумма = ДБФ.SumB;
      

      
     ЗХозрасчетный = НЗХозрасчетный.Добавить();
      

     ЗХозрасчетный.Период = Период;
      

     ЗХозрасчетный.Регистратор = ДокКорректировкаСсылка;
      

     ЗХозрасчетный.Организация = Организация;
      

     ЗХозрасчетный.Содержание = "Увеличение накопленной амортизации ОС";
      

     ЗХозрасчетный.СчетДт = Сч83_01;
      

     ЗХозрасчетный.СчетКт = Сч02_01; 
      

     БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетДт, ЗХозрасчетный.СубконтоДт, "ОсновныеСредства", ОсновноеСредство);
      

     БухгалтерскийУчет.УстановитьСубконто(ЗХозрасчетный.СчетКт, ЗХозрасчетный.СубконтоКт, "ОсновныеСредства", ОсновноеСредство);
      

     ЗХозрасчетный.Сумма = ДБФ.AmortB;
      

      
     ДБФ.Следующая();
      

     КонецЦикла;
      

     ДБФ.ЗакрытьФайл();
      

     НЗХозрасчетный.Записать();
      

      
     ЗафиксироватьТранзакцию();
      

     Исключение
      

     Сообщить(ОписаниеОшибки(), СтатусСообщения.ОченьВажное);
      

     ОтменитьТранзакцию();
      

     КонецПопытки;
      

    КонецЕсли; 

Как видно из примера, документ «Корректировка записей регистров» используется в качестве регистратора, движения же записываются непосредственно в регистр. Движения по регистрам накопления и регистрам сведений делаются аналогично.

Смотрите так же: Корректировка регистров накопления через документ

Информация взята с сайта http://helpf.pro