Конец рабочего дня. Чегото не понимаю :)

Внешней обработкой создаю документы "Операция".<br>Документы создаются, счета, субконто в строчках запоняются. Проводки в журнале проводок есть.<br>А отчет по счету пуст. Отрываю созданный документ "Операция", жму кнопку "ок", обновляю отчет и все появляется. )<br>Что же не так в обработке?

> Внешней обработкой создаю документы "Операция".<br>> Документы создаются, счета, субконто в строчках запоняются. Проводки в журнале проводок есть.<br>> А отчет по счету пуст. Отрываю созданный документ "Операция", жму кнопку "ок", обновляю отчет и все появляется. )<br>> Что же не так в обработке?<br><br>код увидеть заполнения можно ?

"ДокВводОС=СоздатьОбъект("Документ.Операция");<br>Опер=СоздатьОбъект("Операция");<br>       База=СоздатьОбъект("XBase");<br> попытка<br> База.ОткрытьФайл("С:\****.DBF");<br> исключение <br> Сообщить("ошибка открытия базы");<br> Возврат;<br> КонецПопытки;<br> ДокВводОС.Новый(); <br> ДокВводОС.Записать();<br><br> База.Первая();<br>Пока База.ВКонце()=0 Цикл<br> Опер.НайтиОперацию(ДокВводОС.ТекущийДокумент());<br>       Опер.НоваяПроводка();<br>       Опер.Дебет.Счет=Счетпокоду(СокрЛП(База.PR_2))<br>       сОС.НайтиПоКоду(СокрЛП(База.in2),0)<br>       Опер.Дебет.Субконто(1, сОС.ТекущийЭлемент());<br>       Опер.Количество=СокрЛП(База.KOL2);<br>       Опер.Сумма=СокрЛП(База.PN2);<br>       База.Следующая();<br>       Опер.Записать();<br>КонецЦикла; "

Вы забыли про разделитель учета

что это за код ?<br><br>не проще тогда создать программно "ручную" операцию ?

"Видимо забыл но не совсем <br>Попытался сократить код в педыдущем посте.<br>Для фирмы вроде все есть, в операции она выбрана и записана, но действительно чего то нехватает (<br>       СпрФ=СоздатьОбъект("Справочник.Фирмы");<br> СпрФ.НайтиПоКоду("С00000000001",0);<br> ВыбВладельца=СпрФ.ТекущийЭлемент();<br> Дата1="31.12.09";<br> РабочаяДата(Дата1);<br> ДокВводОС.Новый(); <br> ДокВводОС.ВыбраннаяФирма=ВыбВладельца;<br> ДокВводОС.ДатаДок=Дата1;<br> ДокВводОС.Записать();"

"Проще говоря, у вас отсутствует что то вроде:<br>Опер.РазделительУчета = КакоеТоЮрЛицо;<br>причем это надо в каждой проводке<br><br>> что это за код ?<br>не знаю, видимо так надо :)"

<br>> > что это за код ?<br>> не знаю, видимо так надо <br><br><br>бредово создавать "док-пустышку" - они для этого<br>

Всем спасибо. Вчерась на все забил, а по дороге домой до меня дошло в чем я не прав ) Усе работает