[AgA]

Поле установки нового релиза 287 начинают всплывать глюки. Предлагаю делиться выловленными глюками. Так как релиз сложный и ходить несколько раз это роскошь. поэтому хочется исправить все за один раз.
В свою очередь могу поделиться найденным и исправленным в Авансовом отчете перестала делаться проводка по НДС.

Исправить в модуле

Процедура РассчитатьШапку()
    Счет372 = СчетПоКоду(?(Валюта = Гривня, "37.2.1", "37.2.2"));
//Оставить из 286 исправление глюка Начало
    СуммаНДС = 0;
    
    ВыбратьСтроки();
    Пока ПолучитьСтроку() = 1 Цикл
            СуммаНДС = СуммаНДС + НДС;
    КонецЦикла;
//Оставить из 286 Исправление глюка окончание

[alex1c]

Незабудьте в цикле поставить условие: Если Проводить = Да Тогда....

[DartRomanius]

Незабудьте в цикле поставить условие: Если Проводить = Да Тогда....

Я конечно извиняюсь, а зачем?

[ivisor]

Ошибка в модуле документа Корректировка остатков необоротных активов на 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); // Если остатки в бухучете больше, то ничего допроводить не надо
    СчетНУ = "Н" + НеобАктивРазница.Счет;
    глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры

Сообщение отредактировал ivisor - 03.07.11, 23:17

[tangosun]

Ошибка в модуле документа Корректировка остатков необоротных активов на 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;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
    КонецЕсли; 
    //Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
    //Спр.Записать();

Причина редактирования: Выделяйте код!!!

[Vofka]

Наверное, я тему перенесу в раздел для программистов, думаю ей место там.

[Янина]

Наверное, я тему перенесу в раздел для программистов, думаю ей место там.

Ещё бы ссылочку - куда перенес!
Не могу найти окончатие переписки....а оно было!

[logist]

Ещё бы ссылочку - куда перенес!
Не могу найти окончатие переписки....а оно было!

Тема перенесена полностью, и сейчас Вы ее читаете в том разделе в который она перенесена. Никаких сообщений по сути темы не удалялось.

[kuzovova]

Ошибка в обработке "ОбновлениеРелиза".

Процедура ЗаполнитьВидыЗатрат()
    Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
    СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
    
    ТекущийРодитель = 0;
    Если Спр.НайтиПоКоду(1000) = 0 Тогда  
        Спр.НоваяГруппа();
        Спр.Код = 1000;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
    КонецЕсли; 
    //Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
    //Спр.Записать();

подскажите я правильно изменила :

Процедура ЗаполнитьВидыЗатрат()
    Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
    СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
    
    ТекущийРодитель = 0;
    Если Спр.НайтиПоКоду(1000) = 0 Тогда  
        Спр.НоваяГруппа();
        Спр.Код = 1000;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
    КонецЕсли; 
    РодительНК = Спр.ТекущийЭлемент();
    Спр.ИспользоватьРодителя(РодительНК);
    Если Спр.НайтиПоКоду(1001,1) = 0 Тогда
....

а то непойму почему 2 раза написано?

Спр.Наименование = "Статьи затрат по налогу на прибыль";
Спр.Записать();
КонецЕсли;
//Спр.Наименование = "Статьи затрат по налогу на прибыль";
//Спр.Записать();[/code]

[kuzovova]

Подскажите кто может исправить в 287 релизе бухг.7.7 Предприятие ? в "Відомість нарахування амортизації за ..... 2011 р. в
Група 6 (податковий облік) неправильно суммирует сумму аморт.відрахувань (Всього 2 раза)

колонка
"Сума аморт.
відрахувань"

437-90
42-60
35-15
155-00
55-06
29-01
31-70
32-13

1,857-11 Всього

0-00 Всього

[Vofka]

а то непойму почему 2 раза написано?

Потому что если нашли запись с кодом 1000 - перезаписали, не нашли - создали новую. По-моему это менять не стоит.

[kuzovova]

Потому что если нашли запись с кодом 1000 - перезаписали, не нашли - создали новую. По-моему это менять не стоит.

Извините я не программист ( темка раньше была не для программистов поэтому в закладки установила) - я только бедный бухгалтер, который не может толком совместить теорию с практикой, Очень была бы Вам обязана и признательна и благодарна .... если бы Вы скопировали что там должно быть (просто для радового бухгалтера не очень ясен язык программистов). Все вышеизложенные "глюки" понятно а вот Статьи затрат по налогу на прибыль и Авансовый ну никак. Думаю будут благодарны все такие как я.....

[Vofka]

Как по мне (я в конфу не заглядывал, поэтому только предполагаю) - это

Ошибка в обработке "ОбновлениеРелиза".

Процедура ЗаполнитьВидыЗатрат()
    Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
    СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
    
    ТекущийРодитель = 0;
    Если Спр.НайтиПоКоду(1000) = 0 Тогда  
        Спр.НоваяГруппа();
        Спр.Код = 1000;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
    КонецЕсли; 
    //Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
    //Спр.Записать();

надо оставить как было (если оно именно в таком виде было):

Процедура ЗаполнитьВидыЗатрат()
    Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
    СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
    
    ТекущийРодитель = 0;
    Если Спр.НайтиПоКоду(1000) = 0 Тогда  
        Спр.НоваяГруппа();
        Спр.Код = 1000;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
    КонецЕсли; 
    Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
    Спр.Записать();

Ещё раз - это навскидку так.

[kuzovova]

надо оставить как было (если оно именно в таком виде было):

