Формирование проводок по строке

[ИринаМ]

Подскажите уважаемые, как сделать так чтобы проводка формировалась по документу на котором стоит курсор?
У меня есть такая процедура
Процедура ОднаПроводка()
Док=СоздатьОбъект("Документ.ДоговорБюдж");
Док.ВыбратьДокументы();
Опер=СоздатьОБъект("Операция");
Если Док.ДатаОкончания>НачМесяца(ТекущаяДата()) Тогда
ТекущийДокумент.ВыбратьСтроки();
Опер.Новая();
Опер.ДатаОперации=ТекущаяДата();
Опер.Содержание="Начисление по договору"+Док.НомерДок;
Опер.НоваяПРоводка();
Опер.Дебет.Счет = Док.ВидУслуги.Дебет;
Если Опер.Дебет.Счет=СчетПоКоду("50.1") тогда
Опер.Дебет.ДвиженияДенежныхСредств=Док.ДвижениеДенежныхСредств;
КонецЕсли;
Если Опер.Дебет.Счет=СчетПоКоду("62.1") тогда
Опер.Дебет.ДоговорАренды=Док.ТекущийДокумент();
Опер.Дебет.Контрагенты=Док.Контрагент;
КонецЕсли;
Опер.Дебет.Услуги = Док.ВидУслуги;
Опер.Кредит.Счет =Док.ВидУслуги.Кредит ;
Опер.Кредит.Услуги=Док.ВидУслуги;
Опер.Сумма = Док.Сумма;
Опер.СуммаОперации = Док.Сумма;
Опер.Записать();
Док.Провести(1,"Программно");
КонецЕсли;
Сообщить("Проводка сформирована");
КонецПроцедуры

но при выполнении ее программа находит первую запись в журнале ДоговорБюдж и формирует на нее проводку, а мне надо чтобы проводка формировалась толбко по документу на котором стоит курсор.

[Fosihas]

У ваша ошибка в том что в не определяет документ на котором стоите.

Процедура ОднаПроводка()
Док=СоздатьОбъект("Документ.ДоговорБюдж");
Док.ВыбратьДокументы();
Если ТекущийДокумент.Выбран() = 1 Тогда
Док.НайтиДокумент(ТекущийДокумент);

ну и далее по тексту.

КонецЕсли

[ИринаМ]

Спасибо огромное! Чтобы я без Вас делала!