&НаСервере

Процедура ВывестиСубконтоСчета(сч)

	

	ТаблицаСубконто = Сч.ВидыСубконто;

	Для Каждого ТекущаяСтрока Из ТаблицаСубконто Цикл 

		Сообщить(ТекущаяСтрока.ВидСубконто);

	КонецЦикла; 

		

КонецПроцедуры   

  &НаСервере

Процедура ВывестиСубконтоДокумента(ДокументПроверки)

	

	Регистр    = РегистрыБухгалтерии.Бухгалтерский;

	ДвиженияБУ = Регистр.ВыбратьПоРегистратору(ДокументПроверки);

	

	Пока ДвиженияБУ.Следующий() Цикл

		Сообщить("Проводка "+ДвиженияБУ.НомерСтроки);

		Сообщить("Счет Дт " +ДвиженияБУ.СчетДт);

		ТаблицаСубконтоДт = ДвиженияБУ.СчетДт.ВидыСубконто;

		Для Каждого ТекущаяСтрока Из ТаблицаСубконтоДт Цикл

		    Сообщить("Субконто Дт"+ТекущаяСтрока.НомерСтроки +" - "+ДвиженияБУ.СубконтоДт[ТекущаяСтрока.ВидСубконто]);

		КонецЦикла; 

		Сообщить("Счет Кт " +ДвиженияБУ.СчетКт);

		ТаблицаСубконтоКт = ДвиженияБУ.СчетКт.ВидыСубконто;

		Для Каждого ТекущаяСтрока Из ТаблицаСубконтоКт Цикл 

		    Сообщить("Субконто Кт"+ТекущаяСтрока.НомерСтроки +" - "+ДвиженияБУ.СубконтоКт[ТекущаяСтрока.ВидСубконто]);

		КонецЦикла; 

	КонецЦикла;	

		

КонецПроцедуры