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

Форум Программирование Общие вопросы программирования (Dev)

1С:ERP Управление предприятием 2 Платформа 1С v8.3

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

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

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

Найденные решения

4. Comrade88 8 09.07.19 22:11 Сейчас в теме

элНоменклатура - должен быть тип "ссылка", а не тип "объект".

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

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

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

тчСтр.Субконто1 = элНоменклатура;

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

4. Comrade88 8 09.07.19 22:11 Сейчас в теме

элНоменклатура - должен быть тип "ссылка", а не тип "объект".

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

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

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

тчСтр.Субконто1 = элНоменклатура;

5. Comrade88 8 09.07.19 23:20 Сейчас в теме

тчСтр.Субконто1 = элНоменклатура;

заменить на

тчСтр.Субконто1 = элНоменклатураСсылка;

2. aka Любитель XML 09.07.19 17:46 Сейчас в теме

В общем модуле БухгалтерскийУчет есть Процедура УстановитьСубконто(Счет, Субконто, ИмяСубконто, ЗначениеСубконто) - посмотрите как она работает.

3. Teut_Vlad 191 09.07.19 21:57 Сейчас в теме

	Опер = ОперацияБух.ПолучитьОбъект();
	//Опер.Движения.Хозрасчетный.Очистить();
	РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
	РегХозрасчетный.Отбор.Регистратор.Установить(ОперацияБух.Ссылка);
	РегХозрасчетный.Прочитать();
	РегХозрасчетный.Очистить();
	Для Каждого Стр из ТаблицаДвижений Цикл
		
		РегЗапись = РегХозрасчетный.Добавить();
		РегЗапись.Период = ОперацияБух.Дата;
		РегЗапись.Регистратор = ОперацияБух;
		РегЗапись.Организация = ОперацияБух.Организация;
		РегЗапись.Содержание  = "Свернуто по номенклатуре и складу";
		РегЗапись.СчетДт = Стр.Счет;
		БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Номенклатура", Стр.Субконто1);
		БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Склады", Стр.Субконто2);
		РегЗапись.Сумма = Стр.СуммаНоменклатуры;
		РегЗапись.КоличествоДт = Стр.КоличествоНоменклатуры;
		РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный;
		
	КонецЦикла;  
	РегХозрасчетный.Записать(Истина);  
	//Опер.Комментарий = "План и факт " + Строка()
	Опер.СуммаОперации = ПересчитатьСуммуОперации();
	//Опер.ПолучитьФорму("ФормаДокумента").Открыть();
	Получформ =  Опер.ПолучитьФорму("ФормаДокумента");
	//Опер.Движения.Хозрасчетный.об
	Получформ.Открыть();
	Получформ.Обновить();
	//ЭтотОбъект.Движения.Хозрасчетный.Очистить();

Показать

Оставьте свое сообщение

E-mail: