Имя: Пароль:
1C
1C 7.7
v7: Как исправить счет и группу основных средств в оборотах?
,
0 aktmx
 
31.05.17
09:29
Было основное средство здание (счет 01.20) с помощью документа разбиение ОС оно было разделено на несколько основных средств(отдельно здание, отдельно оборудование и т.п.), но группы и счета остались как здание. Потом вручную в справочнике ОС были изменены группы и счета соответственно (здание, сооружения, остались так же 01.20, машина и оборудование 01.30 и др.). При анализе счета на 01.20 кроме зданий и сооружений выходят обороты и разделенных машин и оборудование. Точно так же и в оборотно-сальдовой ведомости разделенные тогда машины и оборудования сидят не в своей группе а в группе здание и сооружение. Надеюсь смог объяснить, помогите пож-та кто сталкивался с такой проблемой, как это можно исправить??? Заранее спасибо...
1 Dump
 
31.05.17
10:04
"Надеюсь смог объяснить" - не-а
"Было основное средство здание (счет 01.20)" - 01.2 "Выбытие основных средств" ???
"с помощью документа разбиение ОС" - что за документ?
1с у вас какая?
лучше бы посмотреть базу
2 пипец
 
31.05.17
10:11
ппц ))) субконто и реквизит  в карточке ОС - суть разные сущности
3 aktmx
 
31.05.17
10:24
(1) 1С 7.7, в конфигурации есть документ такой РазбиениеОС, кто делал не знаю
4 HawkEye
 
31.05.17
10:33
(0) ты хоть тогда проводки напиши... чего вы там натворили
5 HawkEye
 
31.05.17
10:36
(0) "Потом вручную в справочнике ОС были изменены группы и счета соответственно (здание, сооружения, остались так же 01.20, машина и оборудование 01.30 и др.)"


эээ... была группа справочника ОС, в ней было много элементов... потом часть элементов ты перетащил в другую группу (и поменял у них реквизиты) и теперь ждешь, что и в проводках тоже, что-то изменится.... так что-ли?
6 РБ
 
31.05.17
10:43
(5) может, под группами ТС имеет ввиду амортизационные группы?
7 пипец
 
31.05.17
10:46
(3) изложение чесслово крайне сумбурное ... можно как то по логичнее что есть и что надо ...
8 Dump
 
31.05.17
11:08
Не взлетит...
Тут пытать с пристрастием ТС надо дня три, чтобы только вопрос понять  ;-)
9 aktmx
 
31.05.17
12:18
(5) да вроде бы так, как в проводках тоже это изменить??
10 aktmx
 
31.05.17
12:25
(7)одно основное средство было разделено на несколько ОС с помощью документа "Разбиение ОС", у которых группа и счет отличается от источника, но документ это видимо не учел, и эти группы и счета забили в справочник вручную, но от этого проводки не поменялись
11 h-sp
 
31.05.17
12:36
(9) надо по ходу ручную операцию делать, переброс остатка. Так просто, что вы в справочнике, где-то что-то подправили, проводки от этого не поменяются,  или перепроведение надо документов, а это может у вас 5 лет надо перепроводить.
12 aktmx
 
31.05.17
12:59
ага есть такое, разбиение ОС было еще в далеком 2009 году :)
13 HawkEye
 
31.05.17
23:44
(9) сделать соответствующие проводки...
ну или для начала, посмотреть хотя бы... что-же все таки делает этот волшебный документ...
14 aktmx
 
01.06.17
07:34
что мне сделать чтоб вы его посмотрели?
15 РБ
 
01.06.17
07:39
(14) отпринтскринь движения документа
16 HawkEye
 
01.06.17
07:56
(14) если появляется такой вопрос, то для ответа на (0) понадобиться специалист...
17 Dump
 
01.06.17
10:54
(14) После первых суток пыток вопрос по-прежнему не уточнен...
;-)
18 РБ
 
01.06.17
11:08
+(17) мне уже самой интересно, что там этот волшебный документ делил столько лет назад и как)))
19 aktmx
 
