Имя: Пароль:
1C
1С v8
разделение ОС на два
, , ,
0 Надяша
 
19.06.14
10:05
//    Количество списываемого ОС
    Отбор = Новый Структура("Организация, Подразделение, Счет, Субконто1", Организация, ПодразделениеОрганизации, ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство);
    ВыборкаЗаписей = РегистрыБухгалтерии.Хозрасчетный.Остатки(Дата, ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства, Отбор,,"Количество");
    КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).КоличествоОстатокДТ;

ошибка:{Документ.ПриказРазделенияОС.МодульОбъекта(322)}: Ошибка при вызове метода контекста (Получить)
    КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество;
по причине:
Значение индекса выходит за границы диапазона
1 Wobland
 
19.06.14
10:06
это бывает, когда значение индекса выходит за границы диапазона
2 Надяша
 
19.06.14
10:19
не могу выловить ошибку
3 Надяша
 
19.06.14
10:19
в чём причина???
4 andreymongol82
 
19.06.14
10:19
(0) Ну значит нет элемента с индексом 0 в выборке. То есть ни одного.
5 Godofsin
 
19.06.14
10:21
(3) Если ВыборкаЗаписей.Количество() = 0 тогда
        Сообщить("Упс... а записей то и нету..");
        Возврат;
    КонецЕсли;
6 Cube
 
19.06.14
10:21
(2) Перед строкой

КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).КоличествоОстатокДТ;

вставь строку

Сообщить("Я пытаюсь получить первую запись из выборки в которой " + ВыборкаЗаписей.Количество() + " записей. Я молодец.");
7 andreymongol82
 
19.06.14
10:21
Как минимум нужно
Если ВыборкаЗаписей.Количество()<>0 Тогда
КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество
8 Надяша
 
19.06.14
10:25
Количество списываемого ОС не равно 1. Бухгалтерские проводки НЕ БУДУТ СФОРМИРОВАНЫ ! ! !
9 Надяша
 
19.06.14
10:25
хотя ОС есть...
10 Cube
 
19.06.14
10:25
(8) Хвастаешься?
11 Надяша
 
19.06.14
10:25
запуталась окончательно
12 Godofsin
 
19.06.14
10:25
(9) Значит корявый отбор
13 Wobland
 
19.06.14
10:26
(9) а не находится
14 Надяша
 
19.06.14
10:26
чем хвастаться???тупостью своею?
15 Cube
 
19.06.14
10:26
(9) На эту дату, по этой организиции и подразделению, на этом счете, да?
16 Godofsin
 
19.06.14
10:27
(14) самокритично =)
17 Cube
 
19.06.14
10:28
(14) С юмором - это уже хорошо)))))))))
Ты используй запрос, проблем меньше будет...
18 Godofsin
 
19.06.14
10:28
(17) +1
19 Godofsin
 
19.06.14
10:29
Хотя не принципиально
20 Рэйв
 
19.06.14
10:29
ВыборкаЗаписей.количество()=0
21 Надяша
 
19.06.14
10:30
(20)это я уже поняла
но делая оборотку по ОС вижу,что ОС есть в кол-ве=1
22 Рэйв
 
19.06.14
10:31
(21)Значит что-то намудрила с условием.
Делай запросом, не мучайся
23 AAP
 
19.06.14
10:31
Конфигурация какая?
24 Godofsin
 
19.06.14
10:32
(21) Вот как думаешь, почему?
25 AAP
 
19.06.14
10:35
+(23)Если не БГУ, то по 01 счету не ведется количественный учет
26 Cube
 
19.06.14
10:36
Надяша возьми с ИТС консоль запросов или качни отсюда немного доработанную (кстати, рекомендую именно эту) http://www.lavelin.ru/skachat/summary/4-1s/3-tipovaya-obrabotka-firmy-1s-konsol-zaprosov-dopolnennaya.html

Открой её в режиме "Предприятие" в своей базе. В правое верхнее поле вставь:

ВЫБРАТЬ
    ХозрасчетныйОстатки.Субконто1,
    ХозрасчетныйОстатки.Субконто2,
    ХозрасчетныйОстатки.Субконто3,
    ХозрасчетныйОстатки.СуммаОстаток
ИЗ
    РегистрБухгалтерии.Хозрасчетный.Остатки(
            &Дата,
            Счет = &СчетУчета,
            ,
            Организация = &Организация
                И Субконто1 = &ОсновноеСредство) КАК ХозрасчетныйОстатки

Затем жми сверху кнопку "&Параметры запроса", а там кнопку "Получить из запроса". Заполняй правую колонку у каждого параметра и закрывай эту форму крестиком.

Жми кнопку "Выполнить".

Если в нижнем поле появилась строка с результатом - то переноси этот запрос в код и работай с ним, если результат пустой, то ты где-то накосячила в параметрах или в запросе...
27 Godofsin
 
