gifts2017

Бюджетка ББУ 7.7 "Новый план счетов" без обновления на 645 :)

Опубликовал Alexei Kochkun (alexolder) в раздел Программирование - Практика программирования

Дешевый и сердитый вариант привыкания к новому плану счетов в 7-ке ББУ (за 2-3 минуты) (конфигурация 644 и менее ).
1. Оставляем план счетов как есть, пусть пока бухгалеры работают по-прежнему, а программист вдумчиво готовится к Настоящему Переводу.
2. Для отчетности на печать во всех стандартных отчетах (оборотки, карточки, анализы и пр.) выводим "новый план счетов". Подменой один к одному. Главное - идея. Реализацию можете подправить самостоятельно, кому нужно.
Печатные формы подшиваются, бухгалтеры привыкают к новым счетам.
Скажете: временный вариант. Конечно, зато какой простой!

Подмена счетов один к одному в Глобальном модуле. Кроме 401.01. Потому что косгу надо анализировать, а это уже труднее.

Находим в глобальном модуле:

Функция глКодСчетаКраткий(Счет,РазделительКода=".",НулКОСГУ="") Экспорт //строка ~ 1810

перед строками //примерно 1865 строка

КонецЕсли;
КраткийСчет=""+ИФ+РазделительКода+Лев(КодСчета,3)+РазделительКода+Сред(КодСчета,4,2);
вставляем


