Отчет в rtf, а протокол в out

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
s2176
Местный житель
Сообщения: 473
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск

Отчет в rtf, а протокол в out

Сообщение s2176 »

Добрый день!
Дорабатываю стандартную форму печати табеля T-13.
Сама форма выводится в rtf, но мне нужно, чтобы параллельно на экране самой Галактики остались некоторые сообщения.
Например, как это делается при печати справки 2-НДФЛ: справка выдается в отдельный rtf-файл, но на экране Галактики остается протокол об ошибках в адресе (файл ZARERROR.out).
Не подскажете, как можно такое сделать?
Кто сказал, что бесполезно биться головой об стену?!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Отчет в rtf, а протокол в out

Сообщение edward_K »

В начале нужно сделать
IntInit - без этого возможно появление ошибок о работе с протоколом.
сообщения выводятся displ('текст')
в конце ShowErrors - ошибки будут выведены только в том случае, если после последнего вызова был хотя бы одни displ.
+ExitProc; - для уменьшения счетчика зарплатного объекта.
Еще варианты
1. logstrtofile + ProcessText.
Ну еще пондобится
logfilenm:=GetStringParameter('Files','OutputFilesDirectory',0) +'!Rep.log'
if fileexist(logfilenm) deletefile(logfilenm)
2. RunForm - вызов автономной формы - .autoform
3. RunInterface - вызвать фейс для вывода протокола например по временной таблице
4. В том же отчете вывести протокол в Excel.
s2176
Местный житель
Сообщения: 473
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск

Re: Отчет в rtf, а протокол в out

Сообщение s2176 »

Спасибо, то, что надо :-)!
Кто сказал, что бесполезно биться головой об стену?!
Ответить