8.х Документ реализация

Здравствуйте, Форумчане. Нужна помощь.
Стоит такая задача: сделать документ реализация, который автоматически (при создании/открытии документа) заполняет табличную часть из регистра сведений на текущую дату, либо на ту дату, которую укажет пользователь (регистр сведений заполняется пользователем и имеет две колонки период и сама номенклатура). На форме имеется только три первые колонки (№, Точка продаж(контрагент) и Адрес) остальные колонки создаются программно (на каждую номенклатуру на дату из регистра сведений своя колонка (ручка, карандаш и т.п.), т.е. сколько пользователь забьет в регистр сведений номенклатуры столько и будет колонок(на текущую дату). В общем с созданием колонок проблем нет, но проблема в том, что нужно всю эту таблицу хранить виртуально (при записи, естественно ничего не сохраняется, кроме первых трех колонок).
Вот код:

Код:

Если ДокументОбъект.ЭтоНовый() Тогда
     
   Запрос = Новый Запрос;
   Запрос.Текст =
     "ВЫБРАТЬ
     |   СписокНоменклатурыСрезПоследних.Номенклатура,
     |   СписокНоменклатурыСрезПоследних.Период,
     |   ЦеныНоменклатурыСрезПоследних.Цена
     |ИЗ
     |   РегистрСведений.СписокНоменклатуры.СрезПоследних(&Дата, ) КАК СписокНоменклатурыСрезПоследних
     |     ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Дата, ) КАК ЦеныНоменклатурыСрезПоследних
     |     ПО СписокНоменклатурыСрезПоследних.Номенклатура = ЦеныНоменклатурыСрезПоследних.Номенклатура";

   Запрос.УстановитьПараметр("Дата", Дата);
   Результат    = Запрос.Выполнить();
   Выборка    = Результат.Выбрать();
     
   Пока Выборка.Следующий() Цикл
     Если Дата = Выборка.Период Тогда
       КолонкаТЧ         = ЭлементыФормы.Товары.Колонки.Добавить();
       КолонкаТЧ.ТекстШапки    = Строка("" + Выборка.Номенклатура + ", " + Выборка.Цена + "");
       КолонкаТЧ.УстановитьЭлементУправления(Тип("ПолеВвода"));
     КонецЕсли;
   КонецЦикла;
     
     КолонкаТЧ         = ЭлементыФормы.Товары.Колонки.Добавить();
     КолонкаТЧ.ТекстШапки    = "Периодичность закупа";
     КолонкаТЧ.УстановитьЭлементУправления(Тип("ПолеВвода"));
     КолонкаТЧ         = ЭлементыФормы.Товары.Колонки.Добавить();
     КолонкаТЧ.ТекстШапки    = "День недели закупа";
     КолонкаТЧ.УстановитьЭлементУправления(Тип("ПолеВвода"));
     КолонкаТЧ         = ЭлементыФормы.Товары.Колонки.Добавить("Контакты");
     КолонкаТЧ.УстановитьЭлементУправления(Тип("ПолеВвода"));
     КолонкаТЧ         = ЭлементыФормы.Товары.Колонки.Добавить("Сумма");
     КолонкаТЧ.УстановитьЭлементУправления(Тип("ПолеВвода"));
   КонецЕсли;

При повторном открытии документа табличная часть должна собираться в таком же порядке в каком записывал пользователь.
1С 8.2, обычное приложение

Вот как-то так это должно выглядеть:

Возникла проблема с записью документа. Имеется 2 табличные части: ТаблицаНоменклатуры(там только номенклатура) и Товары(все остальное). Делаю по аналогии с документом Установка цен номенклатуры.

Код:

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
  
    Товары.Очистить();
    КоличествоСтрок = ВизуальныеТовары.Количество() - 1;
    Для Стр = 0 По КоличествоСтрок Цикл
        СтрокаТаблицыНоменклатуры = ВизуальныеТовары[Стр];
        Для Каждого СтрокаТоваров Из Товары Цикл
          
            НоваяСтрока = Товары.Добавить();
            НоваяСтрока.Номенклатура                 = СтрокаТоваров.Номенклатура;
            НоваяСтрока.ТочкаПродаж                   = СтрокаТоваров.ТочкаПродаж;
            НоваяСтрока.Адрес                               = СтрокаТоваров.Адрес;
            НоваяСтрока.ПериодичностьЗакупа    = СтрокаТоваров.ПериодичностьЗакупа;
            НоваяСтрока.ДеньНеделиЗакупа         = СтрокаТоваров.ДеньНеделиЗакупа;
            НоваяСтрока.Контакты                          = СтрокаТоваров.Контакы;
        КонецЦикла;
    КонецЦикла;
  
