Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Глюки 1С Бухгалтерии 7.7 для Украины 287 релиза
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
AgA
28.06.11, 16:12
Поле установки нового релиза 287 начинают всплывать глюки. Предлагаю делиться выловленными глюками. Так как релиз сложный и ходить несколько раз это роскошь. поэтому хочется исправить все за один раз.
В свою очередь могу поделиться найденным и исправленным в Авансовом отчете перестала делаться проводка по НДС.

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

Процедура РассчитатьШапку()
    Счет372 = СчетПоКоду(?(Валюта = Гривня, "37.2.1", "37.2.2"));
//Оставить из 286 исправление глюка Начало
    СуммаНДС = 0;
    
    ВыбратьСтроки();
    Пока ПолучитьСтроку() = 1 Цикл
            СуммаНДС = СуммаНДС + НДС;
    КонецЦикла;
//Оставить из 286 Исправление глюка окончание
alex1c
29.06.11, 12:27
Незабудьте в цикле поставить условие: Если Проводить = Да Тогда....
DartRomanius
29.06.11, 12:55
Цитата(alex1c @ 29.06.11, 13:27) необходимо зарегистрироваться для просмотра ссылки
Незабудьте в цикле поставить условие: Если Проводить = Да Тогда....


Я конечно извиняюсь, а зачем?
ivisor
03.07.11, 16: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); // Если остатки в бухучете больше, то ничего допроводить не надо
    СчетНУ = "Н" + НеобАктивРазница.Счет;
    глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры
