Пытаюсь создать документ ПоступлениеПрочее внешней обработкой. Когда назначаю тип реквизиту счет - Док.НазначитьТип("Счет", "Счет");
Реквизит остается пустым и вследствие выдает ошибку - Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
Значение не представляет агрегатный объект (ВидСубконто)

конфа - Комплексная 7.7

Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1).ТипСубконто());

прокатывает?

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

Док.Счет - чему равно?
сколько субконто у счета?

Попробовать Строка(Док.Счет.ВидСубконто(1)) ?

ИначеЕсли строка(СчетПоКоду(СокрЛП(Докум.Счет.Код))) = "26" тогда    
           //глУстановитьТипВидРеквизита(Док,"Счет","Счет");
           Док.НазначитьТип("Счет", "Счет");
           Док.Счет = СчетПоКоду(СокрЛП(Докум.Счет.Код));
           Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
           Док.Субконто1 = ЗагрузитьСтатьиОбщепроизводственныхЗатрат(Докум.Субконто1);
       КонецЕсли;

Док.Счет - неопределенный тип?

Док.Счет не устанавливается, пустота, в этом и проблема

да, неопределенный

(6) ты долбаешься? такую херню написал

Док.НазначитьТип("Счет", СчетПоКоду("36.1"));

Док.НазначитьТип("Счет", "Счет.Основной"); - если плансчетов Основной

не один из вариантов не сработал(

а если поремить
Док.НазначитьТип("Счет", "Счет");

так и было изначально, почему это не работает ума не приложу

вот я одного не пойму:

ИначеЕсли строка(СчетПоКоду(СокрЛП(Докум.Счет.Код))) = "26" тогда    
           //глУстановитьТипВидРеквизита(Док,"Счет","Счет");

           Док.НазначитьТип("Счет", "Счет");
           Док.Счет = СчетПоКоду(СокрЛП(Докум.Счет.Код));
           Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
           Док.Субконто1 = ЗагрузитьСтатьиОбщепроизводственныхЗатрат(Докум.Субконто1);
       КонецЕсли;

Если в иначе если уже заполнен док.счет, то нафига его снова переприсваивать?

(15)Не понимаю, почему Док.Счет - неопределенный тип

если внимательно присмотреться, можно заметить, что в иначе Докум, а не Док

Потому как в конфе у Документа ПоступлениеПрочие Счет - неопределенный

а если поремить
Док.НазначитьТип("Счет", "Счет");
и написать
Док.Счет = Строка(СокрЛП(СчетПоКоду(СокрЛП(Докум.Счет.Код))));

да нет уж, тип реквизиту Счет от этого не назначится

(12) <- точно не работает, а как план счетов именуется?

Точно, Основной именуется

(21)Извини, согласен, пиво дает себя знать
Счет-агрегатный тип объекта?

да, агрегатный - это реквизит документа

(0) назначать тип нужно для каждой строки документа

Вот вся процедура, я может просто туплю отчаянно уже, Докум - это OLE объект из идентичной конфы, мне необходимо грубо говоря скопировать сюда этот документ


Процедура ЗагрузитьПоступлениеПрочее(Докум);  
   Док = СоздатьОбъект("Документ.ПоступлениеПрочее");

   Новый = 0;
   //Номер = НомерНаПечать(Докум);
   Если Док.НайтиПоНомеру(Докум.НомерДок, Докум.ДатаДок) =  0 Тогда
       Новый = 1;
       Док.Новый();
       Док.ДатаДок = Докум.ДатаДок;
       Док.НомерДок = Докум.НомерДок;
   КонецЕсли;
   СпрФ = СоздатьОбъект("Справочник.Фирмы");
   СпрФ.НайтиПоКоду(Докум.Фирма.Код,0);
   Док.Фирма        = СпрФ.ТекущийЭлемент();
   Док.Контрагент   = ЗагрузитьКонтрагента(Докум.Контрагент, Докум);
   Док.Договор      = ЗагрузитьДоговор(Докум.Договор, Док.Контрагент, Докум);
   Док.Валюта       = ЗагрузитьВалюту(Докум.Валюта,Докум);
   Док.УчитыватьНДС = Докум.УчитыватьНДС;
   Док.Курс           = Докум.Курс;
   Док.Кратность       = Докум.Кратность;
   Док.СуммаВклНДС  = Докум.СуммаВклНДС;
   Док.СуммаВзаиморасчетов  = Докум.СуммаВзаиморасчетов;
   Док.ДатаОплаты           = Докум.ДатаОплаты;  
   Док.НомерДокВходящий     = Докум.НомерДокВходящий;
   Док.ДатаДокВходящий      = Докум.ДатаДокВходящий;
   Док.НеВыгружать           = Докум.НеВыгружать;
   Док.Записать();
   Док.УдалитьСтроки();
   Докум.ВыбратьСтроки();
   Пока Докум.ПолучитьСтроку() = 1 Цикл
       Док.Содержание   = Докум.Содержание;
       Док.Количество   = Докум.Количество;
       Док.Цена         = Докум.Цена;
       Док.Сумма         = Докум.Сумма;
       Док.СуммаНДС     = Докум.СуммаНДС;
       Если Докум.СтавкаНДС.Идентификатор() = "БезНДС" Тогда
           Док.СтавкаНДС = перечисление.СтавкиНДС.БезНДС;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС10" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС10;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС20" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС20;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС9_09" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС9_09;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС16_67" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС16_67;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС20_120" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС20_120;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС10_110" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС10_110;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС18" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС18;
       ИначеЕсли Докум.СтавкаНДС.Идентификатор() = "НДС18_118" Тогда    
           Док.СтавкаНДС = перечисление.СтавкиНДС.НДС18_118;
       КонецЕсли;
       
       Если строка(СчетПоКоду(СокрЛП(Докум.Счет.Код))) = "44.1.1" тогда
           Док.Счет = СчетПоКоду(СокрЛП(Докум.Счет.Код));
           Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
           Док.Субконто1 = ЗагрузитьИздержкиОбращения(Докум.Субконто1);
       ИначеЕсли строка(СчетПоКоду(СокрЛП(Докум.Счет.Код))) = "26" тогда    
           //глУстановитьТипВидРеквизита(Док,"Счет","Счет");
           Док.НазначитьТип("Счет", "Счет");
           //Док.Счет = СчетПоКоду(СокрЛП(Докум.Счет.Код));
           Док.Счет = Строка(СокрЛП(СчетПоКоду(СокрЛП(Докум.Счет.Код))));
           Док.НазначитьТип("Субконто1", Док.Счет.ВидСубконто(1));
           Док.Субконто1 = ЗагрузитьСтатьиОбщепроизводственныхЗатрат(Докум.Субконто1);
       КонецЕсли;
       
   КонецЦикла;
   
   Док.Записать();
   Если Докум.Проведен()=1 тогда
       Док.Провести();              
   КонецЕсли;
   Сообщить(?(Новый = 1, "Создан и записан документ: "+Док.ТекущийДокумент(), "Найден и изменен документ: "+Док.ТекущийДокумент()));

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

Блин))) Простите, к вечеру бошка не варит уже, забыл новая строка вставить)

фиг бы заметил если бы сюда код не скинул)

Пока Докум.ПолучитьСтроку() = 1 Цикл
НоваяСтрока!!!
       Док.Содержание   = Докум.Содержание;

После назначения типа "счет2 неплохо бы в поле/реквизит с типом "счет" присвоить что нибудь...

(29) Мисталадчик рулит :)

(29)Молодец, и решил сам, и мы узнали что речь шла о табличной части :))

(33) Почему это сам? а (26)?