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

ошибка:{Документ.ПриказРазделенияОС.МодульОбъекта(322)}: Ошибка при вызове метода контекста (Получить)
    КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество;
по причине:
Значение индекса выходит за границы диапазона

это бывает, когда значение индекса выходит за границы диапазона

не могу выловить ошибку

в чём причина???

(0) Ну значит нет элемента с индексом 0 в выборке. То есть ни одного.

(3) Если ВыборкаЗаписей.Количество() = 0 тогда
        Сообщить("Упс... а записей то и нету..");
        Возврат;
    КонецЕсли;

(2) Перед строкой

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

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

Сообщить("Я пытаюсь получить первую запись из выборки в которой " + ВыборкаЗаписей.Количество() + " записей. Я молодец.");

Как минимум нужно
Если ВыборкаЗаписей.Количество()<>0 Тогда
КоличествоСписываемогоОС = ВыборкаЗаписей.Получить(0).Количество

Количество списываемого ОС не равно 1. Бухгалтерские проводки НЕ БУДУТ СФОРМИРОВАНЫ ! ! !

хотя ОС есть...

(8) Хвастаешься?

запуталась окончательно

(9) Значит корявый отбор

(9) а не находится

чем хвастаться???тупостью своею?

(9) На эту дату, по этой организиции и подразделению, на этом счете, да?

(14) самокритично =)

(14) С юмором - это уже хорошо)))))))))
Ты используй запрос, проблем меньше будет...

(17) +1

Хотя не принципиально

ВыборкаЗаписей.количество()=0

(20)это я уже поняла
но делая оборотку по ОС вижу,что ОС есть в кол-ве=1

(21)Значит что-то намудрила с условием.
Делай запросом, не мучайся

Конфигурация какая?

(21) Вот как думаешь, почему?

+(23)Если не БГУ, то по 01 счету не ведется количественный учет

Надяша возьми с ИТС консоль запросов или качни отсюда немного доработанную (кстати, рекомендую именно эту) http://www.lavelin.ru/skachat/summary/4-1s/3-tipovaya-obrabotka-firmy-1s-konsol-zaprosov-dopolnennaya.html

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

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

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

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

Если в нижнем поле появилась строка с результатом - то переноси этот запрос в код и работай с ним, если результат пустой, то ты где-то накосячила в параметрах или в запросе...

(26) можно я тоже возьму? =)

(25) В БГУ нет хозрасчетного плана счетов, там ЕСПБУ или как там его =))

(27) Даже не знаю... Ну ладно, возьми))

ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство Это кто такие??

(29) Вот спасибо!!! )))

(29) а я взял без спросу, прости пожалуйста, как назад положить то))

(32) Поздно, за тобой уже выехали )))

(26)запрос не пустой

(32) Ну, мне чужого добра не жалко - ресурс-то не мой)))
Просто я именно этой консолью уже лет шесть пользуюсь - какая она удобная... :)

(34) как тебя уговорить примениить это дело в своём коде?

(32) яж через проксю сижу в торе  меня так просто не вычислиш

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

ХозрасчетныйОстатки.КоличествоОстатокДт при выполнении равно 1

(30) +еще раз постав точку остановки и посмотри что у тебя в ТекСтрокаРазделяемогоОС.СчетУчета, ТекСтрокаРазделяемогоОС.ОсновноеСредство

(37)
" - Здравствуйте, это ФСБ.
- Здравствуйте, я знаю.
- Откуда?
- Вы мне на выключенный телефон дозвонились."

(34) Тогда осталось тебе уствоить тот факт, что количественный учет на 01 счете не ведется и вместо всего, что написано в (0) написать:

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

Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
    //Делай что надо
КонецЕсли;

(30) это созданный документ : в нём существующая ОС разделяется на 2 ОС. Как-то так

(42) счет 01.01

(42) суммовой и количественный

(44) На 10.01 ведутся материалы, при чем тут ОС?

*сории, сторно, чукча читатель

