Страница 1 из 3

Фильтр на журнал

Добавлено: 20 май 2003, 14:03
IgorA
Поделитесь опытом, как по таблице OBOROT посмотреть удаленные записи по определенному счету.
Бухгалтера вечно задают вопрос типа:
КТО НАРУШИЛ СЧЕТ 20.
И если записи модифицировались или добавлялись, то все просто, берем nrec и ищем.
А если удалялись и nrec неизвестен?
Перебирать 1000 записей в журнале????



P.S.В документации нашел ф-ии:
GetOldFieldValueFromJournal
GetNewFieldValueFromJournal
но как их использовать?

Re: Фильтр на журнал

Добавлено: 20 май 2003, 14:26
vitali
А если использовать при просмотре журнала в support-е Ctrl-S или Ctrl-A, т.е. встроенные фильтры?
Правда сам не пробовал

Re: Фильтр на журнал

Добавлено: 20 май 2003, 14:54
IgorA
А как из мемо-поля вытащить значение конкретного поля?

Вроде бы ф-ии
GetOldFieldValueFromJournal
GetNewFieldValueFromJournal
предназначены для этого, может кто их использовал?

Re: Фильтр на журнал

Добавлено: 20 май 2003, 15:17
Deinis

Re: Фильтр на журнал

Добавлено: 21 май 2003, 12:45
ecasoft
Var dblValue: double;

получите по имени OBOROT запись таблицы x$Files для второго параметра

Параметны такие

1 искомое поле, например Oborot.summa
2 x$files.xf$recordfixed
3 x$journal.dataRec
4 x$journal.operation
5 dblValue


Значение поля будет в переменной dblValue

С уважением, Игорь

Re: Фильтр на журнал

Добавлено: 16 июн 2003, 15:12
klimin_a_s
Как-то писал "адскую машинку" - которая выгружает все мемо-поля всесте со структурой из журнала во внешний файл, а затем спец. прогой можно найти ответ на вопрос, н-р, "Кто удалил проводку по Д70 на сумму 1000 руб?".

Re: Фильтр на журнал

Добавлено: 17 июн 2003, 10:58
IgorA
Использовал функцию GetOldFieldValueFromJournal, по рекомендациям Косякина Игоря, в ARD- отчете.

Первая запись обрабатывается, и дает вернный результат, но почему-то происходит зацикливание, и в отчете первая запись повторяется бесконечно.

Отчет простейший.

запрос
.create view t1 as
select DATAREC, Operation
from X$JOURNAL
where ((9011==TABLECODE));

а затем, цикл
.{table t1
.begin
GetNewFieldValueFromJournal(OBOROT.SCHETO,566 , DATAREC, Operation, pSch);
end.
^
.}

Re: Фильтр на журнал

Добавлено: 17 июн 2003, 12:24
IgorA
У меня, только одна идея:
ф-ия GetNewFieldValueFromJournal, переводит указатель на первую запись.

Как с этим бороться?

p.s. Для проверки, оставлял в журнале, только одну запись, то же зацикливается.

Re: Фильтр на журнал

Добавлено: 17 июн 2003, 12:41
sth
но это же ведь не весь текст отчета? Наверное там еще что-то есть?

Re: Фильтр на журнал

Добавлено: 17 июн 2003, 12:53
IgorA
Вот весь отчет:
.Form 'Журнализация'
.ard
.var pSch: String;
.endvar
.create view t1 as
select DATAREC, Operation
from X$JOURNAL
where ((9011==TABLECODE));
.fields
pSch
.endfields
.{table t1
.begin
GetNewFieldValueFromJournal(OBOROT.SCHETO,566 , DATAREC, Operation, pSch);
end.
^
.}
.endform

Re: Фильтр на журнал

Добавлено: 17 июн 2003, 12:55
IgorA
Естественно упростил, как мог.
И в таком виде циклит.

Re: Фильтр на журнал

Добавлено: 17 июн 2003, 18:13
ecasoft
Проблема не в функции, а в том, что Вы не перемещаетесь по таблице журнала. Ничего эта функция не переводит. Работает она вполне обычно. Она просто лезет в мемо поле и достает оттуда запись. С движением по таблице она никаким боком не связано.

С уважением,Игорь

Re: Фильтр на журнал

Добавлено: 18 июн 2003, 06:14
IgorA
Как это не перемещаюсь?

Я всегда считал, что
.{table t1
.}
это - цикл, с перемещением по набору данных, до тех пор пока он не кончится.

И если это не так, то как, тогда мне перемещаться?

p.s. Кстати, если убрать из вышеописанного примера эту функцию, то все перемещается.

Re: Фильтр на журнал

Добавлено: 18 июн 2003, 09:00
ecasoft
Выслал на почту примеры работы с поиском изменений по Оборотам и Накладным (как пример) на ВИПе по журналу. Там есть работа с разными функциями. Это делалось года два назад для компании ЮКОС. Хотя это не конечный код - конечный код дорабатывался ими уже..хотя дорабатывался там просто сервис интерфейса по вводу ограничений по номеру счета, пользователю, интервалу и т.д. Конечный вариант у меня не сохранился. Хотя в принципе его написать ничего не стоит по данным примерам - там все есть.

С уваженеим, Игорь

Re: Фильтр на журнал

Добавлено: 18 июн 2003, 12:24
ALEKS123
Игорь, доброго времени суток. А можно, если несложно, тот же пример и на мою почту? Спасибо