Конфигурация УПП 1.3

Создаю программно документ РеализацияТоваровУслуг и заполняю шапку:
ПодчРеализация = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
   ПодчРеализация.Дата = РабочаяДата;

   //    //********************************************************************    
   ЗаполнениеДокументов.ЗаполнитьШапкуДокументаПоОснованию(ПодчРеализация, ЭтотОбъект);
   ПодчРеализация.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
ПодчРеализация.Записать(РежимЗаписиДокумента.Запись);

Вопрос: Почему после Записи очищаются реквизиты документа ДоговорКонтрагента и ВидПередачи?

Процедуру ПередЗаписью() закомментировал. Всеравно 2 этих реквизита очищаются.

почему так решил?

(2) Если убрать строчку ПодчРеализация.Записать(РежимЗаписиДокумента.Запись);

То все нормально.

(0) есть подписка, есть проверка заполнения. Еще много мест где может это происходить

(4) Проверка заполнения - вроде только срабатывает когда незаполненно?

[ПодчРеализация.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;] все зло здесь!

Не удивлюсь, если (1) проделано на форме.
Это ни к чему, просто к слову

(0)отладчиком умеешь пользоваться?

(0)
// Процедура вызывается перед записью документа
//
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
   
   Если ОбменДанными.Загрузка  Тогда
       Возврат;
   КонецЕсли;
           
   мУдалятьДвижения = НЕ ЭтоНовый();
   
   // Если договор с комиссионером, то надо почистить закладку "Услуги".
   Если Услуги.Количество() > 0
       И (ДоговорКонтрагента.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером
       ИЛИ ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ОтгрузкаБезПереходаПраваСобственности) Тогда
       Услуги.Очистить();
       
   КонецЕсли;
   
   // Если вид операции документа "АктВыполненныхРабот", то очистим ТЧ Товары и ВозвратнаяТара
   Если ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.АктВыполненныхРабот Тогда
       
       Если Товары.Количество() > 0 Тогда
           Товары.Очистить();
       КонецЕсли;
       
       Если ВозвратнаяТара.Количество() > 0 Тогда
           ВозвратнаяТара.Очистить();
       КонецЕсли;
       
   КонецЕсли;
   
   // Проверка заполнения единицы измерения мест и количества мест
   ОбработкаТабличныхЧастей.ПриЗаписиПроверитьЕдиницуИзмеренияМест(Товары);
   ОбработкаТабличныхЧастей.ПриЗаписиПроверитьСтавкуНДС(ЭтотОбъект, Товары);
   ОбработкаТабличныхЧастей.ПриЗаписиПроверитьСтавкуНДС(ЭтотОбъект, Услуги);
   
   // Посчитать суммы документа и записать ее в соответствующий реквизит шапки для показа в журналах
   СуммаДокумента = УчетНДС.ПолучитьСуммуДокументаСНДС(ЭтотОбъект, "Товары") + УчетНДС.ПолучитьСуммуДокументаСНДС(ЭтотОбъект, "Услуги");
   
   // В этом случае почистим в табличных частях поле СпособСписанияОстаткаТоваров.
   Если ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.Оборудование Тогда
       Сделка = Неопределено;
       Для каждого СтрокаТаблицы Из ЭтотОбъект.Товары Цикл
           Если СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва Тогда
               СтрокаТаблицы.СпособСписанияОстаткаТоваров = "";
           КонецЕсли;
       КонецЦикла;
       
       Для Каждого СтрокаТаблицы Из ЭтотОбъект.ВозвратнаяТара Цикл
           Если СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва Тогда
               СтрокаТаблицы.СпособСписанияОстаткаТоваров = "";
           КонецЕсли;
       КонецЦикла;
   //для брака способ списания всегда - со склада
   ИначеЕсли ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.Брак Тогда
       Для каждого СтрокаТаблицы Из ЭтотОбъект.Товары Цикл
           Если СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва Тогда
               СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.СоСклада;
               Сообщить("В строке №"+СтрокаТаблицы.НомерСтроки+" табличной части ""Товары"" изменен способ списания остатка товаров: было 'Из резерва', установлено 'Со склада'."+Символы.ПС+"   Списывать брак из резерва запрещено.", СтатусСообщения.Внимание);
           КонецЕсли;
       КонецЦикла;
       
       Для Каждого СтрокаТаблицы Из ЭтотОбъект.ВозвратнаяТара Цикл
           Если СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва Тогда
               СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.СоСклада;
               Сообщить("В строке №"+СтрокаТаблицы.НомерСтроки+" табличной части ""Возвратная тара"" изменен способ списания остатка товаров: было 'Из резерва', установлено 'Со склада'."+Символы.ПС+"   Списывать брак из резерва запрещено.", СтатусСообщения.Внимание);
           КонецЕсли;
       КонецЦикла;
   Иначе
       // Необходимо, чтобы качество обязательно было "Новый"
       КачествоНовый = Справочники.Качество.Новый;
       Для каждого СтрокаТаблицы Из ЭтотОбъект.Товары Цикл
           Если СтрокаТаблицы.Качество <> КачествоНовый Тогда
               СтрокаТаблицы.Качество = КачествоНовый;
           КонецЕсли;
       КонецЦикла
       
   КонецЕсли;
   
   Если НЕ ЗначениеЗаполнено(Сделка) И Сделка <> Неопределено Тогда
       Сделка = Неопределено;
   КонецЕсли;
   
   УчетНДС.СинхронизацияПометкиНаУдалениеУСчетаФактуры(ЭтотОбъект);
   
   УправлениеЗаказами.ЗаполнитьЗаказПокупателяВТЧ(ВидОперации,ЭтотОбъект, "Реализация");
   Для каждого СтрокаТаблицы Из ЭтотОбъект.Товары Цикл
       Если НЕ ЗначениеЗаполнено(СтрокаТаблицы.ЗаказПокупателя) И СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва Тогда
           СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.СоСклада;
       КонецЕсли;
   КонецЦикла;
   
   Для каждого СтрокаТаблицы Из ЭтотОбъект.ВозвратнаяТара Цикл
       Если НЕ ЗначениеЗаполнено(СтрокаТаблицы.ЗаказПокупателя) И СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.ИзРезерва Тогда
           СтрокаТаблицы.СпособСписанияОстаткаТоваров = Перечисления.СпособыСписанияОстаткаТоваров.СоСклада;
       КонецЕсли;          
   КонецЦикла;
   
   ЗаполнитьСкладыВТЧ();
   
   // Удаление неиспользуемых строк табличной части "Серийные номера".
   УчетСерийныхНомеров.УдалитьНеиспользуемыеСтрокиПодчиненнойТЧ(ЭтотОбъект, мПараметрыСвязиСтрокТЧ, "Товары");
   УчетСерийныхНомеров.УдалитьНеиспользуемыеСтрокиПодчиненнойТЧ(ЭтотОбъект, мПараметрыСвязиСтрокТЧ, "СоставНабора", "СерийныеНомераСоставНабора");
       
