v7: "Стоп Отгрузка" по истеченю 21 дня в БУ

В принципе у меня есть алгоритм вывода долгов по периодам, но честно говоря я так и не разобрался как он работает. Если интересно вот кусок кода:


Процедура ПолучитьИЗаполнитьДанные(СчетаУчета)

    

    Период1Расх       = 0;

    Период2Расх       = 0;

    Период3Расх       = 0;

    Период4Расх       = 0;

    Период5Расх       = 0; 

    Период6Расх       = 0;

    ПериодРасх        = 0;

    ПериодОплаты      = 0;

    ТекДолг         = 0;

    ПериодДолг1     = 0;

    ПериодДолг2     = 0;

    ПериодДолг3     = 0;

    ПериодДолг4     = 0;

    ПериодДолг5     = 0; 

    ПериодДолг6     = 0;

    ГрТекДолг         = 0;

    ГрПериод1         = 0;

    ГрПериод2         = 0;

    ГрПериод3         = 0;

    ГрПериод4         = 0;

    ГрПериод5         = 0;

    ГрПериод6         = 0;

    ИтТекДолг         = 0;

    ИтПериод1         = 0;

    ИтПериод2         = 0;

    ИтПериод3         = 0;

    ИтПериод4         = 0;

    ИтПериод5         = 0; 

    ИтПериод6         = 0;

            

    БИ=СоздатьОбъект("БухгалтерскиеИтоги");

    Если Фирма.Выбран()=1 Тогда

        БИ.ИспользоватьРазделительУчета(Фирма);

    КонецЕсли;     

    БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,ВыбКлиент);

    Заг="";

    Если ВыбКлиент.Выбран()=0 Тогда

        Заг = Заг + "По всем клиентам;";

    ИначеЕсли ВыбКлиент.ЭтоГруппа()=1 Тогда

        Заг = Заг + "По клиентам группы " + СокрЛП(ВыбКлиент.Наименование) + ";";

    Иначе

        Заг=Заг + "По клиенту " + СокрЛП(ВыбКлиент.Наименование) + ";";

    КонецЕсли;

    Пер = "";

    Пер=Пер+" По ДатаС;";

    ВсеДни = Пр5+1; 

    Дата1=ДатаС-ВсеДни;

    Дата2=ДатаС;

    

    БИ.ВыполнитьЗапрос(Дата1,Дата2,СчетаУчета,,,3,"День");

        

    Период1К = ДатаС; 

    Период1Н = Период1К-Пр1+1; 

    

    Период2К = Период1Н-1; 

    Период2Н = Период1К-Пр2+1; 

    

    Период3К = Период2Н-1; 

    Период3Н = Период1К-Пр3+1;

    

    Период4К = Период3Н-1; 

    Период4Н = Период1К-Пр4+1; 

    

    Период5К = Период4Н-1; 

    Период5Н = Период1К-Пр5+1; 

    

    Период6К = Период5Н-1; 

    Период6Н = Дата1;

    

    Таб = СоздатьОбъект("Таблица");

    Таб.ИсходнаяТаблица("Взаиморасчеты");

    

    Если флПризнакСумм = 1 Тогда

        печПризнакСуммы = "В"

    ИначеЕсли флПризнакСумм = 2 Тогда

        печПризнакСуммы = "Б"

    Иначе

        печПризнакСуммы = "Н"

    КонецЕсли;

        

    Таб.ВывестиСекцию("Заголовок");

    ЧислоСтрок = 0;

    

    БИ.ВыбратьСубконто(); 

    

    Пока БИ.ПолучитьСубконто()>0 Цикл

        Если ВыбАгент.Выбран()=1 Тогда

            Если БИ.Субконто().Менеджер<>ВыбАгент Тогда

                Продолжить;

            КонецЕсли;

        КонецЕсли;

        Если БИ.Субконто().ЭтоГруппа() = 1 Тогда

            Если (ГрТекДолг+ГрПериод1+ГрПериод2+ГрПериод3+ГрПериод4+ГрПериод5+ГрПериод6) > 0 Тогда

                Таб.ВывестиСекцию("ГруппаИтог");

                ГрТекДолг = 0;

                ГрПериод1 = 0;

                ГрПериод2 = 0;

                ГрПериод3 = 0;

                ГрПериод4 = 0;

                ГрПериод5 = 0; 

                ГрПериод6 = 0;

            КонецЕсли;

            Таб.ВывестиСекцию("Группа");

            Продолжить;

        КонецЕсли; 

        НачОст         = БИ.СНД()-БИ.СНК();

        Период6Расх = НачОст;//Период6Расх+

        БИ.ВыбратьПериоды();

        Пока БИ.ПолучитьПериод()>0 Цикл

                    

                //ПрДатаДок = БИ.Операция.Документ.ДатаДок;//Запрос.День;

                ПрДатаДок     = БИ.НачДата;//Запрос.День;

                ПрПрихГРН     = ?(БИ.КО()>0,БИ.КО(),0)-?(БИ.ДО()<0,БИ.ДО(),0); //Запрос.ПрихГРН;

                ПрРасхГРН     = ?(БИ.ДО()>0,БИ.ДО(),0)-?(БИ.КО()<0,БИ.КО(),0); //Запрос.РасхГРН;

                //Если (ПрДатаДок <= Период5К) И (ПрДатаДок >= Период5Н) тогда

            //Период5Расх = Период5Расх+ПрРасхГРН;

            //Период5Расх = НачОст;//Период5Расх+

            //КонецЕсли;

            Если (ПрПрихГРН <> 0) И (ПрРасхГРН = 0) Тогда

                ПериодОплаты=ПериодОплаты+ПрПрихГРН;                

            ИначеЕсли (ПрПрихГРН = 0) И (ПрРасхГРН <> 0) Тогда

                Если (ПрДатаДок <= Период1К) И (ПрДатаДок >= Период1Н) тогда

                    Период1Расх = Период1Расх+ПрРасхГРН;

                ИначеЕсли (ПрДатаДок <= Период2К) И (ПрДатаДок >= Период2Н) тогда

                    Период2Расх = Период2Расх+ПрРасхГРН;

                ИначеЕсли (ПрДатаДок <= Период3К) И (ПрДатаДок >= Период3Н) тогда

                    Период3Расх = Период3Расх+ПрРасхГРН;

                ИначеЕсли (ПрДатаДок <= Период4К) И (ПрДатаДок >= Период4Н) тогда

                    Период4Расх = Период4Расх+ПрРасхГРН; 

                ИначеЕсли (ПрДатаДок <= Период5К) И (ПрДатаДок >= Период5Н) тогда

                    Период5Расх = Период5Расх+ПрРасхГРН;    

                    //ИначеЕсли (ПрДатаДок <= Период5К) И (ПрДатаДок >= Период5Н) тогда

                    ////    //Период5Расх = Период5Расх+ПрРасхГРН;

                    //    Период5Расх = Период5Расх+НачОст;

                КонецЕсли;

            ИначеЕсли (ПрПрихГРН <> 0) И (ПрРасхГРН <> 0) Тогда

                ПериодОплаты=ПериодОплаты+ПрПрихГРН;                

                Если (ПрДатаДок <= Период1К) И (ПрДатаДок >= Период1Н) тогда

                    Период1Расх = Период1Расх+ПрРасхГРН;

                ИначеЕсли (ПрДатаДок <= Период2К) И (ПрДатаДок >= Период2Н) тогда

                    Период2Расх = Период2Расх+ПрРасхГРН;

                ИначеЕсли (ПрДатаДок <= Период3К) И (ПрДатаДок >= Период3Н) тогда

                    Период3Расх = Период3Расх+ПрРасхГРН;

                ИначеЕсли (ПрДатаДок <= Период4К) И (ПрДатаДок >= Период4Н) тогда

                    Период4Расх = Период4Расх+ПрРасхГРН; 

                ИначеЕсли (ПрДатаДок <= Период5К) И (ПрДатаДок >= Период5Н) тогда

                    Период5Расх = Период5Расх+ПрРасхГРН;    

                КонецЕсли;

            КонецЕсли;

            

            

                    

        КонецЦикла;                 

    

        // расчет задолженности по периодам минус оплаты    

        ПериодРасх   = Период1Расх + Период2Расх + Период3Расх + Период4Расх + Период5Расх + Период6Расх;

        //ПериодДолг5 = Период5Расх;

        Если ПериодОплаты > 0 Тогда

            ПериодОплаты=ПериодОплаты-Период6Расх;

            Если ПериодОплаты > 0 Тогда

                //ПериодДолг6 = 0;

                ПериодОплаты=ПериодОплаты-Период5Расх;

                Если  ПериодОплаты > 0 Тогда

                    ПериодДолг5 = 0;

                    ПериодОплаты=ПериодОплаты-Период4Расх;

                    Если  ПериодОплаты > 0 Тогда

                        ПериодДолг4 = 0;

                        ПериодОплаты=ПериодОплаты-Период3Расх;

                        Если  ПериодОплаты > 0 Тогда

                            ПериодДолг3 = 0;

                            ПериодОплаты=ПериодОплаты-Период2Расх;

                            Если  ПериодОплаты > 0 Тогда

                                ПериодДолг2 = 0;

                                ПериодОплаты=ПериодОплаты-Период1Расх;

                                Если  ПериодОплаты > 0 Тогда

                                    ПериодДолг1 = 0;

                                Иначе 

                                    ПериодДолг1 = -1*ПериодОплаты;

                                КонецЕсли;

                            Иначе 

                                ПериодДолг2 = -1*ПериодОплаты;

                                ПериодДолг1 = Период1Расх;

                            КонецЕсли;

                        Иначе 

                            ПериодДолг3 = -1*ПериодОплаты;

                            ПериодДолг2 = Период2Расх;

                            ПериодДолг1 = Период1Расх;

                        КонецЕсли;

                    Иначе 

                        ПериодДолг4 = -1*ПериодОплаты;

                        ПериодДолг3 = Период3Расх;

                        ПериодДолг2 = Период2Расх;

                        ПериодДолг1 = Период1Расх;

                    КонецЕсли;

                Иначе    

                    ПериодДолг5 = -1*ПериодОплаты;

                    ПериодДолг4 = Период4Расх;

                    ПериодДолг3 = Период3Расх;

                    ПериодДолг2 = Период2Расх;

                    ПериодДолг1 = Период1Расх;

                КонецЕсли; 

            Иначе    

                ПериодДолг6 = -1*ПериодОплаты;

                ПериодДолг5 = Период5Расх;

                ПериодДолг4 = Период4Расх;

                ПериодДолг3 = Период3Расх;

                ПериодДолг2 = Период2Расх;

                ПериодДолг1 = Период1Расх;

            КонецЕсли;    

        Иначе

            ПериодДолг6 = Период6Расх;

            ПериодДолг5 = Период5Расх;

            ПериодДолг4 = Период4Расх;

            ПериодДолг3 = Период3Расх;

            ПериодДолг2 = Период2Расх;

            ПериодДолг1 = Период1Расх;

        КонецЕсли;    

        

        ТекДолг     = ПериодДолг1 + ПериодДолг2 + ПериодДолг3 + ПериодДолг4 + ПериодДолг5 + ПериодДолг6 - ?(ПериодОплаты>0,ПериодОплаты,0);

        

        Если ТекДолг < 0 Тогда

            ПериодДолг6 = 0;

            ПериодДолг5 = 0;

            ПериодДолг4 = 0;

            ПериодДолг3 = 0;

            ПериодДолг2 = 0;

            ПериодДолг1 = 0;

        КонецЕсли;

        

        Если ПризнПоказ = 1 Тогда //показывать без долга

            Если (ПериодДолг3 >= Крт3) или (ПериодДолг6 >= Крт5) Тогда

                Если ПериодДолг6 >= Крт5 Тогда

                    Таб.ВывестиСекцию("Клиент3");

                Иначе

                    Таб.ВывестиСекцию("Клиент2");

                КонецЕсли; 

            Иначе

                Таб.ВывестиСекцию("Клиент");

            КонецЕсли; 

        

        Иначе

            Если (ТекДолг+ПериодДолг6+ПериодДолг5+ПериодДолг4+ПериодДолг3+ПериодДолг2+ПериодДолг1)>0 Тогда

                Если (ПериодДолг3 >= Крт3) или (ПериодДолг6 >= Крт5) Тогда

                    Если ПериодДолг6 >= Крт5 Тогда

                        Таб.ВывестиСекцию("Клиент3");

                    Иначе

                        Таб.ВывестиСекцию("Клиент2");

                    КонецЕсли; 

                Иначе

                    Таб.ВывестиСекцию("Клиент");

                КонецЕсли; 

            КонецЕсли; 

        

        

        КонецЕсли; 

        Если ТекДолг<0 Тогда

            ТекДолг =0;

        КонецЕсли;

        

        //Сообщить("Тек долг"+Запрос.ЗначениеУпорядочивания(1,1)+ТекДолг);    

        

        ИтТекДолг = ИтТекДолг + ТекДолг;

        ИтПериод1 = ИтПериод1 + ПериодДолг1;

        ИтПериод2 = ИтПериод2 + ПериодДолг2;

        ИтПериод3 = ИтПериод3 + ПериодДолг3;

        ИтПериод4 = ИтПериод4 + ПериодДолг4;

        ИтПериод5 = ИтПериод5 + ПериодДолг5; 

        ИтПериод6 = ИтПериод6 + ПериодДолг6;

        

        ГрТекДолг = ГрТекДолг + ТекДолг;

        ГрПериод1 = ГрПериод1 + ПериодДолг1;

        ГрПериод2 = ГрПериод2 + ПериодДолг2;

        ГрПериод3 = ГрПериод3 + ПериодДолг3;

        ГрПериод4 = ГрПериод4 + ПериодДолг4;

        ГрПериод5 = ГрПериод5 + ПериодДолг5;

        ГрПериод6 = ГрПериод6 + ПериодДолг6;

        

        ПериодДолг1 = 0;

        ПериодДолг2 = 0;

        ПериодДолг3 = 0;

        ПериодДолг4 = 0;

        ПериодДолг5 = 0; 

        ПериодДолг6 = 0;

        ТекДолг     = 0;

        

        Период1Расх   = 0;

        Период2Расх   = 0;

        Период3Расх   = 0;

        Период4Расх   = 0;

        Период5Расх   = 0; 

        Период6Расх   = 0;

        ПериодРасх    = 0;

        ПериодОплаты  = 0;

        

    КонецЦикла;

    Таб.ВывестиСекцию("ГруппаИтог");

    Таб.ВывестиСекцию("ИтогоГРН");

    

    // конец "обработка дебиторской задолженности    

    

    Таб.Опции(0,0,5,0);

    Таб.ТолькоПросмотр(1);

    Таб.Показать("Структура дебиторской задолженности","");



КонецПроцедуры