ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужна помошь пи обработке ошибок печати отчетов
9 сообщений из 9, страница 1 из 1
Нужна помошь пи обработке ошибок печати отчетов
    #36779443
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Здравствуйте снова. Возникла необходимость обработки ошибок при печати отчетов. Дело в том что у меня 2 вида отчетов: Crystal reports и стандартные fox отчеты. Так вот если при печати отчета Crystal reports возникли ошибки, то нужно печатать отчет Foxpro и наоборот. Времени нет читать весь форум, поэтому решила спросить совета в отдельной теме. Пример кода позже немного приведу.
...
Рейтинг: 0 / 0
06.08.2010, 14:46
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36780142
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
НадеждаМ,

Для начала посмотри в сторону TRY...CATCH...FINALLY
...
Рейтинг: 0 / 0
06.08.2010, 19:51
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36781415
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
НадеждаМ,

Вот печать отчетов:
DO CASE
CASE FILE(report_name + '.rpt')
oCR=CREATEOBJECT("CrystalRuntime.application.11")
oRpt=oCR.OpenReport(report_name + '.rpt')

DO CASE
CASE .chkSum.VALUE = 0 && весь отчет
DO CASE
CASE .chkPrinter.VALUE = 0
FOR i=1 TO reports.kol
nom = ALLTR(STR(i))

oRpt.ParameterFields(i).SetCurrentValue(.TEXT&nom..VALUE)
ENDFOR

DO FORM mn_printform

CASE .chkPrinter.VALUE = 1
oRpt.PrintOut()

ENDCASE

CASE .chkSum.VALUE = 1 && только итоги
DO CASE
*****************здесь должна быть печать итогов *******************************************

CASE .chkPrinter.VALUE = 0
DO FORM mn_printform

CASE .chkPrinter.VALUE = 1

DO FORM mn_printform

ENDCASE
ENDCASE
CASE FILE(report_name + '.frx')


DO CASE
CASE .chkSum.VALUE = 0 && весь отчет
DO CASE
CASE .chkPrinter.VALUE = 0
REPORT FORM &report_name PREVIEW &&на экран
CASE .chkPrinter.VALUE = 1
REPORT FORM &report_name NOCONSOLE TO PRINTER PROMPT &&на принтер
ENDCASE

CASE .chkSum.VALUE = 1 && только итоги
DO CASE
CASE .chkPrinter.VALUE = 0
REPORT FORM &report_name PREVIEW SUMMARY &&на экран
CASE .chkPrinter.VALUE = 1
REPORT FORM &report_name NOCONSOLE TO PRINTER PROMPT SUMMARY &&на принтер
ENDCASE
ENDCASE

ENDCASE
...
Рейтинг: 0 / 0
09.08.2010, 08:07
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36781954
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Мне сюда try ...catch применить?
...
Рейтинг: 0 / 0
09.08.2010, 12:57
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36782231
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
НадеждаММне сюда try ...catch применить?
Что касается печати отчетов VFP, то все просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
LOCAL m.loEx AS Exception
*-- Печать отчетов VFP
TRY
      REPORT FORM &report_name NOCONSOLE TO PRINTER PROMPT SUMMARY &&на принтер
CATCH TO m.loEx
      *-- Запись в лог ошибку печати отчета VFP
      *-- Печатаю отчет  Crystal reports 

ENDTRY
А вот перехват ошибок Crystal reports как сделать я не знаю - никогда с этим продуктом не работал. Не уверен, что TRY...CATCH...ENDTRY будет их перехватывать. Может через ошибки OLE (AERROR...)
С уважением, Алексей
P.S. А что надо будет делать если ошибка будет и при печати Crystal reports, когда вы печатаете его отчет, как реакцию на ошибку печати отчета VFP ?
...
Рейтинг: 0 / 0
09.08.2010, 14:31
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36782250
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Aleksey-K
P.S. А что надо будет делать если ошибка будет и при печати Crystal reports, когда вы печатаете его отчет, как реакцию на ошибку печати отчета VFP ? Над этим пока не думала....возможно просто сообщение пока.
...
Рейтинг: 0 / 0
09.08.2010, 14:38
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36782354
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Aleksey-K,

Попыталась применить try catch к печати crystal reports отчета, вроде при возникновенни ощибки на экран вывелся отчет foxpro, но при этом появилось окно с надписью "Procedure canceled".
...
Рейтинг: 0 / 0
09.08.2010, 15:10
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36782400
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
НадеждаМAleksey-K,

Попыталась применить try catch к печати crystal reports отчета, вроде при возникновенни ощибки на экран вывелся отчет foxpro, но при этом появилось окно с надписью "Procedure canceled".
Увы, про Crystal reports ничего сказать не могу :(
С уважением, Алексей
...
Рейтинг: 0 / 0
09.08.2010, 15:23
| Ответить | Цитировать | Написать  
Нужна помошь пи обработке ошибок печати отчетов
    #36788881
НадеждаМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
НадеждаМ
Участник
Aleksey-K,

Хотя я может использовала не правильно try catch, сейчас переделала, вроде пока все работатет. Спасибо.
...
Рейтинг: 0 / 0
12.08.2010, 16:22
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужна помошь пи обработке ошибок печати отчетов
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=92&tid=1585050]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 78ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 334ms
total:  509ms
созд. / загр.: 509ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]