но в первоначальном виде было так, здесь он автором вообще не указан, вот поэтому непонятки,

Процедура ЗаполнитьВидыЗатрат()
    Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
    СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
    
    ТекущийРодитель = 0;
    Если Спр.НайтиПоКоду(1000) = 0 Тогда  
        Спр.НоваяГруппа();
        Спр.Код = 1000;
    КонецЕсли; 
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
   
    РодительНК = Спр.ТекущийЭлемент();
    Спр.ИспользоватьРодителя(РодительНК);
    Если Спр.НайтиПоКоду(1001,1) = 0 Тогда

[Vofka]

но в первоначальном виде было так, здесь он автором вообще не указан, вот поэтому непонятки,

От того кода, что вы привели выше - моя мысль не поменялась: надо так и оставить. Т.к. если вы закоментируете эти строки

 Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();

и не окажется элемента справочника с кодом 1000 - то на строке

  РодительНК = Спр.ТекущийЭлемент();

вероятней всего будет ошибка. А если ошибки не будет - то новые элементы справочника (которые, видимо, записываются далее или же редактируются существующие) будут или записаны непонятно куда или хз что отредактируется.

[kuzovova]

От того кода, что вы привели выше - моя мысль не поменялась: надо так и оставить. Т.к. если вы закоментируете эти строки

 Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();

и не окажется элемента справочника с кодом 1000 - то на строке вероятней всего будет ошибка. .

спасибо огромное: значит окончательный будет такой вариант (для тех кто запутался):

Процедура ЗаполнитьВидыЗатрат()
    Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
    СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
    
    ТекущийРодитель = 0;
    Если Спр.НайтиПоКоду(1000) = 0 Тогда  
        Спр.НоваяГруппа();
        Спр.Код = 1000;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
   КонецЕсли; 
   Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
   Спр.Записать();  

    РодительНК = Спр.ТекущийЭлемент();
    Спр.ИспользоватьРодителя(РодительНК);
    Если Спр.НайтиПоКоду(1001,1) = 0 Тогда

Причина редактирования: Выделяйте код!!!

[vadim007]

Еще неБОЛЬШАЯ недоработка разработчиков: документы, введенные до 01.04.2011, запрещено редактировать, но отменять проведение никто не запрещал. У себя исправил это так:

Процедура ПриОтменеПроведенияДокумента(Докум)
    Если Докум.ДатаДок <= Константа.ДатаЗапретаРедактирования Тогда
        СтатусВозврата(0);
        Предупреждение("Запрещено отменять проведение документов,"+РазделительСтрок+"введенных по "+Формат(Константа.ДатаЗапретаРедактирования,"ДДДММММГГГГ")+" !");
        Возврат;
    КонецЕсли;
    Если (Докум.ДатаДок < '01.04.11') И (Константа.ЗапретПроведенияДоАпреля2011 = Да) Тогда
        СтатусВозврата(0);
        Предупреждение("Запрещено отменять проведение документов,"+РазделительСтрок+"введенных до "+Формат('01.04.2011',"ДДДММММГГГГ")+" !");
        Возврат;
    КонецЕсли;
КонецПроцедуры

[ivisor]

Еще неБОЛЬШАЯ недоработка разработчиков: документы, введенные до 01.04.2011, запрещено редактировать, но отменять проведение никто не запрещал.

Очень даже запрещал:

// ===============================
Процедура ПриОтменеПроведенияДокумента(Докум)
    Если (Докум.ДатаДок <= Константа.ДатаЗапретаРедактирования) или ((Докум.ДатаДок <='31.03.11') и (Константа.ЗапретПроведенияДоАпреля2011=Да)) Тогда  
        ДатаСооб = ?(Константа.ДатаЗапретаРедактирования > '31.03.11',Формат(Константа.ДатаЗапретаРедактирования,"ДДДММММГГГГ"), '31.03.2011');
        СтатусВозврата(0);
        Предупреждение("Запрещено отменять проведение документов,"+РазделительСтрок+"введенных по "+ДатаСооб+" !");
        Возврат;
    КонецЕсли;
КонецПроцедуры

Это из типовой бухии 287 релиз - так что не знаю что у вас за конфа

[vadim007]

Очень даже запрещал:

И точно...

[Vesta60]

Документ расходы на приобретение модуль документа строка 136

    //РазницаБезНДС = Макс(0, СуммаБезНДС - (СуммаГрнО - НДСГрнО));
    //РазницаНДС = Макс(0, НДС - НДСГрнО);     
    //Если Счет.ВидСубконто(1) = ВидыСубконто.Контрагенты Тогда
    //    Если Счет.ВидСубконто(2) = ВидыСубконто.Заказы Тогда
    //        Если Субконто2.Вид()="Договор" Тогда
    //            КонтрагентПлательщик = Субконто2.ПлательщикНалогаНаПрибыль;
    //        Иначе
    //            КонтрагентПлательщик = Субконто1.ПлательщикНалогаНаПрибыль.Получить(Субконто2.ДатаДок);
    //        КонецЕсли;
    //    Иначе
    //        КонтрагентПлательщик = Субконто1.ПлательщикНалогаНаПрибыль.Получить(ДатаДок)
    //    КонецЕсли;
    //    Если КонтрагентПлательщик = 0 Тогда
    //        РазницаБезНДС = СуммаБезНДС;
    //    КонецЕсли;
    //КонецЕсли;

не правильно определяет первое событие, нужно снять коментарий

Причина редактирования: Выделяйте код!