// НОВЫЕ СЧЕТА
Если КодСчета = "" Тогда КодСчета = "";
//101 ОС
ИначеЕсли КодСчета = "10101" Тогда КодСчета = "10131";
ИначеЕсли КодСчета = "10102" Тогда КодСчета = "10132";
ИначеЕсли КодСчета = "10103" Тогда КодСчета = "10133";
ИначеЕсли КодСчета = "10104" Тогда КодСчета = "10134";
ИначеЕсли КодСчета = "10105" Тогда КодСчета = "10135";
ИначеЕсли КодСчета = "10106" Тогда КодСчета = "10136";
ИначеЕсли КодСчета = "10107" Тогда КодСчета = "10137";
ИначеЕсли КодСчета = "10108" Тогда КодСчета = " ";
ИначеЕсли КодСчета = "10109" Тогда КодСчета = "10138";
//102 103
ИначеЕсли КодСчета = "10201" Тогда КодСчета = "10230";
ИначеЕсли КодСчета = "10301" Тогда КодСчета = "10311";
ИначеЕсли КодСчета = "10302" Тогда КодСчета = "10312";
ИначеЕсли КодСчета = "10303" Тогда КодСчета = "10313";
//104 Амортизация
ИначеЕсли КодСчета = "10401" Тогда КодСчета = "10431";
ИначеЕсли КодСчета = "10402" Тогда КодСчета = "10432";
ИначеЕсли КодСчета = "10403" Тогда КодСчета = "10433";
ИначеЕсли КодСчета = "10404" Тогда КодСчета = "10434";
ИначеЕсли КодСчета = "10405" Тогда КодСчета = "10435";
ИначеЕсли КодСчета = "10406" Тогда КодСчета = "10436";
ИначеЕсли КодСчета = "10407" Тогда КодСчета = "10437";
ИначеЕсли КодСчета = "10408" Тогда КодСчета = "10438";
ИначеЕсли КодСчета = "10409" Тогда КодСчета = "10439";
//105 Материальные запасы
ИначеЕсли КодСчета = "10501" Тогда КодСчета = "10531";
ИначеЕсли КодСчета = "10502" Тогда КодСчета = "10532";
ИначеЕсли КодСчета = "10503" Тогда КодСчета = "10533";
ИначеЕсли КодСчета = "10504" Тогда КодСчета = "10534";
ИначеЕсли КодСчета = "10505" Тогда КодСчета = "10535";
ИначеЕсли КодСчета = "10506" Тогда КодСчета = "10536";
ИначеЕсли КодСчета = "10507" Тогда КодСчета = "10537";
//106 Вложения в нефинансовые активы
ИначеЕсли КодСчета = "10601" Тогда КодСчета = "10631";
ИначеЕсли КодСчета = "10602" Тогда КодСчета = "10632";
ИначеЕсли КодСчета = "10603" Тогда КодСчета = "10633";
ИначеЕсли КодСчета = "10604" Тогда КодСчета = "10691";
ИначеЕсли КодСчета = "10604ПР" Тогда КодСчета = "10961";
//Казну пропускаем, в пути тоже
//201 Денежные средства учреждения
ИначеЕсли КодСчета = "20101" Тогда КодСчета = "20111";
ИначеЕсли КодСчета = "20102" Тогда КодСчета = "20112";
ИначеЕсли КодСчета = "20103" Тогда КодСчета = "20113";
ИначеЕсли КодСчета = "20104" Тогда КодСчета = "20134";
ИначеЕсли КодСчета = "201041" Тогда КодСчета = "201341";
ИначеЕсли КодСчета = "20105" Тогда КодСчета = "20135";
ИначеЕсли КодСчета = "20106" Тогда КодСчета = "20126";
ИначеЕсли КодСчета = "20107" Тогда КодСчета = "20127";
//Пропускаем 202, 203, 204
//205 Расчеты по доходам
ИначеЕсли КодСчета = "20501" Тогда КодСчета = "20511";
ИначеЕсли КодСчета = "20502" Тогда КодСчета = "20521";
ИначеЕсли КодСчета = "205020" Тогда КодСчета = "205210";
ИначеЕсли КодСчета = "20502А" Тогда КодСчета = "20521А";
ИначеЕсли КодСчета = "20503" Тогда КодСчета = "20531";
ИначеЕсли КодСчета = "205030" Тогда КодСчета = "205310";
ИначеЕсли КодСчета = "20503А" Тогда КодСчета = "20531А";
ИначеЕсли КодСчета = "20504" Тогда КодСчета = "20541";
ИначеЕсли КодСчета = "20505" Тогда КодСчета = "20551";
ИначеЕсли КодСчета = "20506" Тогда КодСчета = "20552";
ИначеЕсли КодСчета = "20507" Тогда КодСчета = "20553";
ИначеЕсли КодСчета = "20508" Тогда КодСчета = "20561";
ИначеЕсли КодСчета = "20509" Тогда КодСчета = "20571";
//206 Расчеты по выданным авансам основные
ИначеЕсли КодСчета = "20601" Тогда КодСчета = "20611";
ИначеЕсли КодСчета = "20602" Тогда КодСчета = "20612";
ИначеЕсли КодСчета = "20603" Тогда КодСчета = "20613";
ИначеЕсли КодСчета = "20604" Тогда КодСчета = "20621";
ИначеЕсли КодСчета = "20605" Тогда КодСчета = "20622";
ИначеЕсли КодСчета = "20606" Тогда КодСчета = "20623";
ИначеЕсли КодСчета = "20607" Тогда КодСчета = "20624";
ИначеЕсли КодСчета = "20608" Тогда КодСчета = "20625";
ИначеЕсли КодСчета = "20609" Тогда КодСчета = "20626";
ИначеЕсли КодСчета = "20618" Тогда КодСчета = "20691";
ИначеЕсли КодСчета = "20619" Тогда КодСчета = "20631";
ИначеЕсли КодСчета = "20620" Тогда КодСчета = "20632";
ИначеЕсли КодСчета = "20621" Тогда КодСчета = "20633";
ИначеЕсли КодСчета = "20622" Тогда КодСчета = "20634";
//207 пропустим
//208 Расчеты с подотчетными лицами основные
ИначеЕсли КодСчета = "20801" Тогда КодСчета = "20811";
ИначеЕсли КодСчета = "20802" Тогда КодСчета = "20812";
ИначеЕсли КодСчета = "20803" Тогда КодСчета = "20813";
ИначеЕсли КодСчета = "20804" Тогда КодСчета = "20821";
ИначеЕсли КодСчета = "20805" Тогда КодСчета = "20822";
ИначеЕсли КодСчета = "20806" Тогда КодСчета = "20823";
ИначеЕсли КодСчета = "20807" Тогда КодСчета = "20824";
ИначеЕсли КодСчета = "20808" Тогда КодСчета = "20825";
ИначеЕсли КодСчета = "20809" Тогда КодСчета = "20826";
ИначеЕсли КодСчета = "20818" Тогда КодСчета = "20891";
ИначеЕсли КодСчета = "20819" Тогда КодСчета = "20831";
ИначеЕсли КодСчета = "20820" Тогда КодСчета = "20832";
ИначеЕсли КодСчета = "20821" Тогда КодСчета = "20833";
ИначеЕсли КодСчета = "20822" Тогда КодСчета = "20834";
//209 Расчеты по недостачам
ИначеЕсли КодСчета = "20901" Тогда КодСчета = "20971";
ИначеЕсли КодСчета = "20902" Тогда КодСчета = "20972";
ИначеЕсли КодСчета = "20903" Тогда КодСчета = "20973";
ИначеЕсли КодСчета = "20904" Тогда КодСчета = "20974";
ИначеЕсли КодСчета = "20905" Тогда КодСчета = "20981";
//210 Расчеты с прочими дебиторами не меняем
//Переходим к пассиву (Раздел 3. Обязательства)
//301 пропустим
//302 Расчеты по принятым обязательствам
ИначеЕсли КодСчета = "30201" Тогда КодСчета = "30211";
ИначеЕсли КодСчета = "30202" Тогда КодСчета = "30212";
ИначеЕсли КодСчета = "30203" Тогда КодСчета = "30213";
ИначеЕсли КодСчета = "30204" Тогда КодСчета = "30221";
ИначеЕсли КодСчета = "30205" Тогда КодСчета = "30222";
ИначеЕсли КодСчета = "30206" Тогда КодСчета = "30223";
ИначеЕсли КодСчета = "30207" Тогда КодСчета = "30224";
ИначеЕсли КодСчета = "30208" Тогда КодСчета = "30225";
ИначеЕсли КодСчета = "30209" Тогда КодСчета = "30226";
ИначеЕсли КодСчета = "30218" Тогда КодСчета = "30291";
ИначеЕсли КодСчета = "30219" Тогда КодСчета = "30231";
ИначеЕсли КодСчета = "30220" Тогда КодСчета = "30232";
ИначеЕсли КодСчета = "30221" Тогда КодСчета = "30233";
ИначеЕсли КодСчета = "30222" Тогда КодСчета = "30234";
//303,304,305 и прочие пропустим
//Финансовый результат учреждения
ИначеЕсли КодСчета = "40101" Тогда КодСчета = "40120"; //расходы чаще
//для доходов не придумал простого решения
ИначеЕсли КодСчета = "40103" Тогда КодСчета = "40130";
ИначеЕсли КодСчета = "40104" Тогда КодСчета = "40140";
//500-е и забаланс не смотрел

