1С 7.7 Объединение 2 таблиц значений

ТЗ_1 - это данные из документа "Выписка".
ТЗ_1 - это данные из документа "Выписка".
ТЗ_1.КоррСчет    |  ТЗ_1.Субконто1      |   ТЗ_1.Субконто2   |   ТЗ_1.Приход
62.1                Чайный клуб             Договор 001          300
62.1                Иванов                  Договор 001          500
62.1                Пионер                  Договор 005          100

ТЗ_2 - это список всех контрагентов
ТЗ_2.Код        |   ТЗ_2.Наименование   |   ТЗ_2.ПолнНаименование
00001               Иванов                  ИП Иванов А.А.
00002               Петров                  ИП Петров И.И.
...
00053               Пионер                  ООО "Пионер"
00054               Статус                  ЗАО "Статус"
...
00177               Чайный клуб             ООО "Чайничек"

	ТЗ2 = СоздатьОбъект("ТаблицаЗначений");
	ТЗ2.НоваяКолонка("КК","Строка",5);
	ТЗ2.НоваяКолонка("Наименование2","Строка",50);
	ТЗ2.НоваяКолонка("ПолнНаименование","Строка",50);
	СпрКонтр = СоздатьОбъект("Справочник.Контрагенты");
	СпрКонтр.ВыбратьЭлементы();
	Пока СпрКонтр.ПолучитьЭлемент() = 1 Цикл
		Если СпрКонтр.ЭтоГруппа()=1 Тогда // Без групп
			Продолжить;
		КонецЕсли;
		Родитель=СпрКонтр.Родитель;
		Если СокрЛП(Родитель)="ДОМБАЙ УСН" Тогда
			ТЗ2.НоваяСтрока();
			ТЗ2.КК = СпрКонтр.Код;
			ТЗ2.Наименование2 = СокрЛП(СпрКонтр.Наименование);
			ТЗ2.ПолнНаименование = СокрЛП(СпрКонтр.ПолнНаименование);
		КонецЕсли;
		    ТЗ2.Сортировать("ПолнНаименование,Наименование2");
	КонецЦикла;
    
	ТЗ1 = СоздатьОбъект("ТаблицаЗначений");
	ТЗ1.НоваяКолонка("НомерСтроки","Число",5);
	ТЗ1.НоваяКолонка("КоррСчет","Число",4,1);
	ТЗ1.НоваяКолонка("Субконто1","Строка",50);
	ТЗ1.НоваяКолонка("Субконто2","Строка",50);
	ТЗ1.НоваяКолонка("Приход","Число",15,2);
	ТЗ1.НоваяКолонка("КК","Строка",50);
	ТЗ1.НоваяКолонка("ПолнНаименование","Строка",50);
	Выписка = Докум;
	Выписка.УстановитьФильтр(1); // по желанию , 0
	НомерСтроки=0;
	Выписка.ВыбратьСтроки();
	Пока Выписка.ПолучитьСтроку() = 1 Цикл
		ТЗ1.НоваяСтрока();
		ТЗ1.НомерСтроки = ТЗ1.НомерСтроки + 1;
		ТЗ1.КоррСчет = СокрЛП(Выписка.КоррСчет);
		ТЗ1.Субконто1 = СокрЛП(Выписка.Субконто1);
		ТЗ1.Субконто2 = СокрЛП(Выписка.Субконто2);
		ТЗ1.Приход = Выписка.Приход;
		Если ПустоеЗначение(Выписка.Приход)=1 Тогда
			Продолжить;    
		КонецЕсли;
	КонецЦикла;

	ТЗ1.ВыбратьСтроки();
	Пока ТЗ1.ПолучитьСтроку() = 1 Цикл
	    ТЗ2.ВыбратьСтроки();
	    Пока ТЗ2.ПолучитьСтроку() = 1 Цикл
	        ТЗ1.УстановитьЗначение(ТЗ1.НомерСтроки,ТЗ1.КК,ТЗ2.КК);
	        ТЗ1.УстановитьЗначение(ТЗ1.НомерСтроки,ТЗ1.ПолнНаименование,ТЗ2.ПолнНаименование);
			Сообщить(ТЗ1.КК+" "ТЗ1.ПолнНаименование+" "+ТЗ1.КоррСчет+" "+ТЗ1.Субконто1+" "+ТЗ1.Субконто2+" "+ТЗ1.Приход);
	    КонецЦикла;
	КонецЦикла;