Имя: Пароль:
1C
1C 7.7
v7: Не начисляется износ
0 Deenka
 
30.11.11
11:42
Здравствуйте!
В программе, после проведения документа "Начисление износа", износ не  начисляется на позиции введенные в експлуатацию в прошлом месяце. На них износ начинает начислятся только с начала следующего квартала. В чем может быть проблема?
1 filh
 
30.11.11
11:46
в сотруднике.
2 2S
 
30.11.11
11:47
(0) о чем вообще речь?
3 2S
 
30.11.11
11:47
спецодежда?
так она по правилам начинает начисляться со след. месяца
4 Попытка1С
 
30.11.11
11:47
Нет такого документа в бухне. Износ в принципе не может начисляться, начисляется амортизация.
5 filh
 
30.11.11
11:49
(4) а никто и не написал, что это бухия. Может нетленка очередная
6 Deenka
 
30.11.11
11:50
Да, не начисляется аммортизация. Она почему-то начинает начислятся только с начала седующего квартала
7 Kreont
 
30.11.11
11:52
(0)Так и должно быть
8 Попытка1С
 
30.11.11
11:53
(6) Амортизация начинает начисляться с месяца следующего за месяцем ввода в эксплуатацию ОС.
9 Deenka
 
30.11.11
11:57
У меня она начинанет начислятся только со следующего квартала
10 filh
 
30.11.11
11:58
(9) след месяц - это начало квартала?
11 filh
 
30.11.11
11:59
а так, вранье, наглое причем
12 Deenka
 
30.11.11
12:02
нет, должна начисляться с месяца следующего за месяцем ввода в эксплуатацию. а она начинает начисляться почему-то со следующего квартала
13 Попытка1С
 
30.11.11
12:04
(12) Отладчик в помощь.
14 Zaval
 
30.11.11
12:05
(12) Это было правильно по Налоговому методу.
Криво обновился?
15 Deenka
 
30.11.11
12:06
Конфа самописная. А программист уволился(
16 Попытка1С
 
30.11.11
12:07
(15) А вы там кто? Озвучьте ценник и помощник быстро найдется.
17 Zaval
 
30.11.11
12:08
(15) Все понятно.
Метод начисления можно выбрать?
18 vladko
 
30.11.11
12:10
(15) мы же не знаем, что там программист написал. Ответ один - надо смотреть текст программы. Где-то неправильно там.
19 Deenka
 
30.11.11
12:11
Метод начисления проставляется в справочнике в карточке основных средств
20 Kreont
 
30.11.11
12:14
Читать ПСБО, вроде 9-е "Основный средства"
+ узнать что такое начисление амортизации в бух. учете и в налог. учете
+ определиться с методом начисления амортизации: прямолинейный, ....
А потом вводить данный в программу и пусть считает
21 Zaval
 
30.11.11
12:17
(17) + хотя, просто поменять метод недостаточно. Нужно еще пересчитать амортизацию за прошлые периоды.
Пример этого извращения можно посмотреть в типовой бухии.
У Вас работает ныне упраздненный "Налоговый метод".
В принципе, все можно сделать ручными операциями... но бухгалтеров такого уровня я что-то давно не встречал(
22 Deenka
 
30.11.11
12:22
может быть что эти ОС попадают в бухгалтерские итоги только с начала квартала?
вот код процедуры:
Процедура РассчитатьИзносПоСчету(Сч, СчИзноса)
   НМ = Константа.ноНеоблагаемыйМинимум.Ставка.Получить(КонКвартала(ДатаДок));
   Сч = ?(ТипЗначенияСтр(Сч)="Строка",СчетПоКоду(Сч),Сч);
   СчИзноса = ?(ТипЗначенияСтр(СчИзноса)="Строка",СчетПоКоду(СчИзноса),СчИзноса);
   сообщить(сч +" " +СчИзноса) ;
   Ит = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьРазделительУчета(Фирма);
   Ит.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства); // ОС, НМА
   
   Ит.ВыполнитьЗапрос(НачКвартала(ДатаДок),НачМесяца(ДатаДок),Строка(Сч.Код)+","+Строка(СчИзноса.Код));
   Ит.ВыбратьСубконто(1);
   Пока Ит.ПолучитьСубконто(1) = 1 Цикл
       Износ = 0;
       ИзносМ = 0;
       ПервСтоимость = 0;
       ПервСтоимостьМ = 0;
       Если Ит.ПолучитьСчет(,Сч) = 1 Тогда
           ПервСтоимость = Ит.СНД("С");  
           ПервСтоимостьМ = Ит.СКД("С");  
           Если Ит.ПолучитьСчет(,СчИзноса) = 1 Тогда
                Износ = Ит.СНК("С");
                ИзносМ = Ит.СКК("С");    
           КонецЕсли;
       КонецЕсли;
       
       ОстСтоимость = ПервСтоимость - Износ;
       ОстСтоимостьМ = ПервСтоимость - ИзносМ;
       СуммаИзноса = РассчитатьИзносПоЭлементу(Ит.Субконто(1),ПервСтоимость,ОстСтоимость,ОстСтоимостьМ,ПервСтоимостьМ);
       сообщить(СуммаИзноса +" "+ сч);
       
       СчетЗатрат = Ит.Субконто(1).СчетЗатрат;
       ВидЗатрат = Ит.Субконто(1).ВидЗатрат;
       Ц =  Ит.Субконто(1).МВ.Получить(НачМесяца(ДатаДок));
       Цех = Ц.Владелец;
       
       Если (СчетЗатрат.Выбран() = 0) или (ВидЗатрат.Выбран() = 0) Тогда
           Сообщить(Ит.Субконто(1).ИнвенНомер+": не задан счет затрат или вид затрат. Износ не начислен!","!");
           Продолжить;
       КонецЕсли;
       
       Замов = СоздатьОбъект("Справочник.РізновидиТоварів");
       Замов.НайтиПоКоду(0);
       Ел = Замов.ТекущийЭлемент();
       
       Проводка(Контекст,СчетЗатрат,СчИзноса,СуммаИзноса,"Начислен износ",, ВидЗатрат,Цех,Ел,
       Ит.Субконто(1),,, ,,"ОС");
   КонецЦикла; // ОС, НМА ...  

КонецПроцедуры
23 Zaval
 
30.11.11
12:35
НачКвартала(ДатаДок)
24 Deenka
 
30.11.11
12:52
Zaval, спасибо