7.7 Обработка на основание инвентаризаций сделать оприходование

1с 7.7. ТИС мб есть у кого то Обработка чтобы взять за определенный период инвентаризации и сделать на основание оприходования.

хз мне кажется дольше
Обрезаю базу 1с 7.7. ТиС
В ней ужасно много складов и фирм хотелось бы чтот придумать чтобы сделать автоматически инвентаризацию по всем складам и фирмам и на основание ее сделать оприходование
обрезаю базу на 01 01 17 а инвентаризации делаю на 31 12 16..
мб есть какой то более простой вариант но я его незнаю

а я делал по другому
я делал инвентаризацию по складам и фирмам
удалял учетное количество обработкой
делал оприходование


Вы это делали вручную или обработкой если обработкой можете поделиться?
1) Запрос к регистру остатков в разрезе складов/фирм
2) Заполнение документов ввода остатков

хотя бы как пример посмотрел бы

чет за 10 минут не получилось=( уже второй час пробую

Вот с чего я начал делать

Код:

//*******************************************
Процедура Сформировать()
   
    ДокОснование = СоздатьОбъект("Документ.ИнвентаризацияТМЦ");
    ДокОснование.НайтиДокумент(СсылкаНаОбъект);
   
    Оприход=СоздатьОбъект("Документ.ОприходованиеТМЦ");
    Оприход.Новый();
   
    Оприход.ДатаДок    = ДокОснование.ДатаДок;
    Оприход.Склад    = ДокОснование.Склад;
    Оприход.Фирма    = ДокОснование.Фирма;
    Оприход.Валюта    = ДокОснование.Валюта;
    Оприход.Проект    = ДокОснование.Проект;

    Оприход.Курс = ДокОснование.Курс;
    Оприход.Курс = ДокОснование.Кратность;
   
    ВремВидТМЦ    =    ВосстановитьЗначение("ВидТМЦПоУмолчанию");
    Если ПустоеЗначение(Оприход.ВидТМЦ)=1 Тогда
        ВремВидТМЦ = Перечисление.ВидыТМЦ.Товар;
    КонецЕсли;
   
    //Если ТипЦен.найтиПоКоду("00002") = 1  Тогда
    //    Оприход.ТипЦен = ТипЦен.ТекущийЭлемент();
    //КонецЕсли;
    // Цену заполним из справочника
    Если ПустоеЗначение(Оприход.ТипЦен) = 0 Тогда
       
        // получим цену
        Цена = глПолучитьЦену(ДокОснование.Номенклатура, ДокОснование.ТипЦен, ДокОснование.ДатаДок, ДокОснование.Единица, ДокОснование.Валюта, ДокОснование.Курс, ДокОснование.Кратность)
    Иначе   
        Цена = 0; // нет типа цен, нет и цены
    КонецЕсли;
   
    Оприход.Комментарий="##Создано автоматически";        
   
   
    Состояние("Перебор строк документа!");
    Оприход.УдалитьСтроки();
   

   
    Пока ДокОснование.ПолучитьСтроку()=1 Цикл
       
        Оприход.НоваяСтрока();
        Оприход.Количество=ДокОснование.Количество;
        Оприход.Номенклатура=ДокОснование.Номенклатура;
        Оприход.Единица=ДокОснование.Единица;
        Оприход.ВидТМЦ = ВремВидТМЦ;
       
        Оприход.Коэффициент=ДокОснование.Коэффициент;
       
       
       
        ЦенаЦены = 0;
        ТовЦена =  глВернутьЦену(Оприход.Номенклатура, Оприход.ТипЦен, Оприход.ДатаДок, ЦенаЦены, Оприход.Единица, Оприход.Валюта);
        Оприход.Цена = глФРМ(ЦенаЦены);
        Оприход.Сумма = Оприход.Цена*Оприход.Количество;
    КонецЦикла;
   
    Оприход.Записать();
    //Оприход.Провести();
КонецПроцедуры

Вот что в итоге вышло..
не заполняет шапку на основание и не работает процедура создание партии незнаю как правильно ее сделать
еще вопрос по дате документа он не дает мне сделать 31.12.16
тип номер документа не уникален.

Код:

//*******************************************
Процедура Сформировать()
    Перем ОприходованныеКоличества;
    Перем ВремЦена, ЕдЦены, ВалютаЦены; // для получения цеы из справочника

    ДокОснование = СоздатьОбъект("Документ.ИнвентаризацияТМЦ");
    ДокОснование.НайтиДокумент(СсылкаНаОбъект);

    Датадок=ДокОснование.ДатаДок;
    // сформируем список товаров,
    ТекстЗапроса = "//{{ЗАПРОС(ПредСписание)
    |Период с '01.01.1990' по ДатаДок;
    |Без итогов;
    |Основание = Документ.ОприходованиеТМЦ.ДокОснование;
    |Товар = Документ.ОприходованиеТМЦ.Номенклатура;
    |Колво = Документ.ОприходованиеТМЦ.Количество;
    |Коэфф = Документ.ОприходованиеТМЦ.Коэффициент;
    |Функция ВсегоКолво = Сумма(Колво);
    |Группировка Товар без групп;
    |Группировка Коэфф;
    |Условие(Основание = ДокОснование);
    |"//}}ЗАПРОС
    ;

    Запрос = СоздатьОбъект("Запрос");
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        //Возврат "Ошибка при отборе товаров.";
    КонецЕсли;
    Запрос.Выгрузить(ОприходованныеКоличества);



    Оприход=СоздатьОбъект("Документ.ОприходованиеТМЦ");
    Оприход.Новый();
    //глЗаполнитьШапкуНаОсн(Оприход.ТекущийДокумент(), ДокОснование, "Покупка");
    Оприход.ДатаДок    = дата('01.01.2017');//ДокОснование.ДатаДок;
    Оприход.Склад    = ДокОснование.Склад;
    Оприход.Фирма    = ДокОснование.Фирма;
    Оприход.Валюта    = ДокОснование.Валюта;
    Оприход.Проект    = ДокОснование.Проект;
    Оприход.Автор    = ДокОснование.Автор;
    Оприход.Курс = ДокОснование.Курс;
    Оприход.Курс = ДокОснование.Кратность;



    ВремВидТМЦ    =    ВосстановитьЗначение("ВидТМЦПоУмолчанию");
    Если ПустоеЗначение(Оприход.ВидТМЦ)=1 Тогда
        ВремВидТМЦ = Перечисление.ВидыТМЦ.Товар;
    КонецЕсли;


    ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
    ДокОснование.ВыгрузитьТабличнуюЧасть(ТаблицаДокумента);


    ТаблицаДокумента.ВыбратьСтроки();
    Пока ТаблицаДокумента.ПолучитьСтроку()=1 Цикл
        Если (ТаблицаДокумента.КоличествоУчет < ТаблицаДокумента.Количество) Тогда
            Номенклатура = ТаблицаДокумента.Номенклатура;
            Количество = ТаблицаДокумента.Количество - ТаблицаДокумента.КоличествоУчет;
            // поищем в таблице уже списанных количеств
            Поз = 0;
            Пока (ОприходованныеКоличества.НайтиЗначение(Номенклатура, Поз, "Товар") = 1) и (Количество > 0) Цикл
                ОприходованныеКоличества.ПолучитьСтрокуПоНомеру(Поз);
                // пересчитаем количество в единицу измерения инвентаризации
                СписКолво  = ОприходованныеКоличества.ВсегоКолво * ОприходованныеКоличества.Коэфф /
                             ?(ПустоеЗначение(ТаблицаДокумента.Коэффициент) = 1, 1, ТаблицаДокумента.Коэффициент);
                ПогашКолво = Мин(Количество, СписКолво);
            
                Если ПогашКолво >= СписКолво Тогда
                    ОприходованныеКоличества.УдалитьСтроку(Поз);
                Иначе
                    ОприходованныеКоличества.ВсегоКолво = (СписКолво - ПогашКолво) * ТаблицаДокумента.Коэффициент /
                                                          ?(ПустоеЗначение(ОприходованныеКоличества.Коэфф) = 1, 1, ОприходованныеКоличества.Коэфф);
                КонецЕсли;
            
                Количество = Количество - ПогашКолво;
            
                Поз = 0;
            КонецЦикла;
        
            Если Количество > 0 Тогда
                Оприход.НоваяСтрока();
                Оприход.ВидТМЦ       = ВремВидТМЦ;
                Оприход.Номенклатура = Номенклатура;
                Оприход.Количество      = Количество;
                Оприход.Единица      = ТаблицаДокумента.Единица;
                Оприход.Коэффициент  = ТаблицаДокумента.Коэффициент;
            
                Если ДокОснование.ВидОперации = Перечисление.ВидыИнвентаризаций.ПоРознице Тогда
                
                    // Цену заполним из справочника
                    Если ПустоеЗначение(Оприход.ТипЦен) = 0 Тогда
                    
                        // получим цену
                        Оприход.Цена = глПолучитьЦену(Оприход.Номенклатура, Оприход.ТипЦен, Оприход.ДатаДок, Оприход.Единица, Оприход.Валюта, Оприход.Курс, Оприход.Кратность)
                    Иначе
                        Оприход.Цена = 0; // нет типа цен, нет и цены
                    КонецЕсли;
                
                    // Розничную цену возьмем из документа
                    РозничнаяЦена    = ТаблицаДокумента.Цена;
                
                    // посчитаем розничную наценку
                    Если Оприход.Цена <> 0 Тогда                                                 
                        РознЦена = глПересчет(РозничнаяЦена, глРубли, 1, Оприход.Валюта, Оприход.Курс,, Оприход.Кратность);
                        РозничнаяНаценка = (РознЦена - Оприход.Цена) / Оприход.Цена * 100;
                    Иначе
                        РозничнаяНаценка = 0;
                    КонецЕсли;
                Иначе                
                    Оприход.Цена = ТаблицаДокумента.Цена;
                КонецЕсли;
            
                Оприход.Сумма = Оприход.Цена * Оприход.Количество;
            
                //СоздатьПартию();
            КонецЕсли;
        
        КонецЕсли;
    
    КонецЦикла;
    Оприход.Записать();
    Оприход.Провести();
КонецПроцедуры


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