ВидыСубконто1 = Счет1.ВидыСубконто;
ВидыСубконто2 = Счет2.ВидыСубконто;
Для Каждого ВидСубконто1 Из ВидыСубконто1 Цикл
Отбор.Вставить("ВидСубконто",ВидСубконто1.ВидСубконто);
Строки = ВидыСубконто2.НайтиСтроки(Отбор);
Если Строки.Количество() = 0 Тогда
Сообщить("Не найдено");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВидыСубконтоНаСчете1.ВидСубконто КАК ВидСубконтоНаСчете1,
| ВидыСубконтоНаСчете2.ВидСубконто КАК ВидСубконтоНаСчете2
|ИЗ
| ПланСчетов.Хозрасчетный.ВидыСубконто КАК ВидыСубконтоНаСчете1
| ПОЛНОЕ СОЕДИНЕНИЕ ПланСчетов.Хозрасчетный.ВидыСубконто КАК ВидыСубконтоНаСчете2
| ПО ВидыСубконтоНаСчете1.ВидСубконто = ВидыСубконтоНаСчете2.ВидСубконто
|ГДЕ
| (ВидыСубконтоНаСчете1.ВидСубконто ЕСТЬ NULL
| ИЛИ ВидыСубконтоНаСчете2.ВидСубконто ЕСТЬ NULL )
| И ВидыСубконтоНаСчете1.Ссылка = &Счет1
| И ВидыСубконтоНаСчете2.Ссылка = &Счет2";
Запрос.УстановитьПараметр("Счет1", Счет1);
Запрос.УстановитьПараметр("Счет2", Счет2);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Сообщить("Мы в пролёте: субконты рознятся!");
КонецЕсли;
Пример не учитывает всяческие признаки учета субконто (на одном счете по субконто межт вестись количественный учет, а на другом - по тому же субконто - нет) и порядок следования субконто на счетах.