выбранныйдоговор » Поиск

Результаты по ключевому слову: выбранныйдоговор

Как добавить записи в регистр сведений, подчиненный регистратору?

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

Код 1C v 8.х

 // Добавление записей в регистр, подчиненный регистратору (замещение)
НаборЗаписей = РегистрыСведений.ЛимитыВозвратнойТары.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(ВыбранныйРегистратор);

НоваяЗапись = НаборЗаписей.Добавить();

НоваяЗапись.Период = ВыбранныйРегистратор.Дата;
НоваяЗапись.Номенклатура = ВыбраннаяНоменклатура;
НоваяЗапись.ДоговорКонтрагента = ВыбранныйДоговор;
НоваяЗапись.ЛимитПоставщика = 50;

НаборЗаписей.Записать();

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

Код 1C v 8.х

 // Добавление записей в регистр, подчиненный регистратору
НаборЗаписей = РегистрыСведений.ЛимитыВозвратнойТары.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить(ВыбранныйРегистратор);

НоваяЗапись = НаборЗаписей.Добавить();

НоваяЗапись.Период = ВыбранныйРегистратор.Дата;
НоваяЗапись.Номенклатура = ВыбраннаяНоменклатура;
НоваяЗапись.ДоговорКонтрагента = ВыбранныйДоговор;
НоваяЗапись.ЛимитПокупателю = 25;

НаборЗаписей.Записать(Ложь);

Категория: Регистры сведений

Формирование проводок в регистре бухгалтерии

Код 1C v 8.х

 
// Задать выбираемые значения. 
ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию("Иванцова"); 
ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду("00027"); 
ВыбранныйДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00013"); 
ВыбранныйДокумент = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру(2, '20050101'); 
ВыбранныйСчет = Справочники.БанковскиеСчета.НайтиПоКоду("00001"); 
ВыбраннаяСтатья = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("00002"); 
ВыбраннаяОрганизация = Справочники.Организации.НайтиПоКоду("00001"); 
ВыбраннаяВалюта = Справочники.Валюты.НайтиПоКоду(810); 

// Создать будущий регистратор. 
ДатаЗаписи = ТекущаяДата(); 
Документ = Документы.ОперацияБух.СоздатьДокумент(); 
Документ.Дата = ДатаЗаписи; 
Документ.Организация = ВыбраннаяОрганизация; 
Документ.Ответственный = ВыбранныйОтветственный; 
Документ.Содержание = "Оплата поставщику"; 
Документ.Записать(); 

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

НаборЗаписей.Отбор.Регистратор.Установить(Документ.Ссылка); 

Движение = НаборЗаписей.Добавить(); 
Движение.Регистратор = Документ.Ссылка; 
Движение.Период = ДатаЗаписи; 

// Заполнить счет дебета. 
Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("60.01"); 

// Заполнить аналитику счета дебета. 
Движение.СубконтоДт.Контрагенты = ВыбранныйКонтрагент; 
Движение.СубконтоДт.Договоры = ВыбранныйДоговор; 
Движение.СубконтоДт.ДокументыРасчетовСКонтрагентами = ВыбранныйДокумент; 

// Заполнить счет кредита. 
Движение.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("51"); 

// Заполнить аналитику счета кредита. 
Движение.СубконтоКт.БанковскиеСчета = ВыбранныйСчет; 
Движение.СубконтоКт.СтатьиДвиженияДенежныхСредств = ВыбраннаяСтатья; 

// Балансовое измерение. 
Движение.Организация = ВыбраннаяОрганизация; 

// Балансовый ресурс. 
Движение.Сумма = 300000; 

// Реквизиты.Движение.НомерЖурнала = "БК"; 
Движение.Содержание = "Оплата поставщику"; 

// Записать набор записей. 
НаборЗаписей.Записать();

Категория: Регистры бухгалтерии