Если ПоДоговорам=1 Тогда
                //расшифровываем по заказам
                Ит.ВыбратьСубконто(2);
                Пока Ит.ПолучитьСубконто(2)=1 Цикл
                    Договор=Ит.Субконто(2);
                    Расшифровка.Установить("Меню",Меню);
                    Расшифровка.Установить("ВидСубконто1",ВидыСубконто.Контрагенты);
                    Расшифровка.Установить("Субконто1",Контрагент);
                    Расшифровка.Установить("ВидСубконто2",ВидыСубконто.Заказы);
                    Расшифровка.Установить("Субконто2",Договор);
                    Расшифровка.Установить("ПланСчетов",ВыбранныйПланСчетов());
                    Расшифровка.Установить("ОтборСубконто1",2);
                    Расшифровка.Установить("ОтборСубконто2",2);
                    Расшифровка.Установить("ПоГруппам1",0);
                    Расшифровка.Установить("ПоГруппам2",0);
                    Расшифровка.Установить("ДанныеПоСубсчетам",1);
                            
                    СальдоДоговор=Ит.СКД()-Ит.СКК();
                    Расшифровка.Установить("Сальдо",СальдоДоговор);
                    ПрихДолгДоговор=0;
                    РасхДолгДоговор=0;
                    ДолгНачДоговор=0;
                    Если (ДолгНам=1)и(ДолгНаш=0) Тогда
                        Если СальдоДоговор<=0 Тогда
                            Продолжить;
                        КонецЕсли;
                    КонецЕСли;
                    Если (ДолгНаш=1)и(ДолгНам=0) Тогда
                        Если СальдоДоговор>=0 Тогда
                            Продолжить;
                        КонецЕсли;
                    КонецЕСли;
                    Если (ДолгНаш=0)и(ДолгНам=0) Тогда
                        Продолжить;
                    КонецЕсли;
                    Если Макс(СальдоДоговор,(-1)*СальдоДоговор)>СуммаДолга Тогда
                        // теперь заполним таблицу приходов расходов
                        // и посчитаем ПриходОбщий по контрагенту
                        // причем заполняем также как и таблицу БИ начиная с самого раннего
                        ТабКонтр.УдалитьСтроки();
                        ПриходОбщийДоговор = 0;
                        ПерваяСтрокаДоговор = 1;
                        ТабБИ.ВыбратьСтроки();
                        Пока ТабБИ.ПолучитьСтроку() = 1 Цикл
                            БИТек = ТабБИ.БИ;
                            БИТек.ВыбратьСубконто(1);
                            ПрихДолгДоговор=0;
                            РасхДолгДоговор=0;
                            ТабКонтр.НоваяСтрока();
                            Если БИТек.ПолучитьСубконто(1,,Контрагент) = 1 Тогда 
                                БИТек.ВыбратьСубконто(2);
                                Если БИТек.ПолучитьСубконто(2,,Договор)=1 Тогда
                                    Если ПерваяСтрокаДоговор = 1 Тогда
                                        ДолгНачДоговор=БИТек.СНД()-БИТек.СНК();
                                        ПерваяСтрокаДоговор = 0;
                                    КонецЕсли;    
                                    ТабКонтр.ПрихДолг = БИТек.ДО();
                                    ТабКонтр.РасхДолг = БИТек.КО();
                                    Если СальдоДоговор > 0 Тогда
                                        ПриходОбщийДоговор = ПриходОбщийДоговор + Макс(0,ТабКонтр.РасхДолг);
                                    Иначе
                                        ПриходОбщийДоговор = ПриходОбщийДоговор + Макс(0,ТабКонтр.ПрихДолг);
                                    КонецЕсли;    
                                КонецЕсли;
                            КонецЕсли;
                        КонецЦикла;        
                        ТабДляПечати.УдалитьСтроки();
                        Если СальдоДоговор>0 Тогда
                            // А теперь считаем и записываем в ТабДляПечати чтобы проще выводить
                            // правда в обратном порядке
                            ДолгВсегоДоговор=СальдоДоговор; 
                            ДолгОбщийДоговор=ДолгВсегоДоговор;
                            ВознДолг4Договор=Макс(0,ДолгНачДоговор-ПриходОбщийДоговор);
                            УменьшениеДолгаДоговор=Макс(ДолгНачДоговор,ДолгНачДоговор-ПриходОбщийДоговор);
                            ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                            ТабКонтр.ВыбратьСтроки();
                            Пока ТабКонтр.ПолучитьСтроку() = 1 Цикл
                                ПДДоговор=ТабКонтр.ПрихДолг-Мин(0,ТабКонтр.РасхДолг);
                                ВознДолгДоговор=Макс(0,ПДДоговор-ПриходОбщийДоговор);
                                УменьшениеДолгаДоговор=Макс(ПДДоговор,ПДДоговор-ПриходОбщийДоговор);
                                ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                                ТабДляПечати.НоваяСтрока();
                                ТабДляПечати.ВознДолг = ВознДолгДоговор;
                            КонецЦикла;    
                        Иначе
                            ДолгВсегоДоговор=СальдоДоговор; 
                            ДолгОбщийДоговор=ДолгВсегоДоговор;
                            ВознДолг4Договор=Мин(0,ДолгНачДоговор + ПриходОбщийДоговор);
                            УменьшениеДолгаДоговор=Мин(-ДолгНачДоговор,ПриходОбщийДоговор);
                            ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                            ТабКонтр.ВыбратьСтроки();
                            Пока ТабКонтр.ПолучитьСтроку() = 1 Цикл
                                ПДДоговор=ТабКонтр.РасхДолг-Мин(0,ТабКонтр.ПрихДолг);
                                ВознДолгДоговор=-Макс(0,ПДДоговор-ПриходОбщийДоговор);
                                УменьшениеДолгаДоговор=Макс(ПДДоговор,ПДДоговор-ПриходОбщийДоговор);
                                ПриходОбщийДоговор=Макс(0,ПриходОбщийДоговор-УменьшениеДолгаДоговор);
                                ТабДляПечати.НоваяСтрока();
                                ТабДляПечати.ВознДолг = ВознДолгДоговор;
                            КонецЦикла;    
                        КонецЕсли;                
                        Если ((ВознДолг4Договор > 0) и (ДолгНам = 1)) или ((ВознДолг4Договор < 0) и (ДолгНаш = 1)) Тогда
                            НазваниеСтрокиДоговор = "ДолгДоговор";
                        Иначе
                            НазваниеСтрокиДоговор = "СтрокаДоговор";
                        КонецЕсли;
                        Таб.ВывестиСекцию(НазваниеСтрокиДоговор+"|Сальдо");
                        i = Глубина + 1;
                        Пока i > 0  Цикл
                            ВознДолгДоговор = ТабДляПечати.ПолучитьЗначение(i,"ВознДолг");
                            Таб.ПрисоединитьСекцию(НазваниеСтрокиДоговор+"|Долг1");
                            i = i - 1;
                        КонецЦикла;    
                        Таб.ПрисоединитьСекцию(НазваниеСтрокиДоговор+"|ДолгРанее");
                    КонецЕсли;
                КонецЦикла;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    ИтСальдо = Итоги[1];
    Таб.ВывестиСекцию("Итог|Сальдо");
    Для i = 2 По Глубина + 3 Цикл
        ИтСальдо = Итоги[i];
        Таб.ПрисоединитьСекцию("Итог|Долг1");
    КонецЦикла;    
    Таб.Опции(0,0,4,2);
    Таб.ТолькоПросмотр(1);  
    Таб.ОбластьПечати(2,);
    Таб.ПовторятьПриПечатиСтроки(3,4);
    Таб.ПараметрыСтраницы(1,,,5,5,5,5,0,5,1,1);
    Таб.Показать("Задолженость организаций","");
КонецПроцедуры
//*******************************************