Страница 1 из 1
Можно-ли к MAV report подключить нормальный просмотрщик
Добавлено: 09 Март 2006, 9:52
Михаил
Здравствуйте ALL.
Можно ли прикрутить к отчётам нормальный VIEWER. стандартный в MAV
от Clarion такой убогий , показывать людям стыдно.
С уважением Михаил .
Re: Можно-ли к MAV report подключить нормальный просмотрщик
Добавлено: 09 Март 2006, 10:30
Andrew™
Михаил писал(а):Здравствуйте ALL.
Можно ли прикрутить к отчётам нормальный VIEWER. стандартный в MAV
от Clarion такой убогий , показывать людям стыдно.
С уважением Михаил .
не понял вопроса, Report Preview я САМ не разрабатываю, использую тот штатный который генерят стандартные шаблоны. Разницы в просмотровщиках нет, что MAV Report, что ABC/Clarion REPORT
Добавлено: 09 Март 2006, 10:42
Михаил
Претензии конечно. к Clarion. У меня со стандартным репортом работает
TINTOOLS report viewer, а с вашим отчётом он неработает.
Добавлено: 09 Март 2006, 11:01
Andrew™
Михаил писал(а):Претензии конечно. к Clarion. У меня со стандартным репортом работает
TINTOOLS report viewer, а с вашим отчётом он неработает.
можно, конечно, и заточить под продукты третих фирм, в частности по этот сделаю, т к в одном из моих продуктом (ELP) есть совместимость с этим, знаю этого зверя, сделаю.
но в настоящий момент ведь не очень сложно вставить пару строк кода Source в соответсвующий EMBED
Добавлено: 09 Март 2006, 11:35
Михаил
Если не сложно куда, и что написать (конечно в общих словах) для данного просмотрщика(моих знаний нехватает).
Заранее спасибо
.
Добавлено: 09 Март 2006, 12:23
Andrew™
Михаил писал(а):Если не сложно куда, и что написать (конечно в общих словах) для данного просмотрщика(моих знаний нехватает).
Заранее спасибо
.
Код: Выделить всё
TintRptViewer.Display(REPORT,PRintPreview:Queue,'EasyListPrint - TinTools Report Viewer','Page Width',1)
стандартный вызов заOMITь и вставь такую строчку
Добавлено: 09 Март 2006, 18:03
Михаил
К сожалению не получилось, в extensions он задимлен ,omit я нашёл куда воткнуть. Ругается на TintRptViewer (неопознанная функциональная метка) Может где руками проинициализировать?
Добавлено: 09 Март 2006, 19:41
Andrew™
Михаил писал(а):К сожалению не получилось, в extensions он задимлен ,omit я нашёл куда воткнуть. Ругается на TintRptViewer (неопознанная функциональная метка) Может где руками проинициализировать?
наверное у тебя какой то либо очень свежий, либо очень старый TINTOOLS, бросай его мне, если есть такая возможность, поглядим.
Добавлено: 09 Март 2006, 20:38
Михаил
TINTOOLS ver 6.0.0 build 1
Если старый значит надо искать свежее.
Посмотрел он совсем старый 2004 врядли кому он нужен.
Добавлено: 10 Март 2006, 8:28
Andrew™
Михаил писал(а):TINTOOLS ver 6.0.0 build 1
Если старый значит надо искать свежее.
Посмотрел он совсем старый 2004 врядли кому он нужен.
У меня есть продукт EasyListPrint, так в нём есть совместимость
с TINTOOLS и сообщений что что то не работает не было, специально адаптировали и вели переписку с разработчиками данного софта
и код я тебе привёт именно правильный
ищи свежий продукт, адаптировать и смотреть старый не вижу смылса.
Добавлено: 11 Март 2006, 0:49
Михаил
В каком виде совсем новый прислать и куда?
Добавлено: 13 Март 2006, 8:12
Andrew™
Михаил писал(а):В каком виде совсем новый прислать и куда?
выложи куда нибудь и дай сылку
поглядел я актуальный TINTOOLS на таму совмстимости
Добавлено: 13 Март 2006, 10:48
Andrew™
и не увидел проблем, применительно к ABC
регистрирем глобальный шаблон TINTOLLS, на закладке Option включаем крыжик Enable Report Viewer
в EXTENSION MAV REPORT процедуры вставляем шаблон
(TinTools) Report Viewer
входим в режим Source в процедуре и делаем следующее:
Код: Выделить всё
MAV1:Process.After PROCEDURE
! Start of "MAV Process"
! [Priority 3500]
class_View PrintPreviewClass
! [Priority 8500]
Код: Выделить всё
! End of "MAV Process"
CODE
! Start of "MAV Process"
! [Priority 4800]
ENDPAGE(Report)
Report{PROP:FlushPreview} = TintRptViewer.Display(report,Self.QPrint,report{Prop:Text},'No Zoom',0)
END
OMIT('***')
Код: Выделить всё
! Closing Report
IF SELF.Response = RequestCompleted
ENDPAGE(Report)
class_View.AllowUserZoom = True
class_View.Maximize = True
class_View.SetINIManager(iniMgr)
class_View.Init(SELF.QPrint)
Report{PROP:FlushPreview}=class_View.Display(PageWidth)
END
! [Priority 9650]
Код: Выделить всё
CLOSE(Report)
! [Priority 9800]
PARENT.After
! [Priority 9950]
! End of "MAV Process"
TINTOOLS Report Viewer
Добавлено: 13 Март 2006, 11:45
Andrew™
ничего теперь делать руками не надо, подключили штатно TINTOOLS к процедуре и всё работает, как в ABC так и в Legasy
Добавлено: 15 Март 2006, 21:34
Михаил
Спасибо. Всё заработало
Я вне класса обьявил обьявил TintRptViewer TinReportViewer
Кстати в шаблонах надо обьявить процедуру SQLReport иначе
в отчетах в exten он не объявится.
С уважением Михаил.