19.06.14
10:37
(26) можно я тоже возьму? =)
28 Cube
 
19.06.14
10:38
(25) В БГУ нет хозрасчетного плана счетов, там ЕСПБУ или как там его =))
29 Cube
 
19.06.14
10:38
(27) Даже не знаю... Ну ладно, возьми))
30 Kamas
 
19.06.14
10:39
ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство Это кто такие??
31 Godofsin
 
19.06.14
10:39
(29) Вот спасибо!!! )))
32 Kamas
 
19.06.14
10:40
(29) а я взял без спросу, прости пожалуйста, как назад положить то))
33 Godofsin
 
19.06.14
10:41
(32) Поздно, за тобой уже выехали )))
34 Надяша
 
19.06.14
10:43
(26)запрос не пустой
35 Cube
 
19.06.14
10:44
(32) Ну, мне чужого добра не жалко - ресурс-то не мой)))
Просто я именно этой консолью уже лет шесть пользуюсь - какая она удобная... :)
36 Wobland
 
19.06.14
10:45
(34) как тебя уговорить примениить это дело в своём коде?
37 Kamas
 
19.06.14
10:45
(32) яж через проксю сижу в торе  меня так просто не вычислиш
38 Надяша
 
19.06.14
10:45
(26)ВЫБРАТЬ
    ХозрасчетныйОстатки.Субконто1,
    ХозрасчетныйОстатки.Субконто2,
    ХозрасчетныйОстатки.Субконто3,
    ХозрасчетныйОстатки.СуммаОстаток,
    ХозрасчетныйОстатки.Счет,
    ХозрасчетныйОстатки.КоличествоОстатокКт,
    ХозрасчетныйОстатки.КоличествоОстатокДт,
    ХозрасчетныйОстатки.КоличествоОстаток
ИЗ
    РегистрБухгалтерии.Хозрасчетный.Остатки(
            &Дата,
            Счет = &СчетУчета,
            ,
            Организация = &Организация
                И Субконто1 = &ОсновноеСредство) КАК ХозрасчетныйОстатки
39 Надяша
 
19.06.14
10:45
ХозрасчетныйОстатки.КоличествоОстатокДт при выполнении равно 1
40 Kamas
 
19.06.14
10:46
(30) +еще раз постав точку остановки и посмотри что у тебя в ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство
41 Godofsin
 
19.06.14
10:47
(37)
" - Здравствуйте, это ФСБ.
- Здравствуйте, я знаю.
- Откуда?
- Вы мне на выключенный телефон дозвонились."
42 Cube
 
19.06.14
10:47
(34) Тогда осталось тебе уствоить тот факт, что количественный учет на 01 счете не ведется и вместо всего, что написано в (0) написать:

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|    ХозрасчетныйОстатки.Субконто1,
|    ХозрасчетныйОстатки.Субконто2,
|    ХозрасчетныйОстатки.Субконто3,
|    ХозрасчетныйОстатки.СуммаОстаток,
|    ХозрасчетныйОстатки.Счет,
|    ХозрасчетныйОстатки.КоличествоОстатокКт,
|    ХозрасчетныйОстатки.КоличествоОстатокДт,
|    ХозрасчетныйОстатки.КоличествоОстаток
|ИЗ
|    РегистрБухгалтерии.Хозрасчетный.Остатки(
|            &Дата,
|            Счет = &СчетУчета,
|            ,
|            Организация = &Организация
|                И Субконто1 = &ОсновноеСредство) КАК ХозрасчетныйОстатки";
Запрос.УстановитьПараметр("Дата", СюдаВставьПараметр);
Запрос.УстановитьПараметр("Организация", СюдаВставьПараметр);
Запрос.УстановитьПараметр("ОсновноеСредство", СюдаВставьПараметр);
Запрос.УстановитьПараметр("СчетУчета", СюдаВставьПараметр);

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
    //Делай что надо
КонецЕсли;
43 Надяша
 
19.06.14
10:50
(30) это созданный документ : в нём существующая ОС разделяется на 2 ОС. Как-то так
44 Надяша
 
19.06.14
10:50
(42) счет 01.01
45 Надяша
 
19.06.14
10:51
(42) суммовой и количественный
46 vicof
 
19.06.14
10:54
(44) На 10.01 ведутся материалы, при чем тут ОС?
47 vicof
 
19.06.14
10:54
*сории, сторно, чукча читатель
48 vicof
 
19.06.14
10:55
(43) Ос разделить на 2 просто так нельзя, нужно сначала списать существующее, потом принять на учет два новых.
49 vicof
 
19.06.14
10:55
И не городить новые документы
50 Надяша
 
19.06.14
10:57
я его уже давно нагородила, и он работал
51 Надяша
 
