Документ закрытие счетов. Может закрыть в 0 вообще все счета!

Привожу код модуля документа, для тех, кому не судьба скачать:

 

Перем Ит;

Перем МСубконто[3];

//**********************************************************

Процедура СформироватьОперацию(ДК=0,СчетДвиж,Субконто_1,Субконто_2,Субконто_3,Сумма,Количество)

    Операция.НоваяПроводка();

    Операция.ПервичныйДокумент  = «Закрытие счетов № » + НомерДок;

    Операция.Количество = Количество;

    Операция.Сумма = Сумма;

    Если ДК = 0 Тогда

        Если СчетДвиж.Забалансовый = 0 Тогда

            Операция.Дебет.Счет = СчетТранзита;

            Операция.Дебет.Субконто(1,Субконто1);

            Операция.Дебет.Субконто(2,Субконто2);

            Операция.Дебет.Субконто(3,Субконто3);

        КонецЕсли;

        Операция.Кредит.Счет = СчетДвиж;

        Если МСубконто[1] <> 0 Тогда

            Операция.Кредит.Субконто(МСубконто[1],Субконто_1);

        КонецЕсли;

        Если МСубконто[2] <> 0 Тогда

            Операция.Кредит.Субконто(МСубконто[2],Субконто_2);

        КонецЕсли;

        Если МСубконто[3] <> 0 Тогда

            Операция.Кредит.Субконто(МСубконто[3],Субконто_3);

        КонецЕсли;

    Иначе

        Если СчетДвиж.Забалансовый = 0 Тогда

            Операция.Кредит.Счет = СчетТранзита;

            Операция.Кредит.Субконто(1,Субконто1);

            Операция.Кредит.Субконто(2,Субконто2);

            Операция.Кредит.Субконто(3,Субконто3);

        КонецЕсли;

        Операция.Дебет.Счет = СчетДвиж;

        Если МСубконто[1] <> 0 Тогда

            Операция.Дебет.Субконто(МСубконто[1],Субконто_1);

        КонецЕсли;

        Если МСубконто[2] <> 0 Тогда

            Операция.Дебет.Субконто(МСубконто[2],Субконто_2);

        КонецЕсли;

        Если МСубконто[3] <> 0 Тогда

            Операция.Дебет.Субконто(МСубконто[3],Субконто_3);

        КонецЕсли;

    КонецЕсли;

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

//**************************************************

