1. Vitaly1C8 09.07.19 17:28 Сейчас в теме

Заполнить реквизит типа Характеристика.ВидыСубконтоХозрасчетные

Добрый день !
В ТабличнойЧасти документа есть реквизит Субконто1 типа Характеристика.ВидыСубконтоХозрасчетные
Как мне программно его заполнить, если точно известно что это Номенклатура ?

// ПрочиеРасходы 
// элНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
			тчСтр.Субконто1 = элНоменклатура; 

Найденные решения
4. Comrade88 09.07.19 22:11 Сейчас в теме
элНоменклатура - должен быть тип "ссылка", а не тип "объект".

Например так:

элНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();

элНоменклатура.Наименование = "Тестовая";
элНоменклатура.Записать();
элНоменклатураСсылка = элНоменклатура.Ссылка;

тчСтр.Субконто1 = элНоменклатура;
Vitaly1C8; +1 Ответить
Остальные ответы
Избранное Подписка Сортировка: Древо
4. Comrade88 09.07.19 22:11 Сейчас в теме
элНоменклатура - должен быть тип "ссылка", а не тип "объект".

Например так:

элНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();

элНоменклатура.Наименование = "Тестовая";
элНоменклатура.Записать();
элНоменклатураСсылка = элНоменклатура.Ссылка;

тчСтр.Субконто1 = элНоменклатура;
Vitaly1C8; +1 Ответить
5. Comrade88 09.07.19 23:20 Сейчас в теме
тчСтр.Субконто1 = элНоменклатура;

заменить на
тчСтр.Субконто1 = элНоменклатураСсылка;
Vitaly1C8; +1 Ответить
2. aka Любитель XML 09.07.19 17:46 Сейчас в теме
В общем модуле БухгалтерскийУчет есть Процедура УстановитьСубконто(Счет, Субконто, ИмяСубконто, ЗначениеСубконто) - посмотрите как она работает.
darkmessiahan; Vitaly1C8; +2 Ответить
3. darkmessiahan 91 09.07.19 21:57 Сейчас в теме
	Опер = ОперацияБух.ПолучитьОбъект();
	//Опер.Движения.Хозрасчетный.Очистить();
	РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
	РегХозрасчетный.Отбор.Регистратор.Установить(ОперацияБух.Ссылка);
	РегХозрасчетный.Прочитать();
	РегХозрасчетный.Очистить();
	Для Каждого Стр из ТаблицаДвижений Цикл
		
		РегЗапись = РегХозрасчетный.Добавить();
		РегЗапись.Период = ОперацияБух.Дата;
		РегЗапись.Регистратор = ОперацияБух;
		РегЗапись.Организация = ОперацияБух.Организация;
		РегЗапись.Содержание  = "Свернуто по номенклатуре и складу";
		РегЗапись.СчетДт = Стр.Счет;
		БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Номенклатура", Стр.Субконто1);
		БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Склады", Стр.Субконто2);
		РегЗапись.Сумма = Стр.СуммаНоменклатуры;
		РегЗапись.КоличествоДт = Стр.КоличествоНоменклатуры;
		РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;
		
	КонецЦикла;  
	РегХозрасчетный.Записать(Истина);  
	//Опер.Комментарий = "План и факт " + Строка()
	Опер.СуммаОперации = ПересчитатьСуммуОперации();
	//Опер.ПолучитьФорму("ФормаДокумента").Открыть();
	Получформ =  Опер.ПолучитьФорму("ФормаДокумента");
	//Опер.Движения.Хозрасчетный.об
	Получформ.Открыть();
	Получформ.Обновить();
	//ЭтотОбъект.Движения.Хозрасчетный.Очистить();
Показать
Vitaly1C8; +1 Ответить
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Вакансии

Бизнес-аналитик 1С
Санкт-Петербург
зарплата от 120 000 руб.
Полный день

Программист 1С
Москва
Полный день

Консультант-аналитик 1С
Москва
Полный день

Консультант ERP-систем
Москва
Временный (на проект)

Бизнес-аналитик 1С
Москва
зарплата от 90 000 руб. до 150 000 руб.
Полный день