19.06.14
10:57
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    //    Списание разделяемого ОС
    Для Каждого ТекСтрокаРазделяемогоОС Из РазделяемоеОС Цикл
        //// регистр ГрафикиАмортизацииОСБухгалтерскийУчет
        //Движение = Движения.ГрафикиАмортизацииОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.Организация = Организация;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.ГрафикАмортизации = ТекСтрокаРазделяемогоОС.ГрафикАмортизации;
        
        //// регистр МестонахождениеОСБухгалтерскийУчет
        //Движение = Движения.МестонахождениеОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.МОЛ = ТекСтрокаРазделяемогоОС.МОЛ;
        //Движение.Местонахождение = ТекСтрокаРазделяемогоОС.Местонахождения;
        
        // регистр НачислениеАмортизацииОСБухгалтерскийУчет
        Движение = Движения.НачислениеАмортизацииОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.НачислятьАмортизацию = Ложь;
        
        // регистр НачислениеАмортизацииОСНалоговыйУчет
        Движение = Движения.НачислениеАмортизацииОСНалоговыйУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.НачислятьАмортизацию = Ложь;
        
        // регистр ПараметрыАмортизацииОСБухгалтерскийУчет
        //Движение = Движения.ПараметрыАмортизацииОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользованияБУ;
        //Движение.ОбъемПродукцииРабот = ТекСтрокаРазделяемогоОС.ОбъемпродукцииРабот;
        //Движение.СрокИспользованияДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.СрокИспользованияДляВычисленияАмортизации;
        //Движение.СтоимостьДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.СтоимостьДляВычисленияАмортизации;
        //Движение.ОбъемПродукцииРаботДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.ОбъемПродукцииРаботДляВычисленияАмортизации;
        //Движение.КоэффициентАмортизации = ТекСтрокаРазделяемогоОС.КоэффициентАмортизацииБУ;
        //Движение.КоэффициентУскорения = ТекСтрокаРазделяемогоОС.КоэффициентУскорения;
        
        // регистр ПараметрыАмортизацииОСНалоговыйУчет
        //Движение = Движения.ПараметрыАмортизацииОСНалоговыйУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользования;
        //Движение.КоэффициентАмортизации = ТекСтрокаРазделяемогоОС.КоэффициентАмортизацииНУ;
        //Движение.ПРДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.ПРДляВычисленияАмортизацииНУ;
        
        // регистр ПервоначальныеСведенияОСБухгалтерскийУчет
        //Движение = Движения.ПервоначальныеСведенияОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.ИнвентарныйНомер = ТекСтрокаРазделяемогоОС.ИнвентарныйНомер;
        //Движение.СпособПоступления = ТекСтрокаРазделяемогоОС.СпособПоступления;
        //Движение.ПервоначальнаяСтоимость = ТекСтрокаРазделяемогоОС.ПервоначальнаяСтоимость;
        //Движение.СпособНачисленияАмортизации = ТекСтрокаРазделяемогоОС.СпособНачисленияАмортизации;
        //Движение.ПараметрВыработки = ТекСтрокаРазделяемогоОС.ПараметрВыработки;
        //Движение.ПорядокПогашенияСтоимости = ТекСтрокаРазделяемогоОС.ПорядокПогашенияСтоимости;
        
        // регистр ПервоначальныеСведенияОСНалоговыйУчет
        //Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.АмортизацияДо2009 = ТекСтрокаРазделяемогоОС.АмортизацияДо2009;
        //Движение.МетодНачисленияАмортизации = ТекСтрокаРазделяемогоОС.МетодНачисленияАмортизации;
        //Движение.ПервоначальнаяСтоимостьНУ = ТекСтрокаРазделяемогоОС.ПервоначальнаяСтоимостьНУ;
        //Движение.СтоимостьДо2002 = ТекСтрокаРазделяемогоОС.СтоимостьДо2002;
        //Движение.АмортизацияДо2002 = ТекСтрокаРазделяемогоОС.АмортизацияДо2002;
        //Движение.ПорядокВключенияСтоимостиВСоставРасходов = ТекСтрокаРазделяемогоОС.ПорядокВключенияСтоимостиВСоставРасходов;
        //Движение.ФактическийСрокИспользованияДо2009 = ТекСтрокаРазделяемогоОС.ФактическийСрокИспользованияДо2009;
        
        // регистр ПервоначальныеСведенияОСНалоговыйУчетУСН
        //Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчетУСН.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.ПервоначальнаяСтоимостьУСН = ТекСтрокаРазделяемогоОС.ПервоначальнаяСтоимостьУСН;
        //Движение.СуммаНачисленнойАмортизации = ТекСтрокаРазделяемогоОС.СуммаНачисленнойАмортизации;
        //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользования;
        //Движение.ДатаПриобретения = ТекСтрокаРазделяемогоОС.ДатаПриобретения;
        //Движение.Организация = Организация;
        //Движение.ПорядокВключенияСтоимостиВСоставРасходовУСН = ТекСтрокаРазделяемогоОС.ПорядокВключенияСтоимостиВСоставРасходовУСН;
        
        // регистр СобытияОСОрганизаций
        Движение = Движения.СобытияОСОрганизаций.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        Движение.Организация = Организация;
        СобытиеВыбытиеОС = Справочники.СобытияОС.НайтиПоНаименованию("Выбыло",Истина);
        Если СобытиеВыбытиеОС = Справочники.СобытияОС.ПустаяСсылка() Тогда
            НовоеСобытиеВыбытиеОС = Справочники.СобытияОС.СоздатьЭлемент();
            НовоеСобытиеВыбытиеОС.Наименование = "Выбыло";
            НовоеСобытиеВыбытиеОС.Записать();
            СобытиеВыбытиеОС = НовоеСобытиеВыбытиеОС;
        Иначе
        КонецЕсли;        
        Движение.Событие = СобытиеВыбытиеОС;
        Движение.НомерДокумента = Номер;
        Движение.НазваниеДокумента = ЭтотОбъект;
        
        // регистр СостоянияОСОрганизаций
        Движение = Движения.СостоянияОСОрганизаций.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.ДатаСостояния = ЭтотОбъект.Дата;
        Движение.Состояние = Перечисления.СостоянияОС.СнятоСУчета;
        
        // регистр СчетаБухгалтерскогоУчетаОС
        //Движение = Движения.СчетаБухгалтерскогоУчетаОС.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.СчетУчета = ТекСтрокаРазделяемогоОС.СчетУчета;
        //Движение.СчетНачисленияАмортизации = ТекСтрокаРазделяемогоОС.СчетНачисленияАмортизации;
        
    КонецЦикла;
    
    //    Конец списания разделяемого ОС
    
    //    Ввод новых ОС
    
    //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    Для Каждого ТекСтрокаНовыеОС Из НовыеОС Цикл
        // регистр ГрафикиАмортизацииОСБухгалтерскийУчет
        Движение = Движения.ГрафикиАмортизацииОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.Организация = Организация;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.ГрафикАмортизации = ТекСтрокаНовыеОС.ГрафикАмортизации;
        
        // регистр МестонахождениеОСБухгалтерскийУчет
        Движение = Движения.МестонахождениеОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.МОЛ = ТекСтрокаНовыеОС.МОЛ;
        Движение.Местонахождение = ТекСтрокаНовыеОС.Местонахождения;
        
        // регистр НачислениеАмортизацииОСБухгалтерскийУчет
        Движение = Движения.НачислениеАмортизацииОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.НачислятьАмортизацию = ТекСтрокаНовыеОС.НачислятьАмортизациюБУ;
        
        // регистр НачислениеАмортизацииОСНалоговыйУчет
        Движение = Движения.НачислениеАмортизацииОСНалоговыйУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.НачислятьАмортизацию = ТекСтрокаНовыеОС.НачислятьАмортизациюНУ;
        
        //    регистр Начисление Амортизации ОС Специальный Коэффициент Налоговоый Учет
        Движение = Движения.НачислениеАмортизацииОССпециальныйКоэффициентНалоговыйУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.СпециальныйКоэффициент = ТекСтрокаНовыеОС.СпециальныйКоэффициент;
        
        // регистр ПараметрыАмортизацииОСБухгалтерскийУчет
        Движение = Движения.ПараметрыАмортизацииОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.СрокПолезногоИспользования = ТекСтрокаНовыеОС.СрокПолезногоИспользованияБУ;
        Движение.ОбъемПродукцииРабот = ТекСтрокаНовыеОС.ОбъемпродукцииРабот;
        Движение.СрокИспользованияДляВычисленияАмортизации = ТекСтрокаНовыеОС.СрокИспользованияДляВычисленияАмортизации;
        Движение.СтоимостьДляВычисленияАмортизации = ТекСтрокаНовыеОС.СтоимостьДляВычисленияАмортизации;
        Движение.ОбъемПродукцииРаботДляВычисленияАмортизации = ТекСтрокаНовыеОС.ОбъемПродукцииРаботДляВычисленияАмортизации;
        Движение.КоэффициентАмортизации = ТекСтрокаНовыеОС.КоэффициентАмортизацииБУ;
        Движение.КоэффициентУскорения = ТекСтрокаНовыеОС.КоэффициентУскорения;
        
        // регистр ПараметрыАмортизацииОСНалоговыйУчет
        Движение = Движения.ПараметрыАмортизацииОСНалоговыйУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.СрокПолезногоИспользования = ТекСтрокаНовыеОС.СрокПолезногоИспользованияНУ;
        Движение.КоэффициентАмортизации = ТекСтрокаНовыеОС.КоэффициентАмортизацииНУ;
        Движение.ПРДляВычисленияАмортизации = ТекСтрокаНовыеОС.ПРДляВычисленияАмортизацииНУ;
        
        // регистр ПервоначальныеСведенияОСБухгалтерскийУчет
        Движение = Движения.ПервоначальныеСведенияОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.ИнвентарныйНомер = ТекСтрокаНовыеОС.ИнвентарныйНомер;
        Движение.СпособПоступления = ТекСтрокаНовыеОС.СпособПоступления;
        Движение.ПервоначальнаяСтоимость = ТекСтрокаНовыеОС.ПервоначальнаяСтоимость;
        Движение.СпособНачисленияАмортизации = ТекСтрокаНовыеОС.СпособНачисленияАмортизации;
        Движение.ПараметрВыработки = ТекСтрокаНовыеОС.ПараметрВыработки;
        Движение.ПорядокПогашенияСтоимости = ТекСтрокаНовыеОС.ПорядокПогашенияСтоимости;
        
        // регистр ПервоначальныеСведенияОСНалоговыйУчет
        Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.АмортизацияДо2009 = ТекСтрокаНовыеОС.АмортизацияДо2009;
        Движение.МетодНачисленияАмортизации = ТекСтрокаНовыеОС.МетодНачисленияАмортизации;
        Движение.ПервоначальнаяСтоимостьНУ = ТекСтрокаНовыеОС.ПервоначальнаяСтоимостьНУ;
        Движение.СтоимостьДо2002 = ТекСтрокаНовыеОС.СтоимостьДо2002;
        Движение.АмортизацияДо2002 = ТекСтрокаНовыеОС.АмортизацияДо2002;
        Движение.ПорядокВключенияСтоимостиВСоставРасходов = ТекСтрокаНовыеОС.ПорядокВключенияСтоимостиВСоставРасходов;
        Движение.ФактическийСрокИспользованияДо2009 = ТекСтрокаНовыеОС.ФактическийСрокИспользованияДо2009;
        
        // регистр ПервоначальныеСведенияОСНалоговыйУчетУСН
        Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчетУСН.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.ПервоначальнаяСтоимостьУСН = ТекСтрокаНовыеОС.ПервоначальнаяСтоимостьУСН;
        Движение.СуммаНачисленнойАмортизации = ТекСтрокаНовыеОС.СуммаНачисленнойАмортизации;
        Движение.СрокПолезногоИспользования = ТекСтрокаНовыеОС.СрокПолезногоИспользования;
        Движение.ДатаПриобретения = ТекСтрокаНовыеОС.ДатаПриобретения;
        Движение.Организация = Организация;
        Движение.ПорядокВключенияСтоимостиВСоставРасходовУСН = ТекСтрокаНовыеОС.ПорядокВключенияСтоимостиВСоставРасходовУСН;
        
        // регистр СобытияОСОрганизаций
        Движение = Движения.СобытияОСОрганизаций.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.Событие = ТекСтрокаНовыеОС.Событие;
        Движение.НомерДокумента = Номер;
        Движение.НазваниеДокумента = ЭтотОбъект;
        
        // регистр СостоянияОСОрганизаций
        Движение = Движения.СостоянияОСОрганизаций.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.ДатаСостояния = ТекСтрокаНовыеОС.ДатаСостояния;
        Движение.Состояние = ТекСтрокаНовыеОС.Состояние;
        
        //    регистр СпособыОтраженияРасходовПоАмортизацииОСБухгалтерскийУчет
        Движение = Движения.СпособыОтраженияРасходовПоАмортизацииОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.Организация = Организация;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.СпособыОтраженияРасходовПоАмортизации = ТекСтрокаНовыеОС.СпособыОтраженияРасходов;
        
        // регистр СчетаБухгалтерскогоУчетаОС
        Движение = Движения.СчетаБухгалтерскогоУчетаОС.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.СчетУчета = ТекСтрокаНовыеОС.СчетУчета;
        Движение.СчетНачисленияАмортизации = ТекСтрокаНовыеОС.СчетНачисленияАмортизации;
        
        //    регистр Протяженность линий
        Если ТекСтрокаНовыеОС.ПротяженностьЛинии <> 0 Тогда
            //    Движение по регистру ПротяженностиЛинийЭлектропередач
            РегистрПротяженности =  РегистрыСведений.ПротяженностиЛинийЭлектропередач;
            НаборЗаписей = РегистрПротяженности.СоздатьНаборЗаписей();
            НаборЗаписей.Отбор.ДокументОснование.Установить(ЭтотОбъект.Ссылка);
            НаборЗаписей.Прочитать();
            Если НаборЗаписей.Количество()<>0 Тогда
                НаборЗаписей.Очистить();
                НаборЗаписей.Записать();
            Иначе
            КонецЕсли;
            
            ДатаДвижения = ЭтотОбъект.Дата;
            
            Движение = НаборЗаписей.Добавить();
            Движение.Период           = ЭтотОбъект.Дата;
            Движение.ДокументОснование= ЭтотОбъект.Ссылка;
            Движение.ОсновноеСредство = ТекСтрокаНовыеОС.ОсновноеСредство;
            
            Движение.Протяженность    = ТекСтрокаНовыеОС.ПротяженностьЛинии;
            
            НаборЗаписей.УстановитьАктивность(Истина);
            НаборЗаписей.Записать(Ложь);
            
        КонецЕсли;
        
        //    Запись реквизитов ОС в справочник
        ОбъектОС = ТекСтрокаНовыеОС.ОсновноеСредство.ПолучитьОбъект();
        ОбъектОС.Автотранспорт = ТекСтрокаНовыеОС.Автотранспорт;
        ОбъектОС.АдресМестонахождения = ТекСтрокаНовыеОС.АдресМестонахождения;
        ОбъектОС.АмортизационнаяГруппа = ТекСтрокаНовыеОС.АмортизационнаяГруппа;
        ОбъектОС.ГруппаОС = ТекСтрокаНовыеОС.ГруппаОС;
        ОбъектОС.ДатаВыпуска = ТекСтрокаНовыеОС.ДатаВыпуска;
        ОбъектОС.ЗаводскойНомер = ТекСтрокаНовыеОС.ЗаводскойНомер;
        ОбъектОС.Изготовитель = ТекСтрокаНовыеОС.Изготовитель;
        ОбъектОС.КодПоОКОФ = ТекСтрокаНовыеОС.КодПоОКОФ;
        ОбъектОС.КодРегиона = ТекСтрокаНовыеОС.КодРегиона;
        ОбъектОС.Комментарий = ТекСтрокаНовыеОС.КомментарийОС;
        ОбъектОС.НаименованиеПолное = ТекСтрокаНовыеОС.НаименованиеПолное;
        ОбъектОС.НомерПаспорта = ТекСтрокаНовыеОС.НомерПаспорта;
        ОбъектОС.ШифрПоЕНАОФ = ТекСтрокаНовыеОС.ШифрПоЕНАОФ;
        ОбъектОС.РасширеннаяГруппаОС = ТекСтрокаНовыеОС.РасширеннаяГруппаОС;
        ОбъектОС.ПрочиеСведения = ТекСтрокаНовыеОС.ПрочиеСведения;
        ОбъектОС.Записать();        
        
        //    Конец записи реквизитов ОС в справочник
        
    КонецЦикла;
        
    СтруктураШапкиДокумента = ОбщегоНазначения.СформироватьСтруктуруШапкиДокумента(ЭтотОбъект);
    Заголовок = ОбщегоНазначения.ПредставлениеДокументаПриПроведении(Ссылка);
        
    //    Формирование проводок
    СтрокаРазделяемогоОС = ТекСтрокаРазделяемогоОС;
    
    //    Вострикова    2012.11.21
    //    Количество списываемого ОС
    Отбор = Новый Структура("Организация, Подразделение, Счет, Субконто1", Организация, ПодразделениеОрганизации, ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство);
    ВыборкаЗаписей = РегистрыБухгалтерии.Хозрасчетный.Остатки(Дата, ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства, Отбор,,"Количество");
    Сообщить("Я пытаюсь получить первую запись из выборки в которой " + ВыборкаЗаписей.Количество() + " записей. Я молодец.");
    Если ВыборкаЗаписей.Количество()<>0 Тогда
//КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество
    
    КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).КоличествоОстатокДТ;КонецЕсли;
    //    Вострикова    2012.11.21
    
    Для Каждого ТекСтрокаНовыеОС Из НовыеОС Цикл
        // регистр Хозрасчетный
        
        Если КоличествоСписываемогоОС <> 1 Тогда
            Сообщить("Количество списываемого ОС не равно 1. Бухгалтерские проводки НЕ БУДУТ СФОРМИРОВАННЫ ! ! !");
        КонецЕсли;        
        
        //    Балансовая стоимость ОС
        
        Сумма        = ТекСтрокаНовыеОС.БалансоваяСтоимостьБУ;
        СуммаНУ        = ТекСтрокаНовыеОС.БалансоваяСтоимостьНУ;
        СуммаПР        = ТекСтрокаНовыеОС.БалансоваяСтоимостьПР;
        СуммаВР        = ТекСтрокаНовыеОС.БалансоваяСтоимостьВР;

        Если Сумма <> 0 Или
            СуммаНУ <> 0 Или
            СуммаПР <> 0 Или
            СуммаВР <> 0 Или
            КоличествоСписываемогоОС =1 Тогда
            Движение = Движения.Хозрасчетный.Добавить();
            Движение.Период = Дата;
            Движение.СчетДт = ТекСтрокаНовыеОС.СчетУчета;        
            Движение.КоличествоДт = 1;
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ОсновныеСредства", ТекСтрокаНовыеОС.ОсновноеСредство,Истина, Заголовок);
            
            Движение.СчетКт = ТекСтрокаРазделяемогоОС.СчетУчета;
            Если ТекСтрокаНовыеОС.НомерСтроки = 1 Тогда
                Движение.КоличествоКт = 1;
            Иначе
            КонецЕсли;
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,"ОсновныеСредства", ТекСтрокаРазделяемогоОС.ОсновноеСредство,Истина, Заголовок);
            
            БухгалтерскийУчет.УстановитьПодразделенияПроводки(
            Движение, СтруктураШапкиДокумента.ПодразделениеОрганизации, СтруктураШапкиДокумента.ПодразделениеОрганизации);
            
            Движение.Организация = Организация;
            Движение.Сумма = Сумма;
            
            //    Вострикова    2011.08.24
            Запрос = Новый Запрос;
            
            Запрос.УстановитьПараметр("Период",ЭтотОбъект.Дата);
            Запрос.УстановитьПараметр("ОС",ТекСтрокаРазделяемогоОС.ОсновноеСредство);
            
            Запрос.Текст =
            "ВЫБРАТЬ
            |    ПервоначальныеСведенияОСНалоговыйУчетСрезПоследних.ПорядокВключенияСтоимостиВСоставРасходов.Ссылка КАК Ссылка
            |ИЗ
            |    РегистрСведений.ПервоначальныеСведенияОСНалоговыйУчет.СрезПоследних(&Период, ОсновноеСредство = &ОС) КАК ПервоначальныеСведенияОСНалоговыйУчетСрезПоследних";
            
            Результат = Запрос.Выполнить().Выгрузить();
            ПорядокВключенияНУ = Результат.Получить(0).Ссылка;
            
            Если ПорядокВключенияНУ = Перечисления.ПорядокВключенияСтоимостиОСВСоставРасходовНУ.НачислениеАмортизации Тогда
                НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(СуммаНУ,СуммаНУ,СуммаПР,СуммаПР,СуммаВР,СуммаВР,Движение, СтруктураШапкиДокумента.ПрименениеПБУ18);
            КонецЕсли;
                //НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(1,1,0,0,0,0,Движение, СтруктураШапкиДокумента.ПрименениеПБУ18);
            //    Вострикова    2011.08.24
            
            Движение.Содержание = "Приказ разделения ОС: Балансовая стоимость ОС";
            Движение.НеКорректироватьСтоимостьАвтоматически = Истина;
        КонецЕсли;
        //    Конец балансовой стоимости ОС
        
        //    Амортизация ОС
        Сумма        = ТекСтрокаНовыеОС.АмортизацияБУ;
        СуммаНУ        = ТекСтрокаНовыеОС.АмортизацияНУ;
        СуммаПР        = ТекСтрокаНовыеОС.АмортизацияПР;
        СуммаВР        = ТекСтрокаНовыеОС.АмортизацияВР;
        
        Если Сумма <> 0 Или
            СуммаНУ <> 0 Или
            СуммаПР <> 0 Или
            СуммаВР <> 0 Тогда
            Движение = Движения.Хозрасчетный.Добавить();
            Движение.Период = Дата;
            Движение.СчетКт = ТекСтрокаНовыеОС.СчетНачисленияАмортизации;        
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,"ОсновныеСредства", ТекСтрокаНовыеОС.ОсновноеСредство,Истина, Заголовок);
            
            Движение.СчетДт = ТекСтрокаРазделяемогоОС.СчетНачисленияАмортизации;
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ОсновныеСредства", ТекСтрокаРазделяемогоОС.ОсновноеСредство,Истина, Заголовок);
            
            БухгалтерскийУчет.УстановитьПодразделенияПроводки(
            Движение, СтруктураШапкиДокумента.ПодразделениеОрганизации, СтруктураШапкиДокумента.ПодразделениеОрганизации);
            
            
            Движение.Организация = Организация;
            Движение.Сумма = Сумма;
            НалоговыйУчет.ЗаполнитьНалоговыеСуммыПроводки(СуммаНУ,СуммаНУ,СуммаПР,СуммаПР,СуммаВР,СуммаВР,Движение, СтруктураШапкиДокумента.ПрименениеПБУ18);
            
            Движение.Содержание = "Приказ разделения ОС: Амортизация ОС";
            Движение.НеКорректироватьСтоимостьАвтоматически = Истина;
        КонецЕсли;
        
        //    Конец амортизации ОС
        
        //    Переоценка ОС
        Сумма        = ТекСтрокаНовыеОС.ПереоценкаОС;
        
        Если Сумма <> 0 Тогда
            
            Движение = Движения.Хозрасчетный.Добавить();
            Движение.Период = Дата;
            Движение.СчетКт = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке;        
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,"ОсновныеСредства", ТекСтрокаНовыеОС.ОсновноеСредство,Истина, Заголовок);
            
            Движение.СчетДт = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке;
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ОсновныеСредства", ТекСтрокаРазделяемогоОС.ОсновноеСредство,Истина, Заголовок);
            
            Движение.Организация = Организация;
            Движение.Сумма = Сумма;
            
            Движение.Содержание = "Приказ разделения ОС: Переоценка ОС";
            Движение.НеКорректироватьСтоимостьАвтоматически = Истина;
        
