{Форма.Форма.Форма(73)}: Ошибка при вызове метода контекста (Записать)
   набор.Записать();
по причине:
Запись не верна! Вид субконто "Объекты строительства" не доступен для данной записи! (Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет); Номер строки: 1)



набор = регистрыбухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
   набор.Отбор.регистратор.значение = док;
   
   набор.Прочитать();
   
   для каждого строка из набор цикл
       если строка.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("86") тогда
           суб = строка.субконтоДт.объектыстроительства;
           строка.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("86.02");
           если справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование)<>справочники.НоменклатурныеГруппы.ПустаяСсылка() тогда
               об = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование).ПолучитьОбъект();
               об.ОбъектСтроительства = истина;
               об.ОбъектСтроительстваС = суб;
               об.Записать();
               строка.СубконтоДт.номенклатурныегруппы = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование);
           иначе
               эл = справочники.НоменклатурныеГруппы.СоздатьЭлемент();
               эл.Наименование = суб.наименование;
               эл.ОбъектСтроительства=истина;
               эл.ОбъектСтроительстваС = суб;
               эл.Записать();
               строка.СубконтоДт.номенклатурныегруппы = эл;
           конецесли;
           строка.субконтоДт.ОбъектыСтроительства = неопределено;
       иначеесли строка.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("86") тогда
           суб = строка.субконтоКт.объектыстроительства;
           строка.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("86.02");
           если справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование)<>справочники.НоменклатурныеГруппы.ПустаяСсылка() тогда
               об = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование).ПолучитьОбъект();
               об.ОбъектСтроительства = истина;
               об.ОбъектСтроительстваС = суб;
               об.Записать();
               строка.СубконтоДт.номенклатурныегруппы = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование);
           иначе
               эл = справочники.НоменклатурныеГруппы.СоздатьЭлемент();
               эл.Наименование = суб.наименование;
               эл.ОбъектСтроительства=истина;
               эл.ОбъектСтроительстваС = суб;
               эл.Записать();
               строка.СубконтоДт.номенклатурныегруппы = эл;
           конецесли;    
           строка.субконтоКт.ОбъектыСтроительства = неопределено;

       конецесли;        
   конеццикла;
   набор.Записать();

Вид субконто "Объекты строительства" не доступен для данной записи!
если строка.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("86") тогда
           суб = строка.субконтоДт.объектыстроительства;

иииии, оно там есть

очищаю я его потом перед записью

(3) на счете 86 вроде вообще нет ни одного субконто. У вас нестандартный план счетов, что ли?

(4)они в пользовательском режиме добавлены были

(5) отмечаете там что ли? Где нужно Дт пишешь Кт, где Кт - Дт. Все Дт и Кт перепутаны. Хоть не позорься, пройдись внимательно по коду.

(6) хааа внатуреееее, санкс

вот я лох

тока вот че то не фурычит нихера

тоже самое выдает

я смотрю там в первой строке дт86.2 кт000 все три субконто дт заполнены и об-в стр-ва нет, 000 пусто, че он хочет то?

я  и не пытаюсь об стр-ва туда записать

детектед v8: Коллега-Чудотворец(маг в 1 поколении)

так, хватит тут мне...

(13) по существу давай

ап ап

ап ап ап

ребятааааааа HELPPPP

ваще очень надо срочно

да что ж такое то

http://s1.ipicture.ru/uploads/20120726/6RBkfWi5.jpg

если строка.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("86") тогда
           строка.субконтоКт.ОбъектыСтроительства = неопределено;
Проверь наличие у счета кредита наличие субконто ОбъектыСтроительства

http://s1.ipicture.ru/uploads/20120726/Eg6EvXAH.jpg

даже так: в качестве отбора по регистру засунул ему принудительно ОперациюБух, ни фига

грубо говоря была запись регистра, был в ней счет, взяли поменяли на другой, одно субконто затерли другое поставили и записали, вроде все ок

(25) вот всё-таки строчка

          строка.субконтоДт.ОбъектыСтроительства = неопределено;

всё-таки вы пытаетесь туда записать, хотя в (12) клялись, что не пытаетесь.

(25)ок, тогда подскажите как сделать?

не отрицаю потом догнал что фактически пытаюсь писать туда, но даже закоментив строку не работает

набор = регистрыбухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
   набор.Отбор.регистратор.значение = док;
   
   набор.Прочитать();
   
   для каждого строка из набор цикл
       если строка.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("86") тогда
           суб = строка.субконтоДт.объектыстроительства;
           //БухгалтерскийУчет.УстановитьСубконто(планысчетов.Хозрасчетный.НайтиПоКоду("86"), строка.субконтоКт, "объектыстроительства", неопределено,1);
           строка.субконтоДт.Удалить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбъектыСтроительства);
           строка.СчетДт = планысчетов.Хозрасчетный.НайтиПоКоду("86.02");
           если справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование)<>справочники.НоменклатурныеГруппы.ПустаяСсылка() тогда
               об = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование).ПолучитьОбъект();
               об.ОбъектСтроительства = истина;
               об.ОбъектСтроительстваС = суб;
               об.Записать();
               строка.СубконтоДт.номенклатурныегруппы = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование);
           иначе
               эл = справочники.НоменклатурныеГруппы.СоздатьЭлемент();
               эл.Наименование = суб.наименование;
               эл.ОбъектСтроительства=истина;
               эл.ОбъектСтроительстваС = суб;
               эл.Записать();
               строка.СубконтоДт.номенклатурныегруппы = эл;
           конецесли;
           строка.субконтоДт.ОбъектыСтроительства = неопределено;
       иначеесли строка.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("86") тогда
               суб = строка.субконтоКт.объектыстроительства;
               //БухгалтерскийУчет.УстановитьСубконто(планысчетов.Хозрасчетный.НайтиПоКоду("86.02"), строка.субконтоКт, "объектыстроительства", неопределено,1);
               строка.субконтоКт.Удалить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбъектыСтроительства);

           строка.СчетКт = планысчетов.Хозрасчетный.НайтиПоКоду("86.02");
           если справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование)<>справочники.НоменклатурныеГруппы.ПустаяСсылка() тогда
               об = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование).ПолучитьОбъект();
               об.ОбъектСтроительства = истина;
               об.ОбъектСтроительстваС = суб;
               об.Записать();
               строка.СубконтоКт.номенклатурныегруппы = справочники.НоменклатурныеГруппы.НайтиПоНаименованию(суб.наименование);
           иначе
               эл = справочники.НоменклатурныеГруппы.СоздатьЭлемент();
               эл.Наименование = суб.наименование;
               эл.ОбъектСтроительства=истина;
               эл.ОбъектСтроительстваС = суб;
               эл.Записать();
               строка.СубконтоКт.номенклатурныегруппы = эл;
           конецесли;    
           //строка.субконтоКт.ОбъектыСтроительства = неопределено;
       конецесли;        
   конеццикла;
   набор.Записать();



даже так не канает
он просто по ключу проверяет субконто, а там объект строительства

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

ненавижу 1с , ааааааа БАХ...