КонецПроцедуры

ВизуальныеТовары - табличное поле.

Окей. Я программно создаю колонки (туда соответственно вводится информация). Но так как на табличном поле нет этих колонок, то данные надо где-то хранить. Вот я и пытаюсь записывать это в табличную часть.

Хорошо. Начну с начала.)
В общем задание такое: Сделать документ реализации.
При создании нового документа появляются колонки (контрагент, адрес, сумма и др.) и на эту дату появляется ВСЯ номенклатура вбитая в регистр сведений (на эту дату соответственно, для этого он и нужен). Так как заранее неизвестно количество номенклатуры (колонок под неё), то колонки создаются программно, НО есть табличная часть, с соответствующими реквизитами (контрагент, адрес, сумма и др.).
Так вот с созданием колонок все нормально, они создаются, данные вбиваются, но эти данные надо где-то хранить, а так как на форме нет этих колонок (там просто расположено табличное поле), то хранить данные надо в табличной части и выводить их на форму. Вот в этом для меня и заключается проблема.
Надеюсь на этот раз понятно объяснил. )

Ну по обычной реализации то ясно.
Но дело в том, что требуется реализовать еще другую реализацию.
В моем примере: Ручка, 10; Ручка - номенклатура, 10 - цена. А вот 100, 200 и т.д. - это уже пользователем вбивается количество требуемой номенклатуры.
Колонок больше чем вбито в регистре сведений номенклатуры (на текущую дату) не появится. В итоге получается, что на каждого контрагента будет вбиваться на требуемую номенклатуру количество (только той номенклатуры, которая требуется).

Исправил процедуру, но она не отрабатывает

Код:

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
  
    Товары.Очистить();
    КоличествоСтрок = ВизуальныеТовары.Количество() - 1;
    Для Стр = 0 По КоличествоСтрок Цикл
        СтрокаТаблицыНоменклатуры = ВизуальныеТовары[Стр];
      
        Для Каждого СтрокаНоменклатуры Из ТаблицаНоменклатуры Цикл
            НомерСоответствияТекущейКолонки = мСоответствиеНоменклатуры[СтрокаНоменклатуры.Номенклатура];
          
            НоваяСтрока                             = Товары.Добавить();
            НоваяСтрока.НомерСтроки                    = Стр;
            НоваяСтрока.Номенклатура                = СтрокаТаблицыНоменклатуры["Номенклатура" + НомерСоответствияТекущейКолонки];
            НоваяСтрока.ТочкаПродаж                 = СтрокаТаблицыНоменклатуры["ТочкаПродаж" + НомерСоответствияТекущейКолонки];
            НоваяСтрока.Адрес                       = СтрокаТаблицыНоменклатуры["Адрес" + НомерСоответствияТекущейКолонки];
            НоваяСтрока.ПериодичностьЗакупа           = СтрокаТаблицыНоменклатуры["ПериодичностьЗакупа" + НомерСоответствияТекущейКолонки];
            НоваяСтрока.ДеньНеделиЗакупа              = СтрокаТаблицыНоменклатуры["ДеньНеделиЗакупа" + НомерСоответствияТекущейКолонки];
            НоваяСтрока.Контакты                      = СтрокаТаблицыНоменклатуры["Контакты" + НомерСоответствияТекущейКолонки];
        КонецЦикла;
    КонецЦикла;
  
КонецПроцедуры

каша-малаша какая-то

то что вы описали больше смахивает на отчёт по продажам/реализации
но какими-то странными (мягко говоря) способами

номенклатура обычно хранится в справочнике
продажа оформляется документом, который пишет данные в регистры (РС и РН)
остатки и движения можно потом получить из регистра/регистров без документов

опишите нормально исходные данные и что вы хотите в итоге