52 Godofsin
 
19.06.14
11:00
ого...
53 Надяша
 
19.06.14
11:01
совсем "погано"?
54 Надяша
 
19.06.14
11:01
но работало...
55 Cube
 
19.06.14
11:04
(51) Жескач)))))
56 Cube
 
19.06.14
11:07
57 Надяша
 
19.06.14
11:11
(56) у нас-ведется, и косяк именно в этом ОС, т.к. для остальных ОС этот документ "функционировал"
58 Cube
 
19.06.14
11:14
(57) Не хотелось бы отклоняться от темы, но: как может вестись количественный учет ОС, если каждое ОС уникально, т.к. у каждого ОС свой инвентарный номер?
59 vicof
 
19.06.14
11:17
(57) А принять его два раза к учету не могли? Я не удивлюсь, если так и будет. Посмотри документы по нему.
(58) Бухгалтер лучше знает, чем девочка-программист :)
60 Надяша
 
19.06.14
11:19
(59)нет,был перенесен из 7.7 ввод начальных остатков
61 Надяша
 
19.06.14
11:26
по данному ОС была модернизация. Могло ли это повлиять?
62 vicof
 
19.06.14
11:29
(61) Я не знаю, как там у вас конфа переписана. Но судя по тому, что у вас бухучет не соблюдают, вполне могла повлиять.
63 Надяша
 
