&НаСервере

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

	

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

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

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

	КонецЦикла; 

		

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

  &НаСервере

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

	

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

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

	

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

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

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

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

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

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

		КонецЦикла; 

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

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

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

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

		КонецЦикла; 

	КонецЦикла;	

		

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

   

 Процедура ОбработкаПроведения(Отказ, Режим) 



    СторнируемыеДвижения = РегистрыБухгалтерии.Хозрасчетный.ВыбратьПоРегистратору(СторнируемыйДокумент); 

    

    Пока СторнируемыеДвижения.Следующий() Цикл 

        Проводка = Движения.Хозрасчетный.Добавить(); 

        Проводка.Период = Дата; 

        Проводка.СчетДт = СторнируемыеДвижения.СчетДт; 

        Проводка.СчетКт = СторнируемыеДвижения.СчетКт; 



        Для каждого Субконто Из СторнируемыеДвижения.СубконтоДт Цикл 

            Проводка.СубконтоДт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



        Для каждого Субконто Из СторнируемыеДвижения.СубконтоКт Цикл 

            Проводка.СубконтоКт[Субконто.Ключ] = Субконто.Значение; 

        КонецЦикла; 



        Проводка.ВалютаДт = СторнируемыеДвижения.ВалютаДт; 

        Проводка.ВалютаКт = СторнируемыеДвижения.ВалютаКт; 

        Проводка.ВалютнаяСуммаДт = - СторнируемыеДвижения.ВалютнаяСуммаДт; 

        Проводка.ВалютнаяСуммаКт = - СторнируемыеДвижения.ВалютнаяСуммаКт; 

        Проводка.КоличествоДт = - СторнируемыеДвижения.КоличествоДт; 

        Проводка.КоличествоКт = - СторнируемыеДвижения.КоличествоКт; 

        Проводка.НомерЖурнала = СторнируемыеДвижения.НомерЖурнала; 

        Проводка.Организация = СторнируемыеДвижения.Организация; 

        Проводка.Содержание = СторнируемыеДвижения.Содержание; 

        Проводка.Сумма = - СторнируемыеДвижения.Сумма; 

    КонецЦикла; 



    Движения.Хозрасчетный.Записать(); 



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