HelpF.pro

Как получить виды субконто счета

Пример получения возможных видов субконто у счета
Код 1C v 8.2 УП
  &НаСервере
Процедура ВывестиСубконтоСчета(сч)
	
	ТаблицаСубконто = Сч.ВидыСубконто;
	Для Каждого ТекущаяСтрока Из ТаблицаСубконто Цикл 
		Сообщить(ТекущаяСтрока.ВидСубконто);
	КонецЦикла; 
		
КонецПроцедуры   


Пример получения значений субконто в движениях документа
Код 1C v 8.2 УП
  &НаСервере
Процедура ВывестиСубконтоДокумента(ДокументПроверки)
	
	Регистр    = РегистрыБухгалтерии.Бухгалтерский;
	ДвиженияБУ = Регистр.ВыбратьПоРегистратору(ДокументПроверки);
	
	Пока ДвиженияБУ.Следующий() Цикл
		Сообщить("Проводка "+ДвиженияБУ.НомерСтроки);
		Сообщить("Счет Дт " +ДвиженияБУ.СчетДт);
		ТаблицаСубконтоДт = ДвиженияБУ.СчетДт.ВидыСубконто;
		Для Каждого ТекущаяСтрока Из ТаблицаСубконтоДт Цикл
		    Сообщить("Субконто Дт"+ТекущаяСтрока.НомерСтроки +" - "+ДвиженияБУ.СубконтоДт[ТекущаяСтрока.ВидСубконто]);
		КонецЦикла; 
		Сообщить("Счет Кт " +ДвиженияБУ.СчетКт);
		ТаблицаСубконтоКт = ДвиженияБУ.СчетКт.ВидыСубконто;
		Для Каждого ТекущаяСтрока Из ТаблицаСубконтоКт Цикл 
		    Сообщить("Субконто Кт"+ТекущаяСтрока.НомерСтроки +" - "+ДвиженияБУ.СубконтоКт[ТекущаяСтрока.ВидСубконто]);
		КонецЦикла; 
	КонецЦикла;	
		
КонецПроцедуры
   

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/1330.html