В начало

РН «Взаиморасчеты»

 

            Создаем регистр накопления (РН) «Взаиморасчеты». Открываем конфигуратор в разделе «Регистры накопления», добавляем новый. На закладке свойств «Основные» вписываем имя регистра, вид регистра – остатки.

            На закладке «Подсистемы» указываем куда он будет входить.

            На закладке «Данные» определяемся с ресурсами и измерениями.

Рис. 1. Закладка «Данные» РН «Взаиморасчеты»

Рис. 1. Закладка «Данные» РН «Взаиморасчеты»

 

Таблица 1. Свойства пользовательских реквизитов РН «Взаиморасчеты»

Реквизит

Значение

Измерение «Контрагент»

СправочникСсылкаонтрагент

Ресурс «СуммаДолга»

Число, 10:2

 

            На закладке «Регистраторы» указываем документы ,которые будут осуществлять движения по данному регистру.

Рис. 2. Закладка «Регистраторы»

Рис. 2. Закладка «Регистраторы»

 

            Далее нужно перейти в каждый из выбранных документов-регистраторов и описать движение в модуле объекта. Т.е. сначала нужно зайти на «Документы – Приходная – Прочее – Модуль объекта – ОбработкаПроведения» и добавить код в процедуру «ОбработкаПроведения».

 

Листинг 1. Код для процедуры «ОбработкаПроведения»
в модуле объекта документа «Приходная»

            //Регистр "Взаиморасчеты"

            СуммаДокумента = Товарытог("Сумма");

            Если НЕ Валютаустая() Тогда //Если поле заполнено

                        Курс = ОбщиеМеханизмыолучитьКурсВалюты(Валюта, Дата);

                         СуммаДокумента = СуммаДокумента / Курс;

            КонецЕсли;

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

            Запись = Движениязаиморасчеты.ДобавитьРасход();

            Записьериод = Дата;

            Записьонтрагент = Контрагент;

            ЗаписьуммаДолга = СуммаДокумента;

А потом необходимо все это проделать с документом «Расходная», т.е. зайти на «Документы – Расходная – Прочее – Модуль объекта – ОбработкаПроведения» и добавить код в процедуру «ОбработкаПроведения».

 

Листинг 2. Код для процедуры «ОбработкаПроведения»
в модуле объекта документа «Расходная»

            //Регистр "Взаиморасчеты"

            СуммаДокумента = Товарытог("Сумма");

            Если НЕ Валютаустая() Тогда //Если поле заполнено

                        Курс = ОбщиеМеханизмыолучитьКурсВалюты(Валюта, Дата);

                         СуммаДокумента = СуммаДокумента / Курс;

            КонецЕсли;

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

            Запись = Движениязаиморасчеты.ДобавитьПриход();

            Записьериод = Дата;

            Записьонтрагент = Контрагент;

            ЗаписьуммаДолга = СуммаДокумента;

 

            Затем в режиме «1Средприятие» выбираем «Все функции – Стандартные – Проведение документов», выбираем документы «Приходная» и «Расходная», выбираем период и массово перепроводим их.

            Далее опять же заходим в меню «Все функции – Регистры накопления – Взаиморасчеты» и смотрим движения по регистру «Взаиморасчеты».

Рис. 3. Регистр «Взаиморасчеты»

            ПРИМЕЧАНИЕ: описано создание регистра накопления «Взаиморасчеты» применительно к версии 8.3 приложения «1Средприятие», интерфейс «Такси».