Создание проводок.

  • Автор темы Velliar
  • Дата начала
V

Velliar

#1
Доброго времени суток всем.
Пытаюсь создать проводку программно.
Док = Документы.ОперацияБух.СоздатьДокумент();
Док.Дата = ТекущаяДата();
Док.Организация = Организация;
НовПроводка = Док.Движения.Хозрасчетный.Добавить();
НовПроводка.Период = Док.Дата;
НовПроводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("013");
НовПроводка.СубконтоДт.Вставить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные
["Материалы"],спр.Затрата);
Пишет поле материал не наденно.Если смотреть в режиме пользователя, то такое субконто как "материалы" есть, через конфигуратор его не видно.Может это из за того что это субконто было нами созданно.Если да, то как сделать так что бы его было видно через конфигуратор.
 

KiR

НЕ шибка опытный програмер)
11.09.2007
1 581
0
#2
вообще-то по хорошему стоит в конфигураторе делать различные правки для плана счетов...
 
V

Velliar

#3
Это я уже понял.Но поздно.Что теперь можно сделать?Как записать субконто?
 

KiR

НЕ шибка опытный програмер)
11.09.2007
1 581
0
#4
по идее нада сделать обработку которая все остатки с 13го счета с определенным субконто спишет на какой-нить другой счет. потом создать субконто по человекчески (в конфигураторе) и написать подправить обработку, которая уже с этого какого-нить другого счета остатки повесит куда нужно. процесс геморный и возможно с точки зрения ведения учета не совсем верный, но другой в голову пока не приходит
 

unknown181538

НеГуру
28.12.2008
1 417
0
#5
Док = Документы.ОперацияБух.СоздатьДокумент();
Док.Дата = ТекущаяДата();
НовПроводка = Док.Движения.Хозрасчетный.Добавить();
НовПроводка.Период = Док.Дата;
НовПроводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("013");
НовПроводка.СубконтоДт.Вставить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные
.НайтиПоНаименованию("Материалы"),Спр.Затрата);
 
V

Velliar

#6
Док = Документы.ОперацияБух.СоздатьДокумент();
Док.Дата = ТекущаяДата();
НовПроводка = Док.Движения.Хозрасчетный.Добавить();
НовПроводка.Период = Док.Дата;
НовПроводка.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("013");
НовПроводка.СубконтоДт.Вставить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные
.НайтиПоНаименованию("Материалы"),Спр.Затрата);
Большое спасибо!!!!!!!Сработало.