helpf.pro
  Регистрация
Все категории 1С 8.x : » Регистры накопления Регистры накопления 
 +4 
 
 
Распечатать

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

Часто возникает ситуация, когда программно нужно внести какие либо корректировки в регистры накопления и чтобы потом эти корректировки можно было легко поменять!
В типовых конфигурациях присутсвует документ "Корректировка Записей Регистров Накопления", который предназначен для ручной корректировки записей регистров накопления и для ввода остатков.

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

Код 1C v 8.х
 

	// ТЗрез - это Таблица значений содержащая столбец "FizL" - ФизЛицо и "RUB" Сумма корректировки

	

	НовДок = Документы.КорректировкаЗаписейРегистровНакопления.ПолучитьФормуНовогоДокумента(); 

	НовДок.Дата=ТекущаяДата();

	НовДок.Комментарий="Корректировка регистра ВзаиморасчетыСРаботникамиОрганизаций";        

	// Создадим табличную часть движений регистра

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

	НоваяСтрока.Имя = Метаданные.регистрынакопления.ВзаиморасчетыСРаботникамиОрганизаций.имя;

	НоваяСтрока.Представление = Метаданные.регистрынакопления.ВзаиморасчетыСРаботникамиОрганизаций.синоним;

	// Создадим движения

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

	НовДвиж = НовДок.Движения.ВзаиморасчетыСРаботникамиОрганизаций.ДобавитьПриход();

	НовДвиж.ФизЛицо=СтрДвиж.FizL;

	НовДвиж.Организация=Организация;

	НовДвиж.ПериодВзаиморасчетов=ВыбДокНачисл.ПериодРегистрации;

	НовДвиж.СуммаВзаиморасчетов = СтрДвиж.RUB;

	КонецЦикла;

	

	//НовДок.Записать(); //Пока не записываем

	НовДок.Открыть(); //Покажем документ пользователю
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 27813
 +4 
 
 
Распечатать
Возможно, вас также заинтересует
17 правил для составления оптимального ЗАПРОСа к данным базы 1С  15
  Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно...
1C и Google Maps  13
 была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во...
1С 8.x : Как убрать лидирующие нули в номере Документа (вариант2)  0
  Скопировать строку с номером, с лидирующими нулями, в числовом поле (с форматом без групп, без группировки), и вернуть(скопировать) обратно в строковом поле с номером. Возвращает без нулей.
COM-подключение к базе 7.7 из 8.2 1С  5
 Если код выполняется на стороне клиента, то необходимо наличие базы 7.7 на локальной машине. Пример (На форме объекта присутствует реквизит Таблица(ТаблицаЗначений)): НаКлиенте Процедура Загрузки() ПутьКБазе="...
Cообщение: "Не удалось удалить чеки ККМ!"  2
  Пользователь с правами Администратор ККМ проводит Закрытие кассовой смены (Z). Выходит сообщение: " Не удалось удалить чеки ККМ!" ФР печатает Z -отчет, но Отчет о рознчничных продажах не формируется. Необходимо дать...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.