02.06.17
09:39
Процедура ОбработкаПроведения()
    Осн = СоздатьОбъект("Справочник.ОсновныеСредства");

    Операция.НоваяПроводка();
    Операция.СодержаниеПроводки = "Списана баланс.ст-ть";
    Операция.НомерЖурнала = "ОС";
    Операция.Дебет.Счет = ОС.Группа.Счет;
    Операция.Дебет.ОсновныеСредства = ОС;
    Операция.Дебет.МестаХранения = Склад;
    Операция.Кредит.Счет = Счетпокоду("00");
    Операция.Сумма = -БалансоваяСтоимость;

    Если НачисленнаяАмортизация <> 0 Тогда
        Операция.НоваяПроводка();
        Операция.СодержаниеПроводки = "Списана аморт. ОС";
        Операция.НомерЖурнала = "ОС";
        Операция.Кредит.Счет = ОС.Группа.Счет02;
        Операция.Кредит.ОсновныеСредства = ОС;
        Операция.Кредит.МестаХранения = Склад;
        Операция.Дебет.Счет = Счетпокоду("00");
        Операция.Сумма = -НачисленнаяАмортизация;
    КонецЕсли;
    
    Если Переоценка <> 0 Тогда
        Операция.НоваяПроводка();
        Операция.СодержаниеПроводки = "Переоценка ОС";
        Операция.НомерЖурнала = "ОС";
        Операция.Кредит.Счет = счетпокоду("85.10");
        Операция.Кредит.ОсновныеСредства = ОС;
        Операция.Дебет.Счет = Счетпокоду("00");
        Операция.Сумма = -Переоценка;
    КонецЕсли;
    
    УжеСписано = 0;  УжеСписано02 = 0;
    выбратьстроки();
    Пока ПолучитьСтроку()=1 цикл
            Осн.НайтиЭлемент(НовыйОС);
            Осн.Группа = ОС.Группа;
            //Осн.ДатаВводаВЭксплуатацию = ОС.ДатаВводаВЭксплуатацию;
            Осн.Шифр = ОС.Шифр;
            Осн.КодОтрасли = ОС.КодОтрасли;
            Осн.СчетОС = ОС.СчетОС;
            Осн.СчетИзносаОС = ОС.СчетИзносаОС;
            Осн.Записать();
        УстановитьРеквизитСправочника(НовыйОС,"Подразделение",ОС.Подразделение.Получить(Датадок),ДатаДок);
        УстановитьРеквизитСправочника(НовыйОС,"Счетзатрат",ОС.счетзатрат.Получить(Датадок),ДатаДок);
        УстановитьРеквизитСправочника(НовыйОС,"ПризнакНачисленияАмортизации",ОС.ПризнакНачисленияАмортизации.Получить(датадок),ДатаДок);        
        УстановитьРеквизитСправочника(НовыйОС,"Производственное",ОС.Производственное.Получить(Датадок),ДатаДок);

        Операция.НоваяПроводка();
        Операция.Дебет.Счет = ОС.Группа.Счет;  
        Операция.Дебет.ОсновныеСредства = НовыйОС;
        Операция.Дебет.МестаХранения = Склад;
        Операция.Кредит.Счет = Счетпокоду("00");
            Операция.Сумма = БалСт;
    
        Если НачисленнаяАмортизация <> 0 Тогда
            Операция.НоваяПроводка();
            Операция.Кредит.Счет = ОС.Группа.Счет02;
            Операция.Кредит.ОсновныеСредства = НовыйОС;
            Операция.Кредит.МестаХранения = Склад;
            Операция.Дебет.Счет = Счетпокоду("00");
            Операция.Сумма = НачАм;
        КонецЕсли;
        
        Если Переоц <> 0 Тогда
            Операция.НоваяПроводка();
            Операция.Кредит.Счет = счетпокоду("85.10");
            Операция.Кредит.ОсновныеСредства = НовыйОС;
            Операция.Дебет.Счет = Счетпокоду("00");
            Операция.Сумма = Переоц;
        КонецЕсли;
    КонецЦикла;    
    Операция.Записать();
//Начало текста, вставленного инсталятором GAAP
    //--------- Ввод проводок ГААП ---------------------------
    Если СуществуетОперация() = 1 Тогда
        ВводПроводокГААП(Контекст);
    КонецЕсли;
    //--------- Ввод проводок ГААП ------ ^^^^ -----------------
//Конец текста, вставленного инсталятором GAAP
КонецПроцедуры
20 Dump
 
03.06.17
07:45
Ну вот

Операция.НоваяПроводка();
Операция.Дебет.Счет = ОС.Группа.Счет;  
Операция.Дебет.ОсновныеСредства = НовыйОС;

Новое ОС ставится на старый счет - где было учтено "разбираемое" ОС

Могу помочь на возмездной основе
Стучите в личку или сразу в скайп
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.