Сообщение вида
Операция (бухгалтерский и налоговый учет) ТКО00000100 от 04.06.2013 16:36:28
Проводка № 1 <Корректировка стоимости ОС с 0 стоимостью(Макс)>: не заполнен счет дебета.
Проводка № 1 <Корректировка стоимости ОС с 0 стоимостью(Макс)>: не заполнен счет кредита.

.............................
Процедура Кнопка1Нажатие(Элемент)
Запрос2 = Новый Запрос;    

Запрос2.УстановитьПараметр("ДатаНачалаПериода", началодня(ДатаНачалаПериода));
Запрос2.УстановитьПараметр("ДатаКонецПериода", Конецдня(ДатаКонецПериода));
    Запрос2.УстановитьПараметр("Гарантия",ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Гарантия"));
Запрос2.УстановитьПараметр("Бесплатная",ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Бесплатная"));
Запрос2.УстановитьПараметр("Доукомплектация",ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Доукомплектация"));
Запрос2.УстановитьПараметр("Гарантийная", Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("Гарантийная"));
Запрос2.УстановитьПараметр("Бесплатная1", Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("Бесплатная"));
Запрос2.УстановитьПараметр("Доукомплектация1", Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("Доукомплектация"));

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

     //ТЗ.Колонки.Добавить("Содержание");    
     // ТЗ.Колонки.Добавить("Комментарий");
Результат2=Запрос2.Выполнить();
ТЗ2 = Результат2.Выгрузить();

ЭлементыФормы.ТабличноеПоле3.Значение = ТЗ2;
ЭлементыФормы.ТабличноеПоле3.СоздатьКолонки();
ЭлементыФормы.ТабличноеПоле3.ОбновитьСтроки();

////////////////////
    для каждого строка из ТабличноеПоле3 цикл
         
ДокОпер  = Документы.ОперацияБух.СоздатьДокумент();

ДокОпер.Дата = Строка.Дата;
ДокОпер.Организация = Строка.Организация;
//докопер.Номер=Строка.Номер;
//ДокОпер.Движения.Хозрасчетный.Загрузить(Результат1.Выгрузить());    
ДокОпер.Записать();
ДокОперацияСсылка = ДокОпер.Ссылка;
РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
////////////////
   
   РегЗапись = РегХозрасчетный.Добавить();
   РегЗапись.Период = Строка.Дата;
   РегЗапись.Регистратор = ДокОперацияСсылка;
   РегЗапись.Организация = Строка.Организация;
   РегЗапись.Содержание  = "Корректировка стоимости ОС с 0 стоимостью(Макс)";
   РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.МЦвОрганизации.КодБыстрогоВыбора;
     РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.АвансыВИностраннойВалюте.КодБыстрогоВыбора;

   БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, РегЗапись.СчетКт, РегЗапись.СубконтоКт);
   //ухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, РегЗапись.СчетКт, РегЗапись.СубконтоКт);
   //РегЗапись.Сумма = Строка.Сумма;

 
РегХозрасчетный.Записать();        
       
       
    конеццикла;

////////////////////////


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

РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.МЦвОрганизации.Код;
     РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.АвансыВИностраннойВалюте.Код;

там опечатка, но вопрос все ещё актуален

(1) вот это полнейший бред:

.КодБыстрогоВыбора

непонятно вообще, откуда могло вообще появиться это диковинное слово?

(2) .Код - это тоже полнейший бред. Вам нужно писать туда счет, ну и пишите счет, зачем вы туда откровенную фигню записываете?

(4) РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.МЦвОрганизации?

РегЗапись.СчетДт = ПланыСчетов.Хозрасчетный.МЦвОрганизации.ссылка
выдал ошибку
{ОбщийМодуль.БухгалтерскийУчет.Модуль(371)}: Получение элемента по индексу для значения не определено
           ВидСубк = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные[ИмяСубконто];

up  .

up

не разберусь что нужно писать в виды субконто счета

БухгалтерскийУчет.УстановитьСубконто(Счет, СубконтоДт(Кт), "Имя Субконто", Данные для заполнения субконто)

БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, РегЗапись.СчетКт, РегЗапись.СубконтоКт);

посмотрите как в типовой пишут эту функцию. Конкретно надо. Контрагента установить, значит устанавливайте контрагента.

ну вот так написал
Контрагент = Строка.Контрагент;
............
БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Контрагенты", Контрагент);

то есть все равно не работает

(11) не понялнужно установить все субконто которые есть в типовой?