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

07.10.11

Задачи пользователя - Корректировка данных

Данный документ встраивается в любую конфигурацию, построенную на компоненте "Бухгалтерский учет". Просто скопируйте документ и назначьте ему нужный журнал. Что документ делает? Все очень просто: в табличной части указывается список балансовых счетов, которые нужно закрыть в 0. При проведении документ анализирует сальдо по счетам и формирует проводки, закрывающие счет, в корреспонденции с тем счетом, который указан в шапке документа. Может быть полезен, когда регламентные документы не позволяют закрыть, например, 90,44,20 счет из - за невыполнения каких - либо условий,  а также как шаблон для собственной разработки.

Скачать файлы

Наименование Файл Версия Размер
1Cv7.MD
.MD 179,00Kb
91
.MD 179,00Kb 91 Скачать

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

 


Перем Ит;

Перем
МСубконто[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 Цикл

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

    КонецЦикла;

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

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

 

См. также

Книга доходов и расходов и кассовая книга для 1С 7.7 любой конфигурации для предприятий на УСН, ПСН, ЕСХН

Закрытие периода Кассовые операции Учет доходов и расходов Платформа 1С v7.7 Конфигурации 1cv7 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет ИП, ПБОЮЛ, КФХ Платные (руб)

Комплекс внешних обработок для ведения в электронной форме КУДиР - книги учёта доходов и расходов для предприятий на УСН, ПСН, ЕСХН. Автоматическое заполнение раздела 1, 4, 5 из журнала документов вашей информационной базы. Формирование кассовой книги №КО-4, приходных кассовых ордеров №КО-1 и расходных кассовых ордеров №КО-2.

2400 руб.

20.10.2014    124292    222    129    

218

Переход на НДС 20% для 1С:7.7

Корректировка данных Бухгалтерский учет 7.7 1С:Упрощенное налогообложение 7.7 Россия Бухгалтерский учет НДС Абонемент ($m)

Для 1С:Предприятия 8 переход на НДС 20% сделан, а для 7.7 я не нашел. Выкладываю.

1 стартмани

24.12.2018    18501    34    pentanom    25    

5

Групповая обработка документов и справочников v.7.7

Корректировка данных Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

1. Обработка позволяет совершать следующие действия над объектами: а. СПРАВОЧНИКИ: удаление; пометка на удаление; снятие пометки на удаление. б. ДОКУМЕНТЫ: удаление; пометка на удаление; снятие пометки на удаление; проведение; отмена проведения; выключить проводки; включить проводки. 2. Действия могут быть ограничены некоторыми условиями. 3. Существует отбор по видам объектов. 4. Есть возможность обработать подчиненные справочники.

1 стартмани

30.04.2017    22226    78    DUH    0    

5

Универсальные обработки документов и справочников для 1С: Предприятие 7.7

Корректировка данных Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Обработки можно использовать в любой конфигурации 1С-Предприятия 7.7. Обработки позволяют просмотреть/изменить значения любого реквизита документов/справочников, существующих в базе. В обработках реализован множественный отбор по значениям реквизитов (для табличной части документов тоже). В обработке документов реализованы следующие действия: Перенумерация; проведение; отмена проведения; пометка на удаление; непосредственное удаление; снятие пометки удаления; изменение реквизитов; очистка реквизитов; удаление строк табличной части; вывод на печать и в файлы *.xls,*.csv,*.dbf,*.xml реквизитов шапки и табличной части. В обработке справочников реализованы следующие действия: Перенумерация; пометка на удаление; непосредственное удаление; снятие пометки удаления; изменение реквизитов; очистка реквизитов; очистка истории значений периодического реквизита; перенос справочника в другую базу подобной конфигурации по OLE; вывод на печать реквизитов и истории значений периодических реквизитов; вывод реквизитов в файлы *.xls,*.csv,*.dbf,*.xml; отчет по структуре справочников, вывод и обработка ссылок на выбранные элементы.

1 стартмани

23.11.2016    38169    210    SanchoD    15    

13

Выводим из suspect базу 1С 7.7 на sql server 2000, а также "Перемещение баз данных SQL Server в новое местоположение с помощью операций Detach и Attach"

Корректировка данных Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

База данных помечается Suspect, когда SQL Server не может читать файлы данных, связанные с базой данных с жесткого диска. В этом случае сделать бекап базы нельзя, но можно попробовать образ диска. После того как возможность читать файлы данных восстановлена, вы можете перезапустить службу SQL Server, и если возможно, произойдет автоматическое восстановление. Что делать, если информационная база 1С7.7 на SQL Server 2000 перешла в состояние suspect? Если это произошло утром и бекап сделан, Вы, конечно, можете грохнуть и раскатать базу заново (вечером это проблематичнее), но не торопитесь - возможно, поможет detach+attach или другие методы, изложенные в данной публикации.

1 стартмани

08.11.2016    22742    ksnik    5    

5

Деноминация в Беларуси. В помощь специалистам и обычным пользователям

Корректировка данных Платформа 1С v7.7 Конфигурации 1cv7 Беларусь Бухгалтерский учет Абонемент ($m)

Инструмент для деноминации числовых реквизитов справочников, документов и операций в обороте за период.

1 стартмани

14.06.2016    18350    16    ge_ni    3    

6

Деноминация оборотов и остатков в 1С7.7 (Беларусь)

Корректировка данных Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 1С:Бухгалтерия для бюджетных учреждений 7.7 Беларусь Бухгалтерский учет Абонемент ($m)

Обработка проводит деноминацию оборотов, сумма каждой проводки делится на 10000. После этого остатки по счетам и субконто корректируются до эталонных значений. Также деноминируются реквизиты справочников.

1 стартмани

12.06.2016    36224    62    aselik    17    

11

Проверка информационной базы 7.7 на некорректные символы

Корректировка данных Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Поиск спецсимволов непосредственно в текстовых полях информационной базы 7.7.

1 стартмани

21.05.2015    14204    49    tedkuban    11    

6
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. TrinitronOTV 14 07.10.11 11:17 Сейчас в теме
интересный вариант реализации...
2. DDos76 206 07.10.11 12:24 Сейчас в теме
Особенно если сделать кнопку "заполнить счетами". Нажал - провел- баланс по 0!. Вручную так и делал в Комплексной. Только по разделителю учета. Вычищал остатки по ликвидированным фирмам перед обрезанием базы. Чтоб хвосты не таскать.
3. TrinitronOTV 14 07.10.11 19:37 Сейчас в теме
DDos76 пишет:

Особенно если сделать кнопку "заполнить счетами". Нажал - провел- баланс по 0!. Вручную так и делал в Комплексной. Только по разделителю учета. Вычищал остатки по ликвидированным фирмам перед обрезанием базы. Чтоб хвосты не таскать.

спасибо за отчет
4. salli80 08.10.11 11:21 Сейчас в теме
А нельзя чуть (для блондинок ) подробнее.Я создала журнал в конфигураторе ,а вот куда скопировать файл не поняла .Подскажите пожалуста.Вещица нужная для меня ))
5. DDos76 206 09.10.11 16:18 Сейчас в теме
Специально для блондинок:
Код, приведенный на сайте, может быть полезен только тем, кто знаком с редактированием
документов в конфигураторе. В Вашем случае придется поступить по - другому:
Скачиваем файл 1CV7.MD с сайта. (там он есть, уже готовый)
Сохраняем его в отдельную папку на компьютере.
Прописываем путь запуска 1с в эту папку (регистрируем новую базу)
Запускаем конфигуратор этой базы. Далее в конфигураторе Конфигурация - открыть конфигурацию.
Раскрываем папочку "Документы". Там есть только один документ. Встаем на него - говорим "Ctrl+C"
(копировать в буфер), потом открываем свою, рабочую конфигурацию, открываем конфигурацию, встаем на
папочку "документы" и давим "ctrl+v" (вставить). Потом листаем содержимое этой папочки до самого
низа и видим вставленный документ. Щелкаем по нему и в открывшемся окне справа вверху выставляем журнал.
Сохраняем конфигурацю. Запускаемся в режиме бухгалтерии и работаем.
В Н И М А Н И Е! Перед всеми манипуляциями настоятельно рекомендую сделать архивную копию базы данных,
с которой Вы работаете. Хотя если все делать правильно , то ничего плохого не случится.
6. ezupowam 12.10.11 16:27 Сейчас в теме
Ух ты! Еще и субконто закрываются! Супер. А то у меня двадцатка от предыдущего бухгалтера досталась такая заросшая, листов на двадцать ))) Сальдо правильное, а по субконто все красное ((
Спасибо автору!
7. 2011b11 13.10.11 08:34 Сейчас в теме
Спасибо, класс а то вечная проблема по закрытию счетов.
8. NPodolsk 13.10.11 12:29 Сейчас в теме
Как вовремя, огромное спасибо! Закрываю вручную именно "из - за невыполнения каких - либо условий"
9. warenic 109 13.10.11 17:39 Сейчас в теме
А чем не устроила старая добрая обработка "Закрытие счетов" (UCAccCls.ert) ажно 2008 года выпуска? Там не требовалось создавать новый документ (менять конфигурацию. тем более она могла быть базовой). Просто формировалась операция. Остатки по счетам и субконто можно закрывать с коэффициентом...
Ну, человек старался, минус ставить смысла нет.
10. DDos76 206 13.10.11 18:57 Сейчас в теме
(9) warenic,
Есть такая обработка. Сам пользовался не раз. Кажется только 2005 года. На диске ИТС.
А теперь вопрос: Изменили что - то "задним числом", т.е раньше этой операции - и счет уже не закрыт. Надо "Ручками" запускать обработку заново. И за 1 месяц. И за второй. И за третий. И через пару недель опять что - то поменяли. И опять обработку. И опять разбирайся когда "хвосты" возникли. И опять... приличные слова кончились. А тут перепровел документ - и опять 0! Всегда ноль! Гарантированный! А перепроведение - это вообще признак хорошего тона в бухии. У меня так все работают - перепровели доки - после баланс сводят и НДС.
11. DDos76 206 13.10.11 19:18 Сейчас в теме
(9) warenic,
Не поленился. Посмотрел - ACCLS.ERT у меня 2000 года рождения. И прекрасно работает! До поры до времени.
12. Полковник 19.10.11 07:05 Сейчас в теме
Спасибо, проверила на копии базы, все отлично. Вспоминаю закрытие счетов в начале года, просто как ужас! Без конца изменение задним числом, проведение, перепроведение и счет опять не закрыт! Наконец-то это закончилось! ура!
13. пользователь 12.12.11 06:03
Сообщение было скрыто модератором.
...
14. пользователь 12.12.11 06:04
Сообщение было скрыто модератором.
...
15. пользователь 20.12.11 12:50
Сообщение было скрыто модератором.
...
16. simuljakr 203 13.07.12 12:31 Сейчас в теме
Спасибо за разработку !
Еще бы неплохо сделать возможность отбора по субконто: если я хочу закрыть не весь счет, а только по одному контрагенту.
17. simuljakr 203 13.07.12 14:27 Сейчас в теме
Столкнулся с ошибкой: при закрытии забалансового счета ГТД - документ рисует лишнюю проводку (по каждой номенклатуре - по которой есть остаток) с пустым ГТД (второе субконто)...
18. safia-med 14.03.14 11:04 Сейчас в теме
19. procaznick 14.07.23 10:25 Сейчас в теме
сам тоже написал такой документ. активно пользуюсь. есть только одна проблема: валютные счета не закроешь. я для валютных отдельно писал
Оставьте свое сообщение