как заполнить форму субконто?

01.02.2011 17:07

Прочитано: 3035

Код 1C v 7.x

 

Суб1 = СоздатьОбъект("Справочник.ВидыНоменклатуры"); 

Суб1.НайтиПоНаименованию("12345"); 

Субкон1=Суб1.ТекущийЭлемент(); 

Счет = СчетПоКоду("90.1"); 



Док = СоздатьОбъект("Документ.ПриходныйОрдер"); 

Док.Новый(); 

Док.КоррСчет = Счет; 

Док.Субконто1= Субкон1; 

Док.Новый();

Пожалуйста помогите решить вопрос. Другие формы заполняются и получаю нужный результат. А когда дело доходит до Субконто он остается не заполненным

Yandex

Возможно, вас также заинтересует

E_Migachev

01.02.2011 17:54

Ответ № 1

(0) lzz, укажи сначала ВидСубконто

lzz

02.02.2011 00:09

Ответ № 2

Код 1C v 7.x

 

 

Суб1 = СоздатьОбъект("Справочник.ВидыНоменклатуры"); 

Суб1.НайтиПоНаименованию("12345"); 

Субкон1=Суб1.ТекущийЭлемент(); 

Счет = СчетПоКоду("90.1"); 



Док = СоздатьОбъект("Документ.ПриходныйОрдер"); 

Док.Новый(); 

Док.КоррСчет = Счет;

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

Док.Субконто1= Субкон1; 

Док.Записать();

Подсказка: Вы получили ответ на свой вопрос - закройте вопрос!