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

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

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

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

Код 1C v 8.х

 // Добавление записей в регистр, подчиненный регистратору (замещение)

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



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



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



НоваяЗапись.Период = ВыбранныйРегистратор.Дата;

НоваяЗапись.Номенклатура = ВыбраннаяНоменклатура;

НоваяЗапись.ДоговорКонтрагента = ВыбранныйДоговор;

НоваяЗапись.ЛимитПоставщика = 50;



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

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

Код 1C v 8.х

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

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



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



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



НоваяЗапись.Период = ВыбранныйРегистратор.Дата;

НоваяЗапись.Номенклатура = ВыбраннаяНоменклатура;

НоваяЗапись.ДоговорКонтрагента = ВыбранныйДоговор;

НоваяЗапись.ЛимитПокупателю = 25;



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

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

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

Код 1C v 8.х

 

// Задать выбираемые значения. 

ВыбранныйОтветственный = Справочники.Пользователи.НайтиПоНаименованию("Иванцова"); 

ВыбранныйКонтрагент = Справочники.Контрагенты.НайтиПоКоду("00027"); 

ВыбранныйДоговор = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00013"); 

ВыбранныйДокумент = Документы.ДокументРасчетовСКонтрагентом.НайтиПоНомеру(2, '20050101'); 

ВыбранныйСчет = Справочники.БанковскиеСчета.НайтиПоКоду("00001"); 

ВыбраннаяСтатья = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("00002"); 

ВыбраннаяОрганизация = Справочники.Организации.НайтиПоКоду("00001"); 

ВыбраннаяВалюта = Справочники.Валюты.НайтиПоКоду(810); 



// Создать будущий регистратор. 

ДатаЗаписи = ТекущаяДата(); 

Документ = Документы.ОперацияБух.СоздатьДокумент(); 

Документ.Дата = ДатаЗаписи; 

Документ.Организация = ВыбраннаяОрганизация; 

Документ.Ответственный = ВыбранныйОтветственный; 

Документ.Содержание = "Оплата поставщику"; 

Документ.Записать(); 



// Создать набор записей. 

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



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



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

Движение.Регистратор = Документ.Ссылка; 

Движение.Период = ДатаЗаписи; 



// Заполнить счет дебета. 

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



// Заполнить аналитику счета дебета. 

Движение.СубконтоДт.Контрагенты = ВыбранныйКонтрагент; 

Движение.СубконтоДт.Договоры = ВыбранныйДоговор; 

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



// Заполнить счет кредита. 

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



// Заполнить аналитику счета кредита. 

Движение.СубконтоКт.БанковскиеСчета = ВыбранныйСчет; 

Движение.СубконтоКт.СтатьиДвиженияДенежныхСредств = ВыбраннаяСтатья; 



// Балансовое измерение. 

Движение.Организация = ВыбраннаяОрганизация; 



// Балансовый ресурс. 

Движение.Сумма = 300000; 



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

Движение.Содержание = "Оплата поставщику"; 



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

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

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