(43) Ос разделить на 2 просто так нельзя, нужно сначала списать существующее, потом принять на учет два новых.

И не городить новые документы

я его уже давно нагородила, и он работал

Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    //    Списание разделяемого ОС
    Для Каждого ТекСтрокаРазделяемогоОС Из РазделяемоеОС Цикл
        //// регистр ГрафикиАмортизацииОСБухгалтерскийУчет
        //Движение = Движения.ГрафикиАмортизацииОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.Организация = Организация;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.ГрафикАмортизации = ТекСтрокаРазделяемогоОС.ГрафикАмортизации;
        
        //// регистр МестонахождениеОСБухгалтерскийУчет
        //Движение = Движения.МестонахождениеОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.МОЛ = ТекСтрокаРазделяемогоОС.МОЛ;
        //Движение.Местонахождение = ТекСтрокаРазделяемогоОС.Местонахождения;
        
        // регистр НачислениеАмортизацииОСБухгалтерскийУчет
        Движение = Движения.НачислениеАмортизацииОСБухгалтерскийУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.НачислятьАмортизацию = Ложь;
        
        // регистр НачислениеАмортизацииОСНалоговыйУчет
        Движение = Движения.НачислениеАмортизацииОСНалоговыйУчет.Добавить();
        Движение.Период = Дата;
        Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        Движение.Организация = Организация;
        Движение.НачислятьАмортизацию = Ложь;
        
        // регистр ПараметрыАмортизацииОСБухгалтерскийУчет
        //Движение = Движения.ПараметрыАмортизацииОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользованияБУ;
        //Движение.ОбъемПродукцииРабот = ТекСтрокаРазделяемогоОС.ОбъемпродукцииРабот;
        //Движение.СрокИспользованияДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.СрокИспользованияДляВычисленияАмортизации;
        //Движение.СтоимостьДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.СтоимостьДляВычисленияАмортизации;
        //Движение.ОбъемПродукцииРаботДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.ОбъемПродукцииРаботДляВычисленияАмортизации;
        //Движение.КоэффициентАмортизации = ТекСтрокаРазделяемогоОС.КоэффициентАмортизацииБУ;
        //Движение.КоэффициентУскорения = ТекСтрокаРазделяемогоОС.КоэффициентУскорения;
        
        // регистр ПараметрыАмортизацииОСНалоговыйУчет
        //Движение = Движения.ПараметрыАмортизацииОСНалоговыйУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.СрокПолезногоИспользования = ТекСтрокаРазделяемогоОС.СрокПолезногоИспользования;
        //Движение.КоэффициентАмортизации = ТекСтрокаРазделяемогоОС.КоэффициентАмортизацииНУ;
        //Движение.ПРДляВычисленияАмортизации = ТекСтрокаРазделяемогоОС.ПРДляВычисленияАмортизацииНУ;
        
        // регистр ПервоначальныеСведенияОСБухгалтерскийУчет
        //Движение = Движения.ПервоначальныеСведенияОСБухгалтерскийУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.ИнвентарныйНомер = ТекСтрокаРазделяемогоОС.ИнвентарныйНомер;
        //Движение.СпособПоступления = ТекСтрокаРазделяемогоОС.СпособПоступления;
        //Движение.ПервоначальнаяСтоимость = ТекСтрокаРазделяемогоОС.ПервоначальнаяСтоимость;
        //Движение.СпособНачисленияАмортизации = ТекСтрокаРазделяемогоОС.СпособНачисленияАмортизации;
        //Движение.ПараметрВыработки = ТекСтрокаРазделяемогоОС.ПараметрВыработки;
        //Движение.ПорядокПогашенияСтоимости = ТекСтрокаРазделяемогоОС.ПорядокПогашенияСтоимости;
        
        // регистр ПервоначальныеСведенияОСНалоговыйУчет
        //Движение = Движения.ПервоначальныеСведенияОСНалоговыйУчет.Добавить();
        //Движение.Период = Дата;
        //Движение.ОсновноеСредство = ТекСтрокаРазделяемогоОС.ОсновноеСредство;
        //Движение.Организация = Организация;
        //Движение.АмортизацияДо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 Тогда
            
            Движение = Движения.Хозрасчетный.Добавить();
            Движение.Период = Дата;
            Движение.СчетКт = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке;        
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,"ОсновныеСредства", ТекСтрокаНовыеОС.ОсновноеСредство,Истина, Заголовок);
            
            Движение.СчетДт = ПланыСчетов.Хозрасчетный.ПриростСтоимостиИмуществаПоПереоценке;
            БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,"ОсновныеСредства", ТекСтрокаРазделяемогоОС.ОсновноеСредство,Истина, Заголовок);
            
            Движение.Организация = Организация;
            Движение.Сумма = Сумма;
            
            Движение.Содержание = "Приказ разделения ОС: Переоценка ОС";
            Движение.НеКорректироватьСтоимостьАвтоматически = Истина;
        