Процедура ЗакрытьСчет(Счет)

    КолСубконто = 0;

    Для Б = 1 По 3 Цикл

        МСубконто[Б] = 0;

    КонецЦикла;

    Для А = 1 По Счет.КоличествоСубконто() Цикл

        //Оборотные субконто нас не интересуют!

        Если Счет.ТолькоОбороты(А) = 0 Тогда

            Ит.ИспользоватьСубконто(Счет.ВидСубконто(А),, 1);

            КолСубконто = КолСубконто + 1;

            МСубконто[КолСубконто] = А;

        КонецЕсли;

    КонецЦикла;

    Ит.ВыполнитьЗапрос(ДатаДок, ДатаДок, Счет,,,1,, 1+4);

    Если КолСубконто = 0 Тогда

        Если (Ит.СКД() <> 0) или (Ит.СКД(3) <> 0) Тогда

            СформироватьОперацию(0,Счет,,,,Ит.СКД(),Ит.СКД(3));

        ИначеЕсли (Ит.СКК() <> 0) или (Ит.СКК(3) <> 0) Тогда

            СформироватьОперацию(1,Счет,,,,Ит.СКК(),Ит.СКК(3));

        КонецЕсли;

    ИначеЕсли КолСубконто > 0 Тогда

        Ит.ВыбратьСубконто(Счет.ВидСубконто(МСубконто[1]));

        Пока Ит.ПолучитьСубконто(Счет.ВидСубконто(МСубконто[1])) = 1 Цикл

            Если КолСубконто > 1 Тогда

                //Для материальных счетов = итоговые проводки по сумме делаем сразу

                Если (Счет.УчетПосумме(2) = 0) и (Счет.УчетПоКоличеству(2) = 1) Тогда

                    Если (Ит.СКД() <> 0) или (Ит.СКД(3) <> 0) Тогда

                        СформироватьОперацию(0,Счет,Ит.Субконто(1),,,Ит.СКД(),0);

                    ИначеЕсли (Ит.СКК() <> 0) или (Ит.СКК(3) <> 0) Тогда

                        СформироватьОперацию(1,Счет,Ит.Субконто(1),,,Ит.СКК(),0);

                    КонецЕсли;

                ИначеЕсли (Счет.УчетПосумме(2) = 1) и (Счет.УчетПоКоличеству(2) = 0) Тогда

                    Если (Ит.СКД() <> 0) или (Ит.СКД(3) <> 0) Тогда

                        СформироватьОперацию(0,Счет,Ит.Субконто(1),,,0,Ит.СКД(3));

                    ИначеЕсли (Ит.СКК() <> 0) или (Ит.СКК(3) <> 0) Тогда

                        СформироватьОперацию(1,Счет,Ит.Субконто(1),,,0,Ит.СКК(3));

                    КонецЕсли;

                КонецЕсли;

                Ит.ВыбратьСубконто(Счет.ВидСубконто(МСубконто[2]));

                Пока Ит.ПолучитьСубконто(Счет.ВидСубконто(МСубконто[2])) = 1 Цикл

                    Если КолСубконто > 2 Тогда

                        Ит.ВыбратьСубконто(Счет.ВидСубконто(МСубконто[3]));

                        Пока Ит.ПолучитьСубконто(Счет.ВидСубконто(МСубконто[3])) = 1 Цикл

                            Если (Ит.СКД() <> 0) или (Ит.СКД(3) <> 0) Тогда

                                СформироватьОперацию(0,Счет,Ит.Субконто(1),Ит.Субконто(2),Ит.Субконто(3),Ит.СКД(),Ит.СКД(3));

                            ИначеЕсли (Ит.СКК() <> 0) или (Ит.СКК(3) <> 0) Тогда

                                СформироватьОперацию(1,Счет,Ит.Субконто(1),Ит.Субконто(2),Ит.Субконто(3),Ит.СКК(),Ит.СКК(3));

                            КонецЕсли;

                        КонецЦикла;

                    Иначе

                        Если (Ит.СКД() <> 0) или (Ит.СКД(3) <> 0) Тогда

                            СформироватьОперацию(0,Счет,Ит.Субконто(1),Ит.Субконто(2),,Ит.СКД(),Ит.СКД(3));

                        ИначеЕсли (Ит.СКК() <> 0) или (Ит.СКК(3) <> 0) Тогда

                            СформироватьОперацию(1,Счет,Ит.Субконто(1),Ит.Субконто(2),,Ит.СКК(),Ит.СКК(3));

                        КонецЕсли;

                    КонецЕсли;

                КонецЦикла;

            Иначе

                Если (Ит.СКД() <> 0) или (Ит.СКД(3) <> 0) Тогда

                    СформироватьОперацию(0,Счет,Ит.Субконто(1),,,Ит.СКД(),Ит.СКД(3));

                ИначеЕсли (Ит.СКК() <> 0) или (Ит.СКК(3) <> 0) Тогда

                    СформироватьОперацию(1,Счет,Ит.Субконто(1),,,Ит.СКК(),Ит.СКК(3));

                КонецЕсли;

            КонецЕсли;

        КонецЦикла;

    КонецЕсли;

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

//**************************************************

Процедура ОбработкаПроведения()

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

    Ит.ИспользоватьПланСчетов(ОсновнойПланСчетов());

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

    ВыбратьСтроки();

    Пока ПолучитьСтроку() = 1 Цикл

        ЗакрытьСчет(СчетЗакрытия);

    КонецЦикла;

    Операция.Записать();

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