Спасибо автору!
Помогает найти большинство косяков.
Плохо, что она не показывает результаты в виде таблицы значений (см. аттач) пришлось немного дописать
=============
Процедура СтрокиТЗПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
// Вставить содержимое обработчика.
сч=1;
если Не ДанныеСтроки.Дебет16=ДанныеСтроки.Дебет20 Тогда
ОформлениеСтроки.Ячейки.Дебет16.ЦветФона=ЦветРазличающихся;
ОформлениеСтроки.Ячейки.Дебет20.ЦветФона=ЦветРазличающихся;
КонецЕсли;
если Не ДанныеСтроки.Кредит16=ДанныеСтроки.Кредит20 Тогда
ОформлениеСтроки.Ячейки.Кредит16.ЦветФона=ЦветРазличающихся;
ОформлениеСтроки.Ячейки.Кредит20.ЦветФона=ЦветРазличающихся;
КонецЕсли;
КонецПроцедуры
=== Строка 99 - заменить на кусок кода
СтрокаЗаписи0=СтрокаОбъекта.Строки.Добавить();
СтрокаЗаписи0.НеНашли = НЕ Нашли;
СтрокаЗаписи0.Различаются = Истина;
СтрокаЗаписи0.Имя=Строка(Счетчик);
СтрокаЗаписи=СтрокаЗаписи0.Строки.Добавить();
СтрокаЗаписи.Имя="Измерения";
НоваяСтрокаТЗ=СтрокиТЗ.Добавить();
Для Каждого Измерение из Измерения Цикл
СтрокаИзмерения=СтрокаЗаписи.Строки.Добавить();
СтрокаИзмерения.Имя=?(Нашли,НайтиОбъект(стр[Измерение.Значение]),ВСтрокуCOM(стр[Измерение.Значение]));
//ДмитрийК
Если Нашли Тогда
Если Найти(Измерение.Значение,"Субконто")>0 Тогда
НоваяСтрокаТЗ[Измерение.Значение]=СтрокаИзмерения.Имя;
ИначеЕсли Измерение.Значение="Счет" ТОгда
НоваяСтрокаТЗ[Измерение.Значение]=СтрокаИзмерения.Имя;
КонецЕсли;
КонецЕсли;
КонецЦикла;
СтрокаЗаписи=СтрокаЗаписи0.Строки.Добавить();
СтрокаЗаписи.Имя="Ресурсы";
Для Каждого Ресурс из Ресурсы Цикл
Для Каждого Приставка2 из Приставка2М Цикл
СтрокаЗначения=СтрокаЗаписи.Строки.Добавить();
СтрокаЗначения.Имя=""+Ресурс.Значение+Приставка+Приставка2;
//СтрокаЗначения.Значение
СтрокаЗначения.Значение2=ОКР(стр[Ресурс.Значение+Приставка+Приставка2],Ресурс.РазрядностьДробнойЧасти);
Если Нашли Тогда
//СтрокаЗначения.Значение2
СтрокаЗначения.Значение=ОКР(стр1[Ресурс.Значение+Приставка+Приставка2],Ресурс.РазрядностьДробнойЧасти);
КонецЕсли;
Если Найти(СтрокаЗначения.Имя,"Дт")>0 Тогда
НоваяСтрокаТЗ.Дебет16=Число(СтрокаЗначения.Значение2);
НоваяСтрокаТЗ.Дебет20=Число(СтрокаЗначения.Значение);
ИначеЕсли Найти(СтрокаЗначения.Имя,"Кт")>0 Тогда
НоваяСтрокаТЗ.Кредит16=Число(СтрокаЗначения.Значение2);
НоваяСтрокаТЗ.Кредит20=Число(СтрокаЗначения.Значение);
КонецЕсли;
КонецЦикла;
КонецЦикла;
Если НоваяСтрокаТЗ.Дебет16=НоваяСтрокаТЗ.Дебет20 И НоваяСтрокаТЗ.Дебет20=НоваяСтрокаТЗ.Кредит20 Тогда
СтрокиТЗ.Удалить(НоваяСтрокаТЗ);
КонецЕсли;
Прикрепленные файлы:
Безымянный.jpg
