Давайте посмотрим на примере банковского счета. Конечно, это изврат, но клиент он всегда говорят прав. Итак, нам нужно два субсчета и чтобы банковская выписка работала. Да простит меня минфин с их типовым планом, правим план счетов и делаем два субсчета.

Но если сейчас попробовать делать банковскую выписку Вы получите сообщение об ошибках. Нам нужно где-то хранить информацию на каком счете находится субсчет. Лучше всего наверно в справочнике "банковские счета". Делаем новый реквизит в справочнике банковские счета.

И помещаем на форму для заполнения.

Теперь нужно запустить 1C и заполнить этот реквизит (вообще масло масленное получится, если вдуматься, ну да ладно).

И исправить код документа выписка. Для этого нужно сделать переменную, она есть просто нужно объявить ее для того, чтобы можно было воспользоваться. Это мы делаем в модуле формы.

Перем Новый;
Перем СписокДействий;    
Перем  ВыбрБанковскийСчет;

//********************

При выборе банковского счета устанавливаем переменную СЧ_51, которая используется для проведения.

Процедура ПриВыбореБанковскогоСчета()
	ВыбрБанковскийСчет = СоздатьОбъект("Справочник.БанковскиеСчета");
	ВыбрБанковскийСчет.НайтиЭлемент(БанковскийСчет);
	Если ВыбрБанковскийСчет.Выбрать("Укажите расчетный счет","ДляВыбора") = 1 Тогда
		БанковскийСчет = ВыбрБанковскийСчет.ТекущийЭлемент();
	КонецЕсли;
	Сч51=ВыбрБанковскийСчет.Сч;
	УстановитьТипВыписки();
КонецПроцедуры

И все. Теперь можно проводить выписку и операции будут распределены по субсчетам.