ДОБРЫЙ ДЕНЬ!
https://s.mail.ru/42GcT7zN12nH/img-2015-12-08-13-18-02.png
В толстом при нажатии на кнопку провести выходит задубление... Как это объяснить?

>выходит задубление

рукож.пие

чтобы объяснить, нужно посмотреть модуль ))

(0) Для к = 1 по 8 Цикл :)

Чистка регистра при проведении есть?

Модуль объекта:

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
    Если ТипЗнч(ДанныеЗаполнения) = Тип("СправочникСсылка.Контрагенты") Тогда
        
        РаботаСДокументами.ВводНаОсновании(ЭтотОбъект, ДанныеЗаполнения, "ПоступлениеТоваров");        

    КонецЕсли;
КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)

    //ДвиженияПоРегистрам.ПриходНоменклатуры(Движения, Ссылка);
    //
    //Движения.Взаиморасчеты.Записывать = Истина;
    //Движения.РегистрБухгалтерии1.Записывать = Истина;

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

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
    СуммаДокумента = Товары.Итог("Сумма");
КонецПроцедуры

Процедура МодульМО() Экспорт
    

    

КонецПроцедуры

(1) и этим все сказано.

вот задубление http://cs617328.vk.me/v617328262/158b9/I9BqFQ3oY8A.jpg

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

Движения.ОстаткиТоваровЭталон.Очистить()

Движения.ОстаткиТоваровЭталон.Записывать = Истина;
   Движения.ОстаткиТоваровЭталон.очистить()

логично, благодарю.