Конец рабочего дня. Чегото не понимаю :)
18.03.2010
16:47
#1
Внешней обработкой создаю документы "Операция".
Документы создаются, счета, субконто в строчках запоняются. Проводки в журнале проводок есть.
А отчет по счету пуст. Отрываю созданный документ "Операция", жму кнопку "ок", обновляю отчет и все появляется.
)
Что же не так в обработке?
Документы создаются, счета, субконто в строчках запоняются. Проводки в журнале проводок есть.
А отчет по счету пуст. Отрываю созданный документ "Операция", жму кнопку "ок", обновляю отчет и все появляется.
Что же не так в обработке?
18.03.2010
16:48
#2
> Внешней обработкой создаю документы "Операция".
> Документы создаются, счета, субконто в строчках запоняются. Проводки в журнале проводок есть.
> А отчет по счету пуст. Отрываю созданный документ "Операция", жму кнопку "ок", обновляю отчет и все появляется.
)
> Что же не так в обработке?
код увидеть заполнения можно ?
> Документы создаются, счета, субконто в строчках запоняются. Проводки в журнале проводок есть.
> А отчет по счету пуст. Отрываю созданный документ "Операция", жму кнопку "ок", обновляю отчет и все появляется.
> Что же не так в обработке?
код увидеть заполнения можно ?
18.03.2010
16:59
#3
"ДокВводОС=СоздатьОбъект("Документ.Операция");
Опер=СоздатьОбъект("Операция");
База=СоздатьОбъект("XBase");
попытка
База.ОткрытьФайл("С:\****.DBF");
исключение
Сообщить("ошибка открытия базы");
Возврат;
КонецПопытки;
ДокВводОС.Новый();
ДокВводОС.Записать();
База.Первая();
Пока База.ВКонце()=0 Цикл
Опер.НайтиОперацию(ДокВводОС.ТекущийДокумент());
Опер.НоваяПроводка();
Опер.Дебет.Счет=Счетпокоду(СокрЛП(База.PR_2))
сОС.НайтиПоКоду(СокрЛП(База.in2),0)
Опер.Дебет.Субконто(1, сОС.ТекущийЭлемент());
Опер.Количество=СокрЛП(База.KOL2);
Опер.Сумма=СокрЛП(База.PN2);
База.Следующая();
Опер.Записать();
КонецЦикла; "
Опер=СоздатьОбъект("Операция");
База=СоздатьОбъект("XBase");
попытка
База.ОткрытьФайл("С:\****.DBF");
исключение
Сообщить("ошибка открытия базы");
Возврат;
КонецПопытки;
ДокВводОС.Новый();
ДокВводОС.Записать();
База.Первая();
Пока База.ВКонце()=0 Цикл
Опер.НайтиОперацию(ДокВводОС.ТекущийДокумент());
Опер.НоваяПроводка();
Опер.Дебет.Счет=Счетпокоду(СокрЛП(База.PR_2))
сОС.НайтиПоКоду(СокрЛП(База.in2),0)
Опер.Дебет.Субконто(1, сОС.ТекущийЭлемент());
Опер.Количество=СокрЛП(База.KOL2);
Опер.Сумма=СокрЛП(База.PN2);
База.Следующая();
Опер.Записать();
КонецЦикла; "
18.03.2010
17:20
#6
"Видимо забыл но не совсем 
Попытался сократить код в педыдущем посте.
Для фирмы вроде все есть, в операции она выбрана и записана, но действительно чего то нехватает
(
СпрФ=СоздатьОбъект("Справочник.Фирмы");
СпрФ.НайтиПоКоду("С00000000001",0);
ВыбВладельца=СпрФ.ТекущийЭлемент();
Дата1="31.12.09";
РабочаяДата(Дата1);
ДокВводОС.Новый();
ДокВводОС.ВыбраннаяФирма=ВыбВладельца;
ДокВводОС.ДатаДок=Дата1;
ДокВводОС.Записать();"
Попытался сократить код в педыдущем посте.
Для фирмы вроде все есть, в операции она выбрана и записана, но действительно чего то нехватает
СпрФ=СоздатьОбъект("Справочник.Фирмы");
СпрФ.НайтиПоКоду("С00000000001",0);
ВыбВладельца=СпрФ.ТекущийЭлемент();
Дата1="31.12.09";
РабочаяДата(Дата1);
ДокВводОС.Новый();
ДокВводОС.ВыбраннаяФирма=ВыбВладельца;
ДокВводОС.ДатаДок=Дата1;
ДокВводОС.Записать();"
18.03.2010
21:34
#7
"Проще говоря, у вас отсутствует что то вроде:
Опер.РазделительУчета = КакоеТоЮрЛицо;
причем это надо в каждой проводке
> что это за код ?
не знаю, видимо так надо :)"
Опер.РазделительУчета = КакоеТоЮрЛицо;
причем это надо в каждой проводке
> что это за код ?
не знаю, видимо так надо :)"
Читают тему
(гостей: 1)