КонецПроцедуры // ПередЗаписью

(9)Спасибо, но я в (1) писал, что пробовал даже полностью закомментировать ПередЗаписью(). Ничего не помагает.

(10) Читал (6)?
Перенеси строку до заполнения шапки.

(11) ну взял и весь холивар испортил

(11) Я её вообще закомментировал, не помогло.

Всем спасибо. Пока не нашел причину.

(14) Тогда учись (8) :)

(13) а кто говорил об закомментировать?

(14) ВидПередачи - посмотри в отладчике. Он не то что не очищается, он и не заполняется :)

Возможно реквизиты формы не привязаны к реквизитам документа?

(17)(18)

из (2)->(3) следует, что заполняется и привязан.
Но, может, я плохо интерпретирую ответ автора.

(18) в коде ТС работы с формой нет. Но мысль вместо записи док-та открыть форму тоже была.
(19) м.б., не хуже и не лучше чем остальные.

(17) Написал в коде : ПодчРеализация.ВидПередачи = Перечисления.ВидыПередачиТоваров.СоСклада;

(17) Спасибо.

(22) То есть ты всем дурил голову, начиная с (3) и поле у тебя просто не было заполнено с самого начала.
Браво.
Верная мысль была, оказыватся, в (2), а я хреновый телепат и переоценил тебя