Я только учусь , не могу понять где затык в коде???

Есть созданный договор с поставщиком

```1c
    Перем мТекущаяВалютаВзаиморасчетов Экспорт;
    Перем мВалютаРегламентированногоУчета Экспорт;
    Перем СпособЗаполненияЦен Экспорт;
    Перем мТекущийДоговорКонтрагента Экспорт;
    Перем СтруктураРеквизитовДокумента Экспорт;

    Процедура КнопкаВыполнитьНажатие(Кнопка)

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ПоступлениеТоваровУслуг.Ссылка,
    | ПоступлениеТоваровУслуг.Контрагент,
    | ПоступлениеТоваровУслуг.Контрагент.ОсновнойДоговорКонтрагента КАК Договор
    |ИЗ
    | Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
    |ГДЕ
    | ПоступлениеТоваровУслуг.ОтражатьВУправленческомУчете = ЛОЖЬ
    | И ПоступлениеТоваровУслуг.Проведен = ЛОЖЬ";

    РезультатЗапроса = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Счетчик = 0;
    ЭлементыФормы.Индикатор1.МаксимальноеЗначение = ВыборкаДетальныеЗаписи.Количество();
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

    ОбработкаПрерыванияПользователя();

    ЗаполнениеДокументов.ПриИзмененииЗначенияДоговора(ЭтотОбъект, мТекущаяВалютаВзаиморасчетов, мВалютаРегламентированногоУчета, СпособЗаполненияЦен, СтруктураРеквизитовДокумента, , , ,);

    ЗаполнениеДокументов.УстановитьТипСделки(ЭтотОбъект, Ложь);

    ЗаполнениеДокументов.Записать(РежимЗаписиДокумента.Запись);
    ЗаполнениеДокументов.Записать(РежимЗаписиДокумента.Проведение);

    Счетчик = Счетчик + 1;
    ЭлементыФормы.Индикатор1.Значение = Счетчик;
    КонецЦикла;

    КонецПроцедуры
```
---
```1c
    Перем мВалютаРегламентированногоУчета Экспорт;

    Процедура КнопкаВыполнитьНажатие(Кнопка)
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ПоступлениеТоваровУслуг.Ссылка КАК Документ,
    | ПоступлениеТоваровУслуг.Контрагент.ОсновнойДоговорКонтрагента КАК ОсновнойДоговорКонтрагента
    |ИЗ
    | Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
    |ГДЕ
    | ПоступлениеТоваровУслуг.Проведен = ИСТИНА";

    РезультатЗапроса = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Счетчик = 0;
    ЭлементыФормы.Индикатор1.МаксимальноеЗначение = ВыборкаДетальныеЗаписи.Количество();

    Склад = Справочники.Склады.НайтиПоКоду("00002");

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

    ОбработкаПрерыванияПользователя();

    Счетчик = Счетчик + 1;
    ЭлементыФормы.Индикатор1.Значение = Счетчик;

    Если Не ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.Документ.Контрагент) Тогда
    Продолжить;
    КонецЕсли;

    //объявление
    ДокументОбъект = ВыборкаДетальныеЗаписи.Документ.ПолучитьОбъект();
    //:ДокументОбъект = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
    ДокументОбъект.ДоговорКонтрагента = ВыборкаДетальныеЗаписи.ОсновнойДоговорКонтрагента;

    ДокументОбъект.ВалютаДокумента = мВалютаРегламентированногоУчета;
    ДокументОбъект.ОтражатьВУправленческомУчете = Истина;
    ДокументОбъект.СкладОрдер = Склад;
    ДокументОбъект.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;
    ДокументОбъект.ТипЦен = ВыборкаДетальныеЗаписи.ОсновнойДоговорКонтрагента.ТипЦен;

    СтруктураРеквизитовДокумента = Ценообразование.ПолучитьСтруктуруРеквизитовДокументаДляЦенообразования(ДокументОбъект);
    ЗаполнениеДокументов.ПриИзмененииЗначенияДоговора(ДокументОбъект, ВыборкаДетальныеЗаписи.ОсновнойДоговорКонтрагента.ВалютаВзаиморасчетов,
    мВалютаРегламентированногоУчета, Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатурыКонтрагентов, СтруктураРеквизитовДокумента, , , ,);
    ЗаполнениеДокументов.УстановитьТипСделки(ДокументОбъект, Ложь);

    ДокументОбъект.Записать(РежимЗаписиДокумента.Запись);
    ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);

    КонецЦикла;

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

    мВалютаРегламентированногоУчета = глЗначениеПеременной("ВалютаРегламентированногоУчета");
```

Помогли исправить код)
---
А где затык?
1. Вы выбираете все непроведенные ПТУ.
2. Вы перебираете их ссылки в цикле.
3. ... и ничего с ними не делаете.

Может в этом проблема? Но зато есть ОбработкаПрерыванияПользователя и Индикатор!

PS. Кстати, а где кнопка-то расположена?
---
```1c
    Перем мВалютаРегламентированногоУчета Экспорт;

    Процедура КнопкаВыполнитьНажатие(Кнопка)
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ПоступлениеТоваровУслуг.Ссылка КАК Документ,
    | ПоступлениеТоваровУслуг.Контрагент.ОсновнойДоговорКонтрагента КАК ОсновнойДоговорКонтрагента
    |ИЗ
    | Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
    |ГДЕ
    | ПоступлениеТоваровУслуг.Проведен = ИСТИНА";

    РезультатЗапроса = Запрос.Выполнить();
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Счетчик = 0;
    ЭлементыФормы.Индикатор1.МаксимальноеЗначение = ВыборкаДетальныеЗаписи.Количество();

    Склад = Справочники.Склады.НайтиПоКоду("00002");

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

    ОбработкаПрерыванияПользователя();

    Счетчик = Счетчик + 1;
    ЭлементыФормы.Индикатор1.Значение = Счетчик;

    Если Не ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.Документ.Контрагент) Тогда
    Продолжить;
    КонецЕсли;

    //объявление
    ДокументОбъект = ВыборкаДетальныеЗаписи.Документ.ПолучитьОбъект();
    //:ДокументОбъект = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
    ДокументОбъект.ДоговорКонтрагента = ВыборкаДетальныеЗаписи.ОсновнойДоговорКонтрагента;

    ДокументОбъект.ВалютаДокумента = мВалютаРегламентированногоУчета;
    ДокументОбъект.ОтражатьВУправленческомУчете = Истина;
    ДокументОбъект.СкладОрдер = Склад;
    ДокументОбъект.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;
    ДокументОбъект.ТипЦен = ВыборкаДетальныеЗаписи.ОсновнойДоговорКонтрагента.ТипЦен;

    СтруктураРеквизитовДокумента = Ценообразование.ПолучитьСтруктуруРеквизитовДокументаДляЦенообразования(ДокументОбъект);
    ЗаполнениеДокументов.ПриИзмененииЗначенияДоговора(ДокументОбъект, ВыборкаДетальныеЗаписи.ОсновнойДоговорКонтрагента.ВалютаВзаиморасчетов,
    мВалютаРегламентированногоУчета, Перечисления.СпособыЗаполненияЦен.ПоЦенамНоменклатурыКонтрагентов, СтруктураРеквизитовДокумента, , , ,);
    ЗаполнениеДокументов.УстановитьТипСделки(ДокументОбъект, Ложь);

    ДокументОбъект.Записать(РежимЗаписиДокумента.Запись);
    ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);

    КонецЦикла;

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

    мВалютаРегламентированногоУчета = глЗначениеПеременной("ВалютаРегламентированногоУчета");
```

Помогли исправить код)