Поле установки нового релиза 287 начинают всплывать глюки. Предлагаю делиться выловленными глюками. Так как релиз сложный и ходить несколько раз это роскошь. поэтому хочется исправить все за один раз. В свою очередь могу поделиться найденным и исправленным в Авансовом отчете перестала делаться проводка по НДС.
Исправить в модуле
Процедура РассчитатьШапку() Счет372 = СчетПоКоду(?(Валюта = Гривня, "37.2.1", "37.2.2")); //Оставить из 286 исправление глюка Начало СуммаНДС = 0;
ВыбратьСтроки(); Пока ПолучитьСтроку() = 1 Цикл СуммаНДС = СуммаНДС + НДС; КонецЦикла; //Оставить из 286 Исправление глюка окончание
Группа: Пользователи
Сообщений: 38
Спасибо сказали: 12 раз
Рейтинг: 0
Ошибка в модуле документа Корректировка остатков необоротных активов на 01 апреля 2011г. Остатки по налоговому учету берутся на начало 1-ого квартала а должны на начало 2-ого. Исправлять так:
// =============================== Процедура ПроводкиШапка() ОстСтоимостьНУ = 0; Для НомерГруппы = 1 По 4 Цикл Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьРазделительУчета(Фирма); СчетГруппы = "ОС."+НомерГруппы; Ит.ИспользоватьСубконто(ВидыСубконто.НалогиОтчисления); // Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,СчетГруппы); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011 Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,СчетГруппы); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6) //Возьмем остатки в целом по группе ОстСтоимостьГруппы = Ит.СНД("С"); ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимостьГруппы; КонецЦикла;
// НМА Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьРазделительУчета(Фирма); Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы); // Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,"НА.1,НА.2"); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011 Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,"НА.1,НА.2"); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6) Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл ПервСтоимость = 0; Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда ПервСтоимость = Ит.СНД("С"); КонецЕсли; ОстСтоимость = ПервСтоимость; Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда ОстСтоимость = ПервСтоимость - Ит.СНК("С"); КонецЕсли; ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость; КонецЦикла; РазницаБУНУ = Итог("ОстаточнаяСтоимостьБУ") - ОстСтоимостьНУ; РазницаБУНУ = ?(РазницаБУНУ < 0, -РазницаБУНУ, 0); // Если остатки в бухучете больше, то ничего допроводить не надо СчетНУ = "Н" + НеобАктивРазница.Счет; глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,,,, ,,"НА",РазницаБУНУ); КонецПроцедуры
Группа: Пользователи
Сообщений: 2
Спасибо сказали: 3 раз
Рейтинг: 0
Цитата(ivisor @ 03.07.11, 17:24)
Ошибка в модуле документа Корректировка остатков необоротных активов на 01 апреля 2011г. Остатки по налоговому учету берутся на начало 1-ого квартала а должны на начало 2-ого. Исправлять так:
// =============================== Процедура ПроводкиШапка() ОстСтоимостьНУ = 0; Для НомерГруппы = 1 По 4 Цикл Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьРазделительУчета(Фирма); СчетГруппы = "ОС."+НомерГруппы; Ит.ИспользоватьСубконто(ВидыСубконто.НалогиОтчисления); // Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,СчетГруппы); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011 Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,СчетГруппы); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6) //Возьмем остатки в целом по группе ОстСтоимостьГруппы = Ит.СНД("С"); ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимостьГруппы; КонецЦикла;
// НМА Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьРазделительУчета(Фирма); Ит.ИспользоватьСубконто(ВидыСубконто.НеоборотныеАктивы); // Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),,"НА.1,НА.2"); // неправильно: НачКвартала(ДатаДок) = 01.01.2011 т.к. ДатаДок=31.03.2011 Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок+1),,"НА.1,НА.2"); // правильно: по сост. на 01.04.2011 (НКУ раздел ХХ, подраздел 4, ст. 6) Ит.ВыбратьСубконто(1); Пока Ит.ПолучитьСубконто(1) = 1 Цикл ПервСтоимость = 0; Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда ПервСтоимость = Ит.СНД("С"); КонецЕсли; ОстСтоимость = ПервСтоимость; Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда ОстСтоимость = ПервСтоимость - Ит.СНК("С"); КонецЕсли; ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость; КонецЦикла; РазницаБУНУ = Итог("ОстаточнаяСтоимостьБУ") - ОстСтоимостьНУ; РазницаБУНУ = ?(РазницаБУНУ < 0, -РазницаБУНУ, 0); // Если остатки в бухучете больше, то ничего допроводить не надо СчетНУ = "Н" + НеобАктивРазница.Счет; глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,,,, ,,"НА",РазницаБУНУ); КонецПроцедуры
Все верно. И еще уточнение по этому же модулю: ПервСтоимость не рассчитывается здесь, просто не изменяется значение. Потому:
Пока Ит.ПолучитьСубконто(1) = 1 Цикл //ПервСтоимость = 0; ПервСтоимость1 = 0; Если Ит.ПолучитьСчет(,СчетПоКоду("НА.1")) = 1 Тогда //ПервСтоимость = Ит.СНД("С"); //Значение не присваивается - совпадение с назв. реквизита ТЧ ПервСтоимость1 = Ит.СНД("С"); КонецЕсли; //ОстСтоимость = ПервСтоимость; ОстСтоимость = ПервСтоимость1; Если Ит.ПолучитьСчет(,СчетПоКоду("НА.2")) = 1 Тогда //ОстСтоимость = ПервСтоимость - Ит.СНК("С"); ОстСтоимость = ПервСтоимость1 - Ит.СНК("С"); КонецЕсли; ОстСтоимостьНУ = ОстСтоимостьНУ + ОстСтоимость; КонецЦикла;
ТекущийРодитель = 0; Если Спр.НайтиПоКоду(1000) = 0 Тогда Спр.НоваяГруппа(); Спр.Код = 1000; Спр.Наименование = "Статьи затрат по налогу на прибыль"; Спр.Записать(); КонецЕсли; РодительНК = Спр.ТекущийЭлемент(); Спр.ИспользоватьРодителя(РодительНК); Если Спр.НайтиПоКоду(1001,1) = 0 Тогда ....
а то непойму почему 2 раза написано?
Цитата(tangosun @ 04.07.11, 12:45)
Спр.Наименование = "Статьи затрат по налогу на прибыль"; Спр.Записать(); КонецЕсли; //Спр.Наименование = "Статьи затрат по налогу на прибыль"; //Спр.Записать();[/code]
Подскажите кто может исправить в 287 релизе бухг.7.7 Предприятие ? в "Відомість нарахування амортизації за ..... 2011 р. в Група 6 (податковий облік) неправильно суммирует сумму аморт.відрахувань (Всього 2 раза)
Потому что если нашли запись с кодом 1000 - перезаписали, не нашли - создали новую. По-моему это менять не стоит.
Извините я не программист ( темка раньше была не для программистов поэтому в закладки установила) - я только бедный бухгалтер, который не может толком совместить теорию с практикой, Очень была бы Вам обязана и признательна и благодарна .... если бы Вы скопировали что там должно быть (просто для радового бухгалтера не очень ясен язык программистов). Все вышеизложенные "глюки" понятно а вот Статьи затрат по налогу на прибыль и Авансовый ну никак. Думаю будут благодарны все такие как я.....
Группа: Основатель
Сообщений: 13981
Из: Киев
Спасибо сказали: 4549 раз
Рейтинг: 3678.1
Цитата
но в первоначальном виде было так, здесь он автором вообще не указан, вот поэтому непонятки,
От того кода, что вы привели выше - моя мысль не поменялась: надо так и оставить. Т.к. если вы закоментируете эти строки
Спр.Наименование = "Статьи затрат по налогу на прибыль"; Спр.Записать();
и не окажется элемента справочника с кодом 1000 - то на строке
РодительНК = Спр.ТекущийЭлемент();
вероятней всего будет ошибка. А если ошибки не будет - то новые элементы справочника (которые, видимо, записываются далее или же редактируются существующие) будут или записаны непонятно куда или хз что отредактируется.
Еще неБОЛЬШАЯ недоработка разработчиков: документы, введенные до 01.04.2011, запрещено редактировать, но отменять проведение никто не запрещал. У себя исправил это так:
Процедура ПриОтменеПроведенияДокумента(Докум) Если Докум.ДатаДок <= Константа.ДатаЗапретаРедактирования Тогда СтатусВозврата(0); Предупреждение("Запрещено отменять проведение документов,"+РазделительСтрок+"введенных по "+Формат(Константа.ДатаЗапретаРедактирования,"ДДДММММГГГГ")+" !"); Возврат; КонецЕсли; Если (Докум.ДатаДок < '01.04.11') И (Константа.ЗапретПроведенияДоАпреля2011 = Да) Тогда СтатусВозврата(0); Предупреждение("Запрещено отменять проведение документов,"+РазделительСтрок+"введенных до "+Формат('01.04.2011',"ДДДММММГГГГ")+" !"); Возврат; КонецЕсли; КонецПроцедуры
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!