ого...

совсем "погано"?

но работало...

(51) Жескач)))))

(44) Типовая БП 2.0: http://storage8.static.itmages.ru/i/14/0619/h_1403161756_7154951_735d9e35f3.jpg

(56) у нас-ведется, и косяк именно в этом ОС, т.к. для остальных ОС этот документ "функционировал"

(57) Не хотелось бы отклоняться от темы, но: как может вестись количественный учет ОС, если каждое ОС уникально, т.к. у каждого ОС свой инвентарный номер?

(57) А принять его два раза к учету не могли? Я не удивлюсь, если так и будет. Посмотри документы по нему.
(58) Бухгалтер лучше знает, чем девочка-программист :)

(59)нет,был перенесен из 7.7 ввод начальных остатков

по данному ОС была модернизация. Могло ли это повлиять?

(61) Я не знаю, как там у вас конфа переписана. Но судя по тому, что у вас бухучет не соблюдают, вполне могла повлиять.

(62) )))

(61) Я теперь уже не знаю... :)

(64)ладно,сейчас разберусь-отчитаюсь)))

(48) можно. бух справкой

(66) И регистры очень удобно бухсправкой править, ага

(67) зачем?

(68) чтобы одно ушло, а два пришло, сроки амортизации разные, стоимость разная в двух средств.

А у Вас в тч Разделяемое ОС сколько позиций?, а то у вас идет сначала цикл
Для Каждого ТекСтрокаРазделяемогоОС Из РазделяемоеОС Цикл
бла бла бла
КонецЦикла

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

И сколько у вас разделений то , что для них свой документ надо делать?

(67) Я находил в инете и доделывал по нас обработку в которой указываешь Ос из которое и ОС в которые превращаем, ну  и суммы, а она создавала бух справку с движениям по нужным регистрам

снова всем спасибо за помощь!
а дело всё было в обезьянобухгалтере)))), которая изначально в шапке документа выбрала неверное подразделение. И я тоже волшебник-недоучка, весь программный код перековыряла и ваше, уважаемые, время потратила. Короче-проблема решена!!!теперь я в состоянии прыгать до потолка)))

P.S. (26) спасибо огромное за консоль;)

(72) А теперь смотрим (15) =)))

(73) Фотка заполнена - всегда пожалуйста :))

(72) Зоопарк автоматизируешь?

Основное средство - Слон "Илюша", инв №0000032. Срок амортизации - 600 месяцев

(77)его тоже нужно разделить? )))

(74) я же барышня правильная-ОСВ сформировала и в запрос нужные параметры подставляла)))я даже не думала,что данный бухгалтер так ошибиться могла!!!

(79) Если мой дедуктивный сыскной анализ позволил правильно определить организацию Вашу, то бухгалтерам в энергофирме я б точно не доверял:)

(80) ... видимо в коде указана моя фамилия, имя и город тоже известны...и если поискать "данный экземпляр" в небезызвестных  соц.сетях-можно определить место работы...и людям нужно доверять!