КонецЕсли; // Чуть про конец забыл, а так всё.

См. также

Подписаться Добавить вознаграждение
Комментарии
0. Alexei Kochkun (alexolder) 06.06.11 11:14
Дешевый и сердитый вариант привыкания к новому плану счетов в 7-ке ББУ (за 2-3 минуты) (конфигурация 644 и менее ).
1. Оставляем план счетов как есть, пусть пока бухгалеры работают по-прежнему, а программист вдумчиво готовится к Настоящему Переводу.
2. Для отчетности на печать во всех стандартных отчетах (оборотки, карточки, анализы и пр.) выводим "новый план счетов". Подменой один к одному. Главное - идея. Реализацию можете подправить самостоятельно, кому нужно.
Печатные формы подшиваются, бухгалтеры привыкают к новым счетам.
Скажете: временный вариант. Конечно, зато какой простой!


Перейти к публикации

1. adeich adeich (adeich) 06.06.11 11:14
Да уж........... все имущество ставит на "иное движимое.." :o , наплевав на 538 постановление до этого еще никто не додумался....
2. Alexei Kochkun (alexolder) 06.06.11 13:20
adeich. Согласен, что 10101 можно было подменить на 10111, 10102 на 10112 и 10103 на 10113. Но о 538 постановлении в рамках данного "перехода :)" Вы загнули. Большинству бюджетников еще не утвердили список особо ценного имущеста". И вообще это не решается программистом 1с, тем более за 2-3 минуты! Нужны приказы, распоряжения, планка "особоценности". И только потом начнет работать программист.
Даже, скажу по секрету, ВСЕМ моим бюджетникам (мелким и средним), до утверждения особо ценного имущества, данный "переход" полностью подошёл. Так что Вашего сарказма я не понимаю и не принимаю. Тем более я указал, что это врменное "дешевое и сердитое"...
3. adeich adeich (adeich) 07.06.11 15:28
(2) а приказы и распоряжения уже имеются у всех и если твои главбухи молчат, то это не означает, что до них не довели список особо ценного.
Но, как говорится - "хозяин-барин". В 8-ке все равно придется исправлять ))))))))))
4. Alexei Kochkun (alexolder) 07.06.11 21:00
До бюджетников Москвы (театры) не довели списки особоценного, (на 90%). И вообще, департамент культуры молчит о переходе на новый план. Каждый главбух принимает решение сам, обновляться или нет. У кого как с деньгами и с обучаемостью бухгалтеров.
В области вроде сказали о планке 50000руб, но там мои бюджетники попали под ликвидацию/реорганизацию посреди года, им вообще не до нового плана...
Не надо все судить только по своим знакомым бюджетникам. Их много и они разные. Одни (Ваши) переходят (или перешли), другие откладывают на осень, третьи на 1 января. Моя идея и реализация поможет тем, кто еще не перешел (подшивать оборотки уже можно прям сейчас, сразу). Она не стоит ни копейки. Кто хочет - пусть использует, кто не хочет, его право.
Вообще - дурацкая идея, принимать такие изменения в конце 2010 года, не запланировав на это ни денег, ни времени на обучение и ознакомление. Разве не так?
5. adeich adeich (adeich) 08.06.11 13:10
(4) Все это так.....Но опять же можно привести кучу субъективных и объективных причин. Одна из них - что им потом делать, когда скажут "Вы должны были с начала года вести учет..."
Да и самый простой вариант - установить "таким бюджетникам" релиз 645
6. 1cSupport - третий (Зеленоград) 08.06.11 20:12
Сейчас у меня не осталось бюджетников, но идея самостоятельного развития конф под 77 мне близка.
Можно будет обращаться к вам или передавать заказчиков?
7. Alexei Kochkun (alexolder) 08.06.11 22:38
6. Львиная доля у меня - бюджетники. Пока больше работы с 7-кой. Есть план перехода на 8. Перевожу неспешно, в тандеме. Сперва - вычистить базу 7, выгрузить, опять вычистить в 8-ке, перепроверить все обороты и остатки и отладить в 8-ке.
На мелкие вопросы/задания/улучшения я, бывает, отвлекаюсь, тем более, что есть наработки и опыт. Крупные проекты в этом году не беру, не справлюсь.
8. Alexei Kochkun (alexolder) 08.06.11 23:43
Еще одна публикация для интересующихся ББУ 7. http://infostart.ru/public/86044/
9. Артур Карелин (atb123) 03.10.11 23:27
а есть таблица соответсвтвия
10. Alexei Kochkun (alexolder) 04.10.11 01:40