Please, про субконто подскажите
15.02.2007
14:46
#1
"Всем добрый день! Работаю с 1С совсем недавно и во многое с трудом въезжаю.
Подскажите,пожалуйста, если не затруднит.
Пытаюсь делать программно проводки и никак не найду что надо загнать в правую часть строки Опер1.Дебет.ОсновныеСредства=....;
чтобы проводка указывала на конкретное ОС (субконто). И код писала, и ПолныйИдентификатор(),и наименование и т.д. Ничто не помогает!
Вот тот кусочек из программы. Все остальное тут работает.
осы=создатьобъект("справочник.ОсновныеСредства");
осы.ПорядокКодов();
осы.ВыбратьЭлементы();
Пока осы.ПолучитьЭлемент()=1 Цикл
ст=осы.ПервоначальнаяСтоимость.Получить();
сообщить("стоим="+строка(ст)+" ="+строка(осы.Код)+" "+строка (осы.Наименование));
.....
Опер1.НоваяПроводка();
Опер1.НомерЖурнала="ОС";
Опер1.СодержаниеПроводки=" в эксплуатацию ОС";
Опер1.Дебет.Счет= СчетПоКоду("01.1");
//?????????
Опер1.Дебет.ОсновныеСредства=осы.Наименование;
Опер1.Кредит.Счет=СчетПоКоду("08.4");
Опер1.Сумма=ст;
Опер1.Количество=1;
Опер1.ДатаОперации=ТекущаяДата();
Опер1.Записать();
"
Подскажите,пожалуйста, если не затруднит.
Пытаюсь делать программно проводки и никак не найду что надо загнать в правую часть строки Опер1.Дебет.ОсновныеСредства=....;
чтобы проводка указывала на конкретное ОС (субконто). И код писала, и ПолныйИдентификатор(),и наименование и т.д. Ничто не помогает!
Вот тот кусочек из программы. Все остальное тут работает.
осы=создатьобъект("справочник.ОсновныеСредства");
осы.ПорядокКодов();
осы.ВыбратьЭлементы();
Пока осы.ПолучитьЭлемент()=1 Цикл
ст=осы.ПервоначальнаяСтоимость.Получить();
сообщить("стоим="+строка(ст)+" ="+строка(осы.Код)+" "+строка (осы.Наименование));
.....
Опер1.НоваяПроводка();
Опер1.НомерЖурнала="ОС";
Опер1.СодержаниеПроводки=" в эксплуатацию ОС";
Опер1.Дебет.Счет= СчетПоКоду("01.1");
//?????????
Опер1.Дебет.ОсновныеСредства=осы.Наименование;
Опер1.Кредит.Счет=СчетПоКоду("08.4");
Опер1.Сумма=ст;
Опер1.Количество=1;
Опер1.ДатаОперации=ТекущаяДата();
Опер1.Записать();
"
15.02.2007
14:51
#2
"Туда надо загонять не наименование ОС, а сам элемент справчоника ОС, т.е. Осы.ТекущийЭлемент();"
Читают тему
(гостей: 1)