tangosun
04.07.11, 11:45
Цитата(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;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
    КонецЕсли; 
    //Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
    //Спр.Записать();
Vofka
04.07.11, 12:27
Наверное, я тему перенесу в раздел для программистов, думаю ей место там. smile.gif
Янина
04.07.11, 15:08
Цитата(Vofka @ 04.07.11, 13:27) необходимо зарегистрироваться для просмотра ссылки
Наверное, я тему перенесу в раздел для программистов, думаю ей место там. smile.gif


Ещё бы ссылочку - куда перенес!
Не могу найти окончатие переписки....а оно было!
logist
04.07.11, 15:22
Цитата(Янина @ 04.07.11, 15:08) необходимо зарегистрироваться для просмотра ссылки
Ещё бы ссылочку - куда перенес!
Не могу найти окончатие переписки....а оно было!

Тема перенесена полностью, и сейчас Вы ее читаете в том разделе в который она перенесена. Никаких сообщений по сути темы не удалялось.
kuzovova
06.07.11, 1:22
Цитата(tangosun @ 04.07.11, 12:45) необходимо зарегистрироваться для просмотра ссылки
Ошибка в обработке "ОбновлениеРелиза".

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


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

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

а то непойму почему 2 раза написано?
Цитата(tangosun @ 04.07.11, 12:45) необходимо зарегистрироваться для просмотра ссылки
Спр.Наименование = "Статьи затрат по налогу на прибыль";
Спр.Записать();
КонецЕсли;
//Спр.Наименование = "Статьи затрат по налогу на прибыль";
//Спр.Записать();[/code]
kuzovova
06.07.11, 2:47
Подскажите кто может исправить в 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
06.07.11, 7:17
Цитата
а то непойму почему 2 раза написано?

Потому что если нашли запись с кодом 1000 - перезаписали, не нашли - создали новую. По-моему это менять не стоит.
kuzovova
06.07.11, 12:00
Цитата(Vofka @ 06.07.11, 8:17) необходимо зарегистрироваться для просмотра ссылки
Потому что если нашли запись с кодом 1000 - перезаписали, не нашли - создали новую. По-моему это менять не стоит.

Извините я не программист ( темка раньше была не для программистов поэтому в закладки установила) - я только бедный бухгалтер, который не может толком совместить теорию с практикой, Очень была бы Вам обязана и признательна и благодарна .... если бы Вы скопировали что там должно быть (просто для радового бухгалтера не очень ясен язык программистов). Все вышеизложенные "глюки" понятно а вот Статьи затрат по налогу на прибыль и Авансовый ну никак. Думаю будут благодарны все такие как я.....
Vofka
06.07.11, 14:54
Как по мне (я в конфу не заглядывал, поэтому только предполагаю) - это
Цитата
Ошибка в обработке "ОбновлениеРелиза".
Процедура ЗаполнитьВидыЗатрат()
    Спр = СоздатьОбъект("Справочник.ВидыЗатрат");
    СпрСтНД = СоздатьОбъект("Справочник.СтатьиНалоговыхДеклараций");
    
    ТекущийРодитель = 0;
    Если Спр.НайтиПоКоду(1000) = 0 Тогда  
        Спр.НоваяГруппа();
        Спр.Код = 1000;
        Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
        Спр.Записать();  
    КонецЕсли; 
    //Спр.Наименование = "Статьи затрат по налогу на прибыль"; 
    //Спр.Записать();


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

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


Ещё раз - это навскидку так.
kuzovova
06.07.11, 16:29
Цитата(Vofka @ 06.07.11, 15:54) необходимо зарегистрироваться для просмотра ссылки
надо оставить как было (если оно именно в таком виде было):


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

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

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

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


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

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


вероятней всего будет ошибка. А если ошибки не будет - то новые элементы справочника (которые, видимо, записываются далее или же редактируются существующие) будут или записаны непонятно куда или хз что отредактируется.
kuzovova
06.07.11, 19:46
Цитата(Vofka @ 06.07.11, 19:00) необходимо зарегистрироваться для просмотра ссылки
От того кода, что вы привели выше - моя мысль не поменялась: надо так и оставить. Т.к. если вы закоментируете эти строки

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


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


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

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

    РодительНК = Спр.ТекущийЭлемент();
    Спр.ИспользоватьРодителя(РодительНК);
    Если Спр.НайтиПоКоду(1001,1) = 0 Тогда
vadim007
07.07.11, 19:54
Еще неБОЛЬШАЯ недоработка разработчиков: документы, введенные до 01.04.2011, запрещено редактировать, но отменять проведение никто не запрещал. У себя исправил это так:
Процедура ПриОтменеПроведенияДокумента(Докум)
    Если Докум.ДатаДок <= Константа.ДатаЗапретаРедактирования Тогда
        СтатусВозврата(0);
        Предупреждение("Запрещено отменять проведение документов,"+РазделительСтрок+"введенных по "+Формат(Константа.ДатаЗапретаРедактирования,"ДДДММММГГГГ")+" !");
        Возврат;
    КонецЕсли;
    Если (Докум.ДатаДок < '01.04.11') И (Константа.ЗапретПроведенияДоАпреля2011 = Да) Тогда
        СтатусВозврата(0);
        Предупреждение("Запрещено отменять проведение документов,"+РазделительСтрок+"введенных до "+Формат('01.04.2011',"ДДДММММГГГГ")+" !");
        Возврат;
    КонецЕсли;
КонецПроцедуры
ivisor
08.07.11, 4:13
Цитата(vadim007 @ 07.07.11, 20:54) необходимо зарегистрироваться для просмотра ссылки
Еще неБОЛЬШАЯ недоработка разработчиков: документы, введенные до 01.04.2011, запрещено редактировать, но отменять проведение никто не запрещал.

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

Это из типовой бухии 287 релиз - так что не знаю что у вас за конфа
vadim007
08.07.11, 6:47
Цитата(ivisor @ 08.07.11, 5:13) необходимо зарегистрироваться для просмотра ссылки
Очень даже запрещал:

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

не правильно определяет первое событие, нужно снять коментарий
kuzovova
13.07.11, 17:03
Цитата(Vesta60 @ 12.07.11, 12:48) необходимо зарегистрироваться для просмотра ссылки
Документ расходы на приобретение модуль документа строка 136
    //РазницаБезНДС = Макс(0, СуммаБезНДС - (СуммаГрнО - НДСГрнО));
    //РазницаНДС = Макс(0, НДС - НДСГрнО);     
    //Если Счет.ВидСубконто(1) = ВидыСубконто.Контрагенты Тогда
    //    Если Счет.ВидСубконто(2) = ВидыСубконто.Заказы Тогда
    //        Если Субконто2.Вид()="Договор" Тогда
    //            КонтрагентПлательщик = Субконто2.ПлательщикНалогаНаПрибыль;
    //        Иначе
    //            КонтрагентПлательщик = Субконто1.ПлательщикНалогаНаПрибыль.Получить(Субконто2.ДатаДок);
    //        КонецЕсли;
    //    Иначе
    //        КонтрагентПлательщик = Субконто1.ПлательщикНалогаНаПрибыль.Получить(ДатаДок)
    //    КонецЕсли;
    //    Если КонтрагентПлательщик = 0 Тогда
    //        РазницаБезНДС = СуммаБезНДС;
    //    КонецЕсли;
    //КонецЕсли;

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


у меня в 1с 7.7 /.287 все точно так же, а считает неправильно, что менять то ничего не понятно.... или скопируйте со своего как правильно. спасибо
Юли4ка
13.07.11, 19:19
Цитата(ivisor @ 03.07.11, 16: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); // Если остатки в бухучете больше, то ничего допроводить не надо
    СчетНУ = "Н" + НеобАктивРазница.Счет;
    глПровНУ(Контекст,СчетНУ,,,"Разница НУ корр. остат. необ. активов",, МестоХраненияРазн,НеобАктивРазница,,,,, ,,"НА",РазницаБУНУ);
КонецПроцедуры


Помогите пожалуйста, исправила как у вас написано, а все равно берется остаточная стоимость на 01.01.11, как можно еще исправить. Спасибо.
pashenkoav
14.07.11, 10:39
Цитата(AgA @ 28.06.11, 17:12) необходимо зарегистрироваться для просмотра ссылки
Поле установки нового релиза 287 начинают всплывать глюки. Предлагаю делиться выловленными глюками. Так как релиз сложный и ходить несколько раз это роскошь. поэтому хочется исправить все за один раз.


Документ "Финансовые результаты" не сворачивает некоторые счета по видам затрат (например 902)

для исправления необходимо изменить условия в следующих процедурах:

Процедура ПроводкиОпределениеФинансовогоРезультата()
    ///.......
    Пока Ит.ПолучитьСчет() = 1 Цикл
        ///........
        //Если Ит.Счет.КоличествоСубконто() = 2 Тогда
                   Если Ит.Счет.КоличествоСубконто() >= 2 Тогда
        ///........    
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Процедура ПроводкиОпределениеФинансовогоРезультатаНУ()
    ///........
    Пока Ит.ПолучитьСчет() = 1 Цикл
        ///.....
        //Если Ит.Счет.КоличествоСубконто() = 2 Тогда
                   Если Ит.Счет.КоличествоСубконто() >= 2 Тогда
    ///......        
        КонецЕсли;
    КонецЦикла;   
    ///.....
КонецПроцедуры


строку № 260 и № 310 (Если Ит.Счет.КоличествоСубконто() = 2 Тогда)
заменить на (Если Ит.Счет.КоличествоСубконто() >= 2 Тогда)

Документ "Начисление износа" - при печати выводит неправильные итоговые суммы по группам. Необходимо добавить обнуление переменной "ИтСумма"
Процедура Печать()
    ///....
    Если ВидПФ = 2 Тогда
        // налоговый учет
        ///....
        Пока Ит.ПолучитьСчет() = 1 Цикл
            ///....
            Пока Ит.ПолучитьСубконто(1) = 1 Цикл
                НА = Ит.Субконто(1); 
                НомерГруппы = НА.Группа;
                Если (НомерГруппы <> ГруппаПред) Тогда
                    Если (ГруппаПред <> 0) Тогда
                        Таб.ВывестиСекцию("ОСДно");
                        Таб.НоваяСтраница();
                        ИтСумма=0;// Добавляем обнуление.
                    КонецЕсли;
                    ГруппаПред = НомерГруппы; 
                    Группа = ?(Константа.ФормыНаУкраинском = Да,"Група ","Группа ")+НомерГруппы;
                    Таб.ВывестиСекцию("ОСШапка");
                КонецЕсли;
                БалСтоимость = ИтМ.СНД(СчетНА,,,,НА); 
                Кво = 1;
                Сумма = Ит.КО(СчетИзноса);
                
                Наименование = "Инв. № "+Сокрлп(НА.ИнвенНомер)+", "+НА.ПолнНаименование;
                
                Таб.ВывестиСекцию("ОССтрока");
                ИтСумма = ИтСумма + Сумма;
            КонецЦикла;
        КонецЦикла;
        ////........
    КонецЕсли;
    
///.....
КонецПроцедуры
5_kopeek
21.07.11, 18:11
При проведении документа НачислениеИзноса неправильно рассчитывается износ (БУ<>НУ), если был изменен метод начисления амортизации с налогового на прямолинейный. необходимо зарегистрироваться для просмотра ссылки
Irchik
22.07.11, 9:20
а как исправить проводку по модернизации, нету проводки НДС.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.