создание документа программно

[Radistka_sk]

задача звучит так: необходимо списать со счёта 001 все основные средства.

1С только изучаю, поэтому понятия не имею как это пишется.. подскажите плз.



ДокБухС = СоздатьОбъект("Документ.БухгалтерскаяСправка");
ДокБухС.Новый();
ДокБухС.СодержаниеОперации="Списание Основных средств" ;

БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства,,1,);
БухИт.ВыполнитьЗапрос(,ДатаСпис,"001",,,,,);
БухИт.ВыбратьСубконто(1);

Пока БухИт.ПолучитьСубконто(1)=1 Цикл
Если БухИт.СКД()>0 Тогда
//а вот здесь необходимо добавить проводку, и потом после добавления всех проводок записать, а как?
КонецЕсли;
КонецЦикла;
ДокБухС.Записать;

[Dinchik]

Вам там не проводку надо добавить, а табличную часть документа Бух справка. При проведении документа проводки сами появятся.
ДокБух.С.НоваяСтрока();
ДокБухС.СчетДт=счетпокоду("001");
ДокБухС.СубконтоДт1=бухит.Субконто(1);
//и т.д. заполняете реквизиты таблич.части (сумма с минусом или с плюсом, но тогда 001 - по кредиту)
Документ запишется последней Вашей строкой. (Только там после записать нужны скобки)
Кстати, у Вас только субконто Осн. средства там у 001? Там же еще Контрагенты.А то в общем суммы спишете, а по аналитике разлезутся.

[Radistka_sk]

спасибо большое, правда уже сама сделала, но всё равно спасиба))
кстати моё решение именно такое как вы назвали, и я уже добавила сама оба субконто, довольнаяаааааа))) значит я молодец, и всё правильно сделала