19.06.14
11:30
(62) )))
64 Cube
 
19.06.14
11:31
(61) Я теперь уже не знаю... :)
65 Надяша
 
19.06.14
11:32
(64)ладно,сейчас разберусь-отчитаюсь)))
66 dmitn
 
19.06.14
11:50
(48) можно. бух справкой
67 vicof
 
19.06.14
11:52
(66) И регистры очень удобно бухсправкой править, ага
68 dmitn
 
19.06.14
11:57
(67) зачем?
69 vicof
 
19.06.14
12:00
(68) чтобы одно ушло, а два пришло, сроки амортизации разные, стоимость разная в двух средств.
70 ИУБиПовиц
 
19.06.14
12:11
А у Вас в тч Разделяемое ОС сколько позиций?, а то у вас идет сначала цикл
Для Каждого ТекСтрокаРазделяемогоОС Из РазделяемоеОС Цикл
бла бла бла
КонецЦикла

а потом ваш отбор
И зачем вообще эта тч если мы только 1 ОС разделяем на несколько:)

И сколько у вас разделений то , что для них свой документ надо делать?
71 ИУБиПовиц
 
19.06.14
12:12
(67) Я находил в инете и доделывал по нас обработку в которой указываешь Ос из которое и ОС в которые превращаем, ну  и суммы, а она создавала бух справку с движениям по нужным регистрам
72 Надяша
 
19.06.14
13:55
снова всем спасибо за помощь!
а дело всё было в обезьянобухгалтере)))), которая изначально в шапке документа выбрала неверное подразделение. И я тоже волшебник-недоучка, весь программный код перековыряла и ваше, уважаемые, время потратила. Короче-проблема решена!!!теперь я в состоянии прыгать до потолка)))
73 Надяша
 
19.06.14
13:57
P.S. (26) спасибо огромное за консоль;)
74 Cube
 
19.06.14
13:59
(72) А теперь смотрим (15) =)))
75 Cube
 
19.06.14
13:59
(73) Фотка заполнена - всегда пожалуйста :))
76 vicof
 
19.06.14
14:01
(72) Зоопарк автоматизируешь?
77 vicof
 
19.06.14
14:02
Основное средство - Слон "Илюша", инв №0000032. Срок амортизации - 600 месяцев
78 Надяша
 
19.06.14
14:07
(77)его тоже нужно разделить? )))
79 Надяша
 
19.06.14
14:08
(74) я же барышня правильная-ОСВ сформировала и в запрос нужные параметры подставляла)))я даже не думала,что данный бухгалтер так ошибиться могла!!!
80 ИУБиПовиц
 
19.06.14
14:16
(79) Если мой дедуктивный сыскной анализ позволил правильно определить организацию Вашу, то бухгалтерам в энергофирме я б точно не доверял:)
81 Надяша
 
19.06.14
14:25
(80) ... видимо в коде указана моя фамилия, имя и город тоже известны...и если поискать "данный экземпляр" в небезызвестных  соц.сетях-можно определить место работы...и людям нужно доверять!