Отправлено: 10.03.08 23:53. Заголовок: ANN: Вышел релиз FastReport for [x]Harbour

Здравствуйте.

Рад сообщить, что вышел релиз FastReport for [x]Harbour. Как всегда, информацию можно посмотреть:

http://www.paritetsoft.ru/frh.htm

Возможным русскоязычных покупателей лучше контактировать со мной напрямую по email. Цена для оплаты в рублях банковским переводом по выставленному счету- 9999 рублей.

--
Спирин Сергей.
Компания "Паритет Софт".
FRH sales: http://www.paritetsoft.ru/frh.htm
FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

 Отправлено: 12.03.08 15:50. Заголовок: Собрался делать нову..

Собрался делать новую форму и не знаю как поступить.

Есть выборка по базе.
Мне нужно на лист А4 печатать 1 запись из выборки.
Причем если поле (допустим KVIEW) == 1, то это 1-шаблон, если == 2, то 2-шаблон ...
и так до 4-шаблонов.

Как такую штуку сделать ?

 Отправлено: 12.03.08 19:22. Заголовок: Andrey пишет: Собра..

Andrey пишет:

цитата:

Собрался делать новую форму и не знаю как поступить. Есть выборка по базе. Мне нужно на лист А4 печатать 1 запись из выборки. Причем если поле (допустим KVIEW) == 1, то это 1-шаблон, если == 2, то 2-шаблон ... и так до 4-шаблонов. Как такую штуку сделать ?

Если шаблоны сильно разные, то мне кажется оптимальней будет так:

FrPrn:SetWorkArea("MY_AREA", Select(), , {FR_RB_CURRENT, FR_RE_CURRENT , 0})
FrPrn:Clear()

DO WHILE .NOT. Eof()

IF KVIEW == 1
FrPrn:LoadFromFile(1.fr3)
ENDIF

IF KVIEW == 2
FrPrn:LoadFromFile(2.fr3)
ENDIF
.....................

FrPrn:PrepareReport(FR_NOTCLEARLASTREPORT)

SKIP
ENDDO

FrPrn:ShowPreparedReport()

 Отправлено: 17.03.08 15:45. Заголовок: Как реализовать след..

Как реализовать следующию печать в терминалке хХарбора:

Есть файл логотипа фирмы (logo.bmp)
Нужно его считать и вставить в начало отчета (сразу нельзя, т.к. форма будет в разных фирмах).

 Отправлено: 17.03.08 23:43. Заголовок: Andrey пишет: Есть ..

Andrey пишет:

цитата:

Есть файл логотипа фирмы (logo.bmp) Нужно его считать и вставить в начало отчета (сразу нельзя, т.к. форма будет в разных фирмах).

Это очень просто, например, задайте обработчик OnBeforePrint oбъекту Picture:

procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
Picture1.Picture.LoadFromFile(GetHbVar('MyLogo'));
end;

Чтобы сделать обработчик, выберите объект, в инспекторе объектов выберите вкладку "События" и напротив нужного события в пустой ячейке двойной щелчок мышы.

 Отправлено: 04.04.08 20:16. Заголовок: Видел FastReport по ..

Видел FastReport по Дельфи. Там в верхней строке было размещены кнопки Экспорта в Word и Excel.
И кнопка "выхода" была значком с "Дверью". Т.е. я так понимаю что этот параметр настраивается.
Я хочу также сделать в хХарборе !
Как это реализуется ?

Вдобавок ко всему все эти формы можно затолкать в ЕХЕ-ник.
В некоторых случаях это очень удобно.

Как можно сделать такое-же в хХарборе ?

 Отправлено: 05.04.08 09:55. Заголовок: Здравствуйте, Андрей..

Здравствуйте, Андрей.

Насчет дополнительных кнопок. Реализуется это только в Дельфи. В Харбуре вы можете только манипулировать количеством видимых кнопок.

Насчет отчетов в EXE, это можно. Добавьте ваши отчеты к EXE как ресурс RCDATA. Для загрузки отчета :LoadFromResource()

 Отправлено: 05.04.08 14:47. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

В Харбуре вы можете только манипулировать количеством видимых кнопок.

А как ? Можно небольшой пример ?

Sergey Spirin пишет:

цитата:

Добавьте ваши отчеты к EXE как ресурс RCDATA. Для загрузки отчета :LoadFromResource()

Для примера: есть 2 отчета otchet1. и otchet2.
Как будет выглядеть my.rc ?
Как будет выглядеть вызов этих отчетов в моей программе ?

 Отправлено: 05.04.08 19:19. Заголовок: По кнопкам, смотрите..

По кнопкам, смотрите доку:

FrPrn:PreviewOptions:SetButtons(FR_PB_PRINT + FR_PB_LOAD...)

Ресурсы, rc:

OTCHET1 RCDATA "otchet1.fr3"

Вызов:

FrPrn:LoadFromResource("OTCHET1")

 Отправлено: 05.04.08 19:28. Заголовок: Спасибо большое ! :s..

Спасибо большое !

 Отправлено: 16.04.08 01:50. Заголовок: Не показывает иконку..

Не показывает иконку в FastReporte, а заголовок окна показывает !
Хотя в начале стоит показ иконки, может что неправильно ?

//----------- Now load and init FastReport --------------------------------------
FrPrn := frReportManager():new()

//---------- Set the same icon for FastReport windows----------
FrPrn:SetIcon( 1 )

//---------- Set the same title for FastReport taskBar-window
FrPrn:SetTitle( _cTitle )

 Отправлено: 16.04.08 17:39. Заголовок: Andrey пишет: //---..

Andrey пишет:

цитата:

//---------- Set the same icon for FastReport windows---------- FrPrn:SetIcon( 1 )

А есть ли у Вас в exe ресурс иконки, определенный числовым идентификатором 1?

Иконка читается из ресурсов. И если такого ресурса нет, то и нет

Кстати, удобнее даже определить в rc символьно, и тогда FrPrn:SetIcon( "MYICON" )

Минимальный код, который спрашивали в письме:

FrPrn := frReportManager():new()
FrPrn:SetWorkArea() -- если нужно, может не использоваться
FrPrn:LoadFromFile() -- FromBlob(), FromResource(), Clear() - на выбор
FrPrn:DesignReport()

 Отправлено: 16.04.08 20:49. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

А есть ли у Вас в exe ресурс иконки, определенный числовым идентификатором 1?

Конечно же нет ! Я так с Аляски взял и тупо переписал. Спасибо за подсказку.

Sergey Spirin пишет:

цитата:

FrPrn := frReportManager():new() FrPrn:SetWorkArea() -- если нужно, может не использоваться FrPrn:LoadFromFile() -- FromBlob(), FromResource(), Clear() - на выбор FrPrn:DesignReport()

А где взять описание этих функций, чтоб я каждый раз не приставал к вам ?
Кинте пожалуйста ссылку.

 Отправлено: 16.04.08 20:54. Заголовок: И еще по ходу один в..

И еще по ходу один вопрос !
Если я использую только русский язык, то можно ли мне файл ресурсов-языка затолкать в мой RC файл ?
Как будет выглядеть эта строка в RC файле, и как вызывать язык ввода FastReporta у меня в программе ?
Спасибо заранее.

 Отправлено: 17.04.08 09:13. Заголовок: Andrey пишет: А где..

Andrey пишет:

цитата:

А где взять описание этих функций, чтоб я каждый раз не приставал к вам ? Кинте пожалуйста ссылку.

Текущая дока -

http://www.paritetsoft.ru/downloads/UserManual_for_Xbase.zip

Но она на английском.

На русском есть старая для Аляски, но для основных методов она подойдет полностью:

http://www.hotsoft.ru/ALASKA/FastReport.pdf

Andrey пишет:

цитата:

И еще по ходу один вопрос ! Если я использую только русский язык, то можно ли мне файл ресурсов-языка затолкать в мой RC файл ? Как будет выглядеть эта строка в RC файле, и как вызывать язык ввода FastReporta у меня в программе ?

Для этого ничего делать не надо, Ваша персональная копия уже русская. Если у Вас только русские приложения, никаких файлов загружать не надо.

 Отправлено: 23.04.08 19:24. Заголовок: Есть ли FastReport д..

Есть ли FastReport для Linux ?

 Отправлено: 23.04.08 23:17. Заголовок: Andrey пишет: Есть ..

Andrey пишет:

цитата:

Есть ли FastReport для Linux ?

FastReport (не FRH) есть. Но похоже доживает свои последние дни, также как и Kylix (Delphi для Linux) на котором написан. Разработка клиентских приложений под Linux экономически нецелесоообразна (не я сказал).

 Отправлено: 25.04.08 10:23. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

(не FRH)

А много ли надо времени, чтобы его переделать под Linux ?
Это так - чисто теоретически !!!

 Отправлено: 25.04.08 16:22. Заголовок: Andrey пишет: А мно..

Andrey пишет:

цитата:

А много ли надо времени, чтобы его переделать под Linux ? Это так - чисто теоретически !!!

Не знаю. Я не в курсе организации динамических библиотек в Linux.

 Отправлено: 26.04.08 08:13. Заголовок: Ну, вообще говоря, п..

Ну, вообще говоря, проблема здесь не в "организации динамических библиотек в Linux" ( это вообще не проблема ), а в подборе подходящего модуля ( библиотеки ) для печати и в переписывании всего вывода на печать под этот модуль, а лучше - создании промежуточного слоя, который мог работать и с этим модулем, и под Windows и обеспечил бы независимость от платформы основного кода. Это, действительно, может оказаться непростой задачей.

 Отправлено: 26.04.08 12:28. Заголовок: alkresin пишет: Ну,..

alkresin пишет:

цитата:

Ну, вообще говоря, проблема здесь не в "организации динамических библиотек в Linux" ( это вообще не проблема ), а в подборе подходящего модуля ( библиотеки ) для печати и в переписывании всего вывода на печать под этот модуль, а лучше - создании промежуточного слоя, который мог работать и с этим модулем, и под Windows и обеспечил бы независимость от платформы основного кода. Это, действительно, может оказаться непростой задачей.

Да вроде речь идет в контексте того, что уже "подобрали".

Речь о FastReport CLX. И это продукт обеспечивающий весь жизненный цикл отчетов в Linux, от разработки до печати и экспорта. Поэтому никакой речи о "выборах и переписываниях" не ведется, достаточно давно все уже выбрано и переписано на высоком профессиональном уровне, в первую очередь Borland-ом (Kylix), во вторую FastReport Inc (CLX-версия).

Поэтому, речь здесь только о возможности использования всего этого из Harbour-приложения под Linux. В Windows это реализовалось в виде компиляции FastReport как динамической библиотеки (как первый шаг к цели). И я не говорил проблема это или не проблема в Linux, я сказал, что я не в курсе, насколько это может быть проблематично.

Но как я уже говорил, Borland остановил Kylix, заявив об отсутствии коммерческих переспектив, FastReport CLX "заморожен". Поэтому текущий разговор достаточно абстрактен.

 Отправлено: 26.04.08 21:11. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Поэтому текущий разговор достаточно абстрактен.

А что есть для FastReport на текущий момент. Можно ли получить (сделать) печать под FastReport на текущий момент времени ???
Печать форм для Windows из FastReport просто "обалденная" т.е. очень развита и не нужно более ничего изобретать - бери и пользуйся.......
Возможна ли такая печать для Linux из FastReport ? Я понял что нет, тат как не реализован вызов FastReport из под xHarbour ?
Вопрос пока чисто теоретически, сколько по времени нужно затратить для переноса FastReport для xHarbour ?

 Отправлено: 26.04.08 21:52. Заголовок: Andrey пишет: Вопро..

Andrey пишет:

цитата:

Вопрос пока чисто теоретически, сколько по времени нужно затратить для переноса FastReport для xHarbour ?

Ну, если уж Вам так интересно, то, на вскидку 3-4 месяца... То есть, где-нибудь, учитывая все расходы, тысяч 20 упавших долларов.

 Отправлено: 28.04.08 11:36. Заголовок: Столкнулся с некотор..

Столкнулся с некоторыми неудобствами.
У меня используется OEM кодировка, а при печати используется WIN-кодировка.

не хочу везже в своих формах писать такую конструкцию
[CallHbFunc('HB_OEMTOANSI',[GetHbVar('myFirma')])]

хочется иметь простые конструкции типа:
[My_Firma], [My_Adres], [My_Telefon], [My_Viborka] и т.д.

Вопрос: как в программе заранее определить эти переменные,
а потом чтоб эти переменные были видны в ДИЗАЙНЕРЕ ?
По доке смотрел, сделал наподобее, а не работает.
Где я ошибся ?

PUBLIC myFirma, MyAdres, MyTelefon, MyViborka

MyFirma := HB_OEMTOANSI('ООО "Рога и Копыта"')
MyAdres := HB_OEMTOANSI('г.Москва, Набережная 13')
MyTelefon := HB_OEMTOANSI('тел.: (495) 123-45-67')
MyViborka := HB_OEMTOANSI('Дата договора: = 12.01.08 .....')
.............
.............

FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , MyFirma )
FrPrn:AddVariable( "My Lovely Vars", "My_Adres" , MyAdres )
FrPrn:AddVariable( "My Lovely Vars", "My_Telefon", MyTelefon )

FrPrn:DesignReport()

При просмотре выдает ошибку:
Memo3: Ошибка в выражении: "myFirma": Неопределенный индентификатор "myFirma"

 Отправлено: 28.04.08 15:51. Заголовок: Andrey пишет: PUBLI..

Andrey пишет:

цитата:

PUBLIC myFirma, MyAdres, MyTelefon, MyViborka MyFirma := HB_OEMTOANSI('ООО "Рога и Копыта"') MyAdres := HB_OEMTOANSI('г.Москва, Набережная 13') MyTelefon := HB_OEMTOANSI('тел.: (495) 123-45-67') MyViborka := HB_OEMTOANSI('Дата договора: = 12.01.08 .....') ............. ............. FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , MyFirma ) FrPrn:AddVariable( "My Lovely Vars", "My_Adres" , MyAdres ) FrPrn:AddVariable( "My Lovely Vars", "My_Telefon", MyTelefon ) FrPrn:DesignReport() При просмотре выдает ошибку: Memo3: Ошибка в выражении: "myFirma": Неопределенный индентификатор "myFirma"

Наверняка результат самой популярной "непонятки" в Фасте .

Если значение перменной (отчетной, не скриптовой) строковое, то оно считается интепретируемым выражением и вычисляется. Просто строка должна быть в одинарныйх кавычках. Поэтому, либо :

FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , "'" + MyFirma + "'" )

Либо:

FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , "CallHbFunc('HB_OEMTOANSI', [GetHbVar('myFirma')])" )

 Отправлено: 28.04.08 22:57. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , "'" + MyFirma + "'" ) Либо: FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , "CallHbFunc('HB_OEMTOANSI', [GetHbVar('myFirma')])" )

НЕ РАБОТАЕТ !!!
И в списке переменных (в Дизайнере) не появляется группа "My Lovely Vars" !!!
Что делать ???

 Отправлено: 29.04.08 09:31. Заголовок: НЕ РАБОТАЕТ !!! И в ..

НЕ РАБОТАЕТ !!!
И в списке переменных (в Дизайнере) не появляется группа "My Lovely Vars" !!!
Что делать ???

 Отправлено: 29.04.08 10:12. Заголовок: Andrey пишет: НЕ РА..

Andrey пишет:

цитата:

НЕ РАБОТАЕТ !!! И в списке переменных (в Дизайнере) не появляется группа "My Lovely Vars" !!! Что делать ???

Если Вы пишите :

FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , "'" + MyFirma + "'" )
FrPrn:LoadFromFile(...)

То и не появятся Вернее сотрутся загруженным отчетом у которого свои переменные.

Поэтому:

FrPrn:LoadFromFile(...)
FrPrn:AddVariable( "My Lovely Vars", "My_Firma" , "'" + MyFirma + "'" )

 Отправлено: 29.04.08 12:03. Заголовок: Блин, а я смотрел на..

Блин, а я смотрел на загрузку ваших функций и ставил раньше них. И эту функцию было видно в Дизайнере.

FrPrn:AddFunction( "function XBaseStr(nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant", "My Lovely Functions!", "It's a XBase Str() function!" )

Спасибо, заработало.

Только еще один вопрос:
У меня в базе поле времени числовое (N 4,0) - т.е. типа: 1208, 1310 и т.д.

Если в дизайнере указываешь формат вывода Дата/время hh:mm, то показывает 00:00
Как правильно сделать ?

 Отправлено: 29.04.08 13:57. Заголовок: Andrey пишет: Блин,..

Andrey пишет:

цитата:

Блин, а я смотрел на загрузку ваших функций и ставил раньше них. И эту функцию было видно в Дизайнере. FrPrn:AddFunction( "function XBaseStr(nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant", "My Lovely Functions!", "It's a XBase Str() function!" ) Спасибо, заработало. Только еще один вопрос: У меня в базе поле времени числовое (N 4,0) - т.е. типа: 1208, 1310 и т.д. Если в дизайнере указываешь формат вывода Дата/время hh:mm, то показывает 00:00 Как правильно сделать ?

Функции к отчетам не привязаны, поэтому их можно добавлять, где хочется.

Правильно показывает 00:00 У "нас-дельфистов" тип TDateTime - это float. В целой части хранится дата, в дробной - время. Целое число всегда имеет время 00:00.

Поставьте формат - числовой, строка формата - ##:##

 Отправлено: 30.04.08 11:05. Заголовок: Спасибо заработало !..

Спасибо заработало !!!

 Отправлено: 06.05.08 10:23. Заголовок: Здравствуйте, Я рас..

Здравствуйте,

Я рассылал приглашение в английскую конфу всем русскоязычным пользователям, однако никто "не присоединился" к этой конфе.

Тем не менее, в этой конфе начинает накапливаться полезная информация, поэтому все-таки рекомендую это сделать всем интересующимся FastReport. Напомню адрес:

[url=http://groups.google.com/group/fastreport_for_x_harbour/topics ]http://groups.google.com/group/fastreport_for_x_harbour/topics [/url]

 Отправлено: 07.05.08 00:55. Заголовок: Хочу сделать вызов п..

Хочу сделать вызов печати универсальной для своих задач.
Т.е. Вызываю функцию печати и туда передаю имя_формы.
А как сделать передачу назначения доп.переменных, функций и SetFieldAliases ?

Вот мой пример:

//////////////////////////////////////////////////////////////////////
#include "FastRepH.ch"

FUNCTION MyFR4()
LOCAL cFileForm, cPath, nShowDesignReport
PUBLIC myFirma, MyAdres, MyTelefon, MyViborka, MyNumba, myPathRes

M->myPathRes := CurDrive() + ":\" + CurDir() + '\'
M->MyFirma := HB_OEMTOANSI('ООО "Рога и Копыта"')
M->MyAdres := HB_OEMTOANSI('г.Москва, Набережная 13')
M->MyTelefon := HB_OEMTOANSI('тел.: (495) 123-45-67')
M->MyViborka := HB_OEMTOANSI('Дата договора: = 12.01.08 .....')
M->MyNumba := 123

cFileForm := "bookabon.fr3"
cPath := CurDrive() + ":\" + CurDir() + '\'

USE bookabon ALIAS BookAbon NEW

nShowDesignReport := 1 // 1-ShowReport, 2-DesignReport

MyFastReport4( cPath + cFileForm , nShowDesignReport, ;
(передать переменные), (передать функции), (передать SetFieldAliases) )

CLOSE BookAbon

RETURN NIL
////////////////////////////////////////////////////////////////
FUNCTION MyFastReport4(cFileForm, nShowDesignReport)
LOCAL cTitle := HB_OEMTOANSI( "Печать формы - " )
PRIVATE FrPrn

//----------- Now load and init FastReport --------------------------------------
FrPrn := frReportManager():new()

//---------- Set the same icon for FastReport windows----------
FrPrn:SetIcon( "FASTREP_ICO" )

//---------- Set the same title for FastReport taskBar-window
FrPrn:SetTitle( cTitle + cFileForm )

//----------- Set to disable main window when FastReport executes----------------------
// FrPrn:SetVisualActions(FR_ACT_DISABLE);

//----------- Определяет набор кнопок, которые будут доступны в Окне-Просмотра --------
FrPrn:PreviewOptions:SetButtons(FR_PB_PRINT + FR_PB_LOAD + FR_PB_SAVE + ;
FR_PB_EXPORT + FR_PB_ZOOM + FR_PB_FIND + FR_PB_OUTLINE + FR_PB_PAGESETUP + ;
FR_PB_TOOLS + FR_PB_EDIT + FR_PB_NAVIGATOR )
//----------- Load Lang resource for FastReport ----------------------
//FrPrn:LoadLangRes( M->myPathRes + "Russian.xml" )

//----------- Alias base and SELECT work area for FastReport ----------------------
FrPrn:SetWorkArea( ALIAS(), SELECT(), .T. ) // .T. для OEM-кодировки БД
//FrPrn:SetFieldAliases( "BookAbon", "CUSTNO=Cust No;Company;ADDR1=Address;Phone;Fax;Contact" )

//----------- Load file form FastReport ----------------------
FrPrn:LoadFromFile( cFileForm )

//-------- add XBase++ vars to FastReport ---------------------
FrPrn:AddVariable( "My Lovely Vars", "MyPathRes", "'"+myPathRes+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyFirma" , "'"+MyFirma+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyAdres" , "'"+MyAdres+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyTelefon", "'"+MyTelefon+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyNumba" , MyNumba )
//FrPrn:SetEventHandler( "Report", "OnUserFunction", { | FName, FParams | CallUserFunction( FName, FParams ) } )
FrPrn:AddFunction( "function XBaseStr(nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant", ;
"My Lovely Functions!", "It's a XBase Str() function!" )

IF nShowDesignReport == 1
FrPrn:ShowReport()
ELSE
FrPrn:DesignReport()
ENDIF

FrPrn:ClearDataSets()

//-------- Unload FastReport -------------------------------------------------------------
FrPrn:DestroyFR()

RETURN NIL
////////////////////////////////////////////////////////////////

 Отправлено: 07.05.08 14:37. Заголовок: Andrey пишет: Хочу ..

Andrey пишет:

цитата:

Хочу сделать вызов печати универсальной для своих задач. Т.е. Вызываю функцию печати и туда передаю имя_формы. А как сделать передачу назначения доп.переменных, функций и SetFieldAliases ?

Собственно, в демо DoFrAction() - это и есть такая универсальная функция. Можно делать как там.

Но если Вы хотите почти полной универсальности и минимум Harbour-кода, то посоветую следующее:

Не пользуйтесь SetWorkArea(), а пользуйтесь объектами HarbourWorkArea. Возможностей даже больше, при этом нет вызовов SetWorkArea(), SetFieldAliases() которые должны быть до LoadFromXXX.

Задавайте переменные в дизайнере, давая им значения типа - GetHbVar('SomeVar')

Функции, естественно, добавляйте при инициализации Фаста.

Таким образом, Вам останется только вызывать Load.., Show.., Design..

 Отправлено: 12.05.08 20:23. Заголовок: Можно ли прикрутить ..

Можно ли прикрутить кнопку для вызова "Дизайнера" на панели "Просмотра" печати ?
А то не хочется делать доп. вызов "Дизайнера" из своей программы.

 Отправлено: 13.05.08 09:35. Заголовок: Andrey пишет: Можно..

Andrey пишет:

цитата:

Можно ли прикрутить кнопку для вызова "Дизайнера" на панели "Просмотра" печати ? А то не хочется делать доп. вызов "Дизайнера" из своей программы.

Там уже есть вызов дизайнера, но в специальном режиме правки уже сформированного отчета, а свою кнопку добавить сейчас нельзя.

 Отправлено: 21.05.08 20:54. Заголовок: В Дизайнере есть мен..

В Дизайнере есть меню "Отчет", в нем меню "Настройки" и там во вкладке "Описание" есть элемент "Имя" - оно отображается в заголовке окна при "Просмотре" отчета. (классно !)
А элемент "Картинка", когда туда вставляешь, нигде не отображается.
Для чего она нужна ?
Как заставить показываться при "Просмотре" ?

 Отправлено: 22.05.08 16:14. Заголовок: Andrey пишет: Для ч..

Andrey пишет:

цитата:

Для чего она нужна ?

Сие тайна, покрытая мраком

Andrey пишет:

цитата:

Как заставить показываться при "Просмотре" ?

А где показывать ее? В самом отчете показать конечно можно, типа:

procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
Picture1.Picture.Assign(Report.ReportOptions.Picture);
end;

Но не очень понятно, зачем.

А.. в FastReport Server может использоваться при "изготовлении" HTML-странички со списком отчетов, получиться красиво, каждый отчет представлен картинкой.

 Отправлено: 23.05.08 23:03. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

А где показывать ее?

Нужно показывать где иконка окна "просмотра", т.е. заместо нее.

 Отправлено: 23.05.08 23:04. Заголовок: Решил сделать печать..

Решил сделать печать еще универсальней....
Обойтись вызовом спец.функцией типа MyPrintFR4("zaivka.ini") !
А в этом ини-файле делаю все остальное.

Пример файла: zaivka.ini

[Настройка]
Имя_формы = "СПИСОК ЗАЯВОК НА РЕМОНТ"
Файл_формы = "zaivka.fr3"
Дизайнер = .F.

[Заполнить_переменные]
* имя_переменной , значение_переменной , комментарий
Поле1 = { "MySample" ,'M->cFiltPrn' , "выборка" }
Поле2 = { "MyDatePRN" ,'DTOC(DATE())' , "дата печати" }
Поле3 = { "MyFirma" ,'M->SDog_Firma' , "фирма" }
Поле4 = { "MyOtdel" ,'M->SDog_Otv+"/"+M->SDog_Tel+"/"' , "Нач.отдела" }

[Заполнить_таблицу]
* имя_поля , значение_поля (функции+поля_БД) , комментарий
Поле1 = { "NN" ,'TRANSFORM(FIELD->NNZa,"@R 999999/99")+CHR(10)+DTOC(FIELD->DATEZa)+", "+CHR(10)+TRANSFORM(FIELD->TIMEZA,"@R 99:99")+CHR(10)+ALLTRIM(FIELD->mNigtZa)+CHR(10)+ALLTRIM(SUBSTR(FIELD->mKodZa,1,10))' , "номер заявки" }
Поле2 = { "POLE1" ,'MAR_ADRES(6)+","+CHR(10)+ALLTRIM(FIELD->FIO)+", "+New_TelFIO()+", "+Za_Teleph(0,0,1,1)+CHR(10)+"ОТВ.: "+ALLTRIM(FIELD->cDogov)+CHR(10)+ALLTRIM(FiliDSP->FiliDSP)' , "заказчик,адрес,тел." }
Поле3 = { "POLE2" ,'MAR_NEIS3()+CHR(10)+ALLTRIM(FIELD->mRem)' , "неисправность" }
Поле4 = { "POLE3" ,'ALLTRIM(srokza->srokza)+", "+CHR(10)+ALLTRIM(FIELD->SrokZa)+"/, "+CHR(10)+DTOC(FIELD->DatePere)+CHR(10)+ALLTRIM(MASTER->MASTER)' , "сроки,мастер" }
Поле5 = { "POLE4" ,'ALLTRIM(Domof9->Domof)+", "+ALLTRIM(Truba9->Truba)+", "+ALLTRIM(Zamok9->Zamok)+", "+ALLTRIM(Dovod9->Dovod)+", "+ALLTRIM(Dver9->Dver)+", "+ALLTRIM(Process9->Process)' , "уст.оборудование" }
Поле6 = { "OPLAT" ,'IIF(FIELD->SumPlata>0,STR(FIELD->SumPlata,8,2)+" руб.","-")' , "оплата" }

[]

А на самой форме FastReport проставляю переменные и поля БД.
Как заполнить переменные и передать в FastReport - понятно.
А как быть с полями БД ?
Они же составные ?

 Отправлено: 24.05.08 14:04. Заголовок: Andrey пишет: Решил..

Andrey пишет:

цитата:

Решил сделать печать еще универсальней.... Обойтись вызовом спец.функцией типа MyPrintFR4("zaivka.ini") ! А в этом ини-файле делаю все остальное.

Похоже Вы явно ищите себе лишнюю (и бесполезную) работу Никакого смысла в этих ini-файлах нет. Все это можно и нужно делать в самих отчетах.

Переменные добавляйте в дизайнере, например: "фирма" значение GetHbVar('SDog_Firma') и т.д.

Общие переменные добавляйте во все отчеты в той же MyPrintFR4().

Используйте TfrxAlaskaWorkArea объекты и в отчете поля и "составляйте".

Чтобы часто не писать 'CallHbFunc()' добавьте в FR часто используемые функции типа ALLTRIM, TRANSFORM и т. д.

Кстати можно обсудить набор наиболее используемых функций и я добавлю их в FRH, чтобы не добавлять кодом.

 Отправлено: 24.05.08 15:42. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Никакого смысла в этих ini-файлах нет.

Не согласен с вами. Как видно из примера там целая куча полей и своих функций....
И когда нужно быстро подправить, текстовый ини-файл просто удобней, 5 сек. и отчет печатает по другому.

Sergey Spirin пишет:

цитата:

Кстати можно обсудить набор наиболее используемых функций и я добавлю их в FRH, чтобы не добавлять кодом.

Нужны все текстовые функции преобразования:
ALLTRIM(), CHR(), LTRIM(), RTRIM(), PADC(), REPLACE(), TRANSFORM(), MEMOLINE(), MEMOTRAN() .....
Лучше я пришлю NG по группам функций...

Sergey Spirin пишет:

цитата:

Используйте TfrxAlaskaWorkArea объекты и в отчете поля и "составляйте".

Не совсем понял ? Как это делать ?

 Отправлено: 26.05.08 10:02. Заголовок: Andrey пишет: И ког..

Andrey пишет:

цитата:

И когда нужно быстро подправить, текстовый ини-файл просто удобней, 5 сек. и отчет печатает по другому.

Напомню, что формат fr3 - это xml, то есть тоже текстовый. Вы же хотите все задублировать, чтобы побольше попутаться

Andrey пишет:

цитата:

Нужны все текстовые функции преобразования:

Все необходимые функции Вы можете добавлять самостоятельно. По умолчанию же, думаю, можно добавить не более десятка наиболее часто используемых. С этим десятком нужно определиться.

Andrey пишет:

цитата:

Используйте TfrxAlaskaWorkArea объекты и в отчете поля и "составляйте". Не совсем понял ? Как это делать ?

На страниеце Data бросаете объект TfrxAlaskaWorkArea и в нем все прописываете, от MasterDetail до FieldAliases. Поля же составляете в мемах отчета.

 Отправлено: 28.05.08 03:55. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

По умолчанию же, думаю, можно добавить не более десятка наиболее часто используемых. С этим десятком нужно определиться.

Определяемся:
ALLTRIM()
PADC()
PADL()
PADR()
TRANSFORM()
MEMOTRAN()
MEMOLINE()
DTOC()
STR()
VAL()
IIF()
CHR(10) - возврат каретки, т.е. след. строка

 Отправлено: 28.05.08 04:36. Заголовок: А можно каким нибудь..

А можно каким нибудь образом добавить составной БЛОК функций и его передать в Фаст ?

блок типа:
bBlok := 'MAR_ADRES(6)+","+CHR(10)+ALLTRIM(FIELD->FIO)+", "+New_TelFIO()+", "+Za_Teleph(0,0,1,1)+CHR(10)+"ОТВ.: "+ALLTRIM(FIELD->cDogov)+CHR(10)+ALLTRIM(FiliDSP->FiliDSP)'

 Отправлено: 28.05.08 17:30. Заголовок: Andrey пишет: bBlok..

Andrey пишет:

цитата:

bBlok := 'MAR_ADRES(6)+","+CHR(10)+ALLTRIM(FIELD->FIO)+", "+New_TelFIO()+", "+Za_Teleph(0,0,1,1)+CHR(10)+"ОТВ.: "+ALLTRIM(FIELD->cDogov)+CHR(10)+ALLTRIM(FiliDSP->FiliDSP)'

То что я вижу это строка, можно ли добавить строку в отчет? Можно, например в переменную отчета. Мне непонятно, зачем она в таком виде там нужна.

Кстати, в FRH есть EvalMacro(). Поэтому, в мемо отчета пишите, например:

[EvalMacro('MAR_ADRES(6) + ALLTRIM(FIELD->FIO) + New_TelFIO()')]

 Отправлено: 28.05.08 20:02. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Кстати, в FRH есть EvalMacro(). Поэтому, в мемо отчета пишите, например: [EvalMacro('MAR_ADRES(6) + ALLTRIM(FIELD->FIO) + New_TelFIO()')]

`

[EvalMacro(GetHbVar('bBlok'))]

Но, скажите, хачем хранить содержимое bBlok не в отчете, а где-то еще?

 Отправлено: 28.05.08 20:35. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Но, скажите, хачем хранить содержимое bBlok не в отчете, а где-то еще?

Дело в том что у меня есть уже куча отчетов под Word и Excel'ем, а там уже есть готовые ини-файлы.
Я просто физически не смогу их переделать. Из-за этого хочу таким образом поступить.

А новые отчеты конечно буду делать как положенно.

Sergey Spirin пишет:

цитата:

Кстати, в FRH есть EvalMacro(). Поэтому, в мемо отчета пишите, например: [EvalMacro('MAR_ADRES(6) + ALLTRIM(FIELD->FIO) + New_TelFIO()')]

А можно передать в отчет переменную bBlok, а вызвать потом [EvalMacro(bBlok)] ?

 Отправлено: 28.05.08 23:18. Заголовок: Andrey пишет: Дело ..

Andrey пишет:

цитата:

Дело в том что у меня есть уже куча отчетов под Word и Excel'ем, а там уже есть готовые ини-файлы

Ну, с этого и начинали бы, что это до_фастовское наследие

Andrey пишет:

цитата:

А можно передать в отчет переменную bBlok, а вызвать потом [EvalMacro(bBlok)] ?

Это же просто строка, конечно, можно и как отчетную перемнную (AddVariable) или прочитать из Harbour-переменной GetHbVar().

 Отправлено: 03.06.08 21:49. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Возможным русскоязычных покупателей лучше контактировать со мной напрямую по email. Цена для оплаты в рублях банковским переводом по выставленному счету- 9999 рублей.

Сергей! Есть желание купить FRH. Действительна ли цена в 9999р.? Какое мыло у Вас, spirin...paritet...?

 Отправлено: 03.06.08 23:48. Заголовок: PSP пишет: Сергей! ..

PSP пишет:

цитата:

Сергей! Есть желание купить FRH. Действительна ли цена в 9999р.?

Да, действительна.

PSP пишет:

цитата:

Какое мыло у Вас, spirin...paritet...?

Да. Точнее всегда можно глянуть:

http://www.paritetsoft.ru/frh.htm

Так что пишите.

 Отправлено: 06.06.08 15:27. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Так что пишите.

Check e-mail, please...

 Отправлено: 06.06.08 19:51. Заголовок: PSP пишет: Check e-..

PSP пишет:

цитата:

Check e-mail, please...

Checked and answered

 Отправлено: 09.06.08 15:30. Заголовок: Здравствуйте, Как..

Здравствуйте,

Как показыват практика, первое, что хочет напечатать FRH-user (особенно буржуйский) это Invoice. И в последнее время, много просьб сделать примеры разнообразных инвойсов. Нет ли у кого-нибудь данных (желательно на английском), которые можно использовать для такого мини-демо? Или, может быть, есть наработки красивых счетов и т.п.?

Спирин Сергей.

 Отправлено: 09.06.08 16:22. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Нет ли у кого-нибудь данных (желательно на английском), которые можно использовать для такого мини-демо?

Посмотрите в качестве образца пример Bill of landing из поставки PAGESCRIPT 32 demo по адресу:

http://www.abeelabs.com/downloads/ps32demo/ps32demo.zip

 Отправлено: 12.06.08 12:50. Заголовок: Сергей, можно ли как..

Сергей, можно ли как-то достучаться из Харбор-программы к свойству TfmReport.Modified ? И поддерживается ли оно в frh вообще ?
Или как можно определить другим способом, изменился ли отчет после работы
oFrh:DesignReport() ?

 Отправлено: 13.06.08 10:57. Заголовок: Pasha пишет: Сергей..

Pasha пишет:

цитата:

Сергей, можно ли как-то достучаться из Харбор-программы к свойству TfmReport.Modified ? И поддерживается ли оно в frh вообще ? Или как можно определить другим способом, изменился ли отчет после работы oFrh:DesignReport() ?

Report.Modified - это publiс свойство, а не published, поэтому через GetProperty его не прочитать. Вообще, по коду это свойство используется дизайнером для определения, нужно ли вызывать диалог сохранения или нет. А вот это событие перехватить можно. Смотрите событие OnSaveReport. То есть, если отчет был изменен, или пользователь нажал сохранить как, то это это событие произойдет. Нюанс в том, что в обработчике Вы должны сохранить отчет уже самостоятельно, вызвав один из методов SaveToXXX. На FRH-странице есть пример работы с блобами где все это используется.

 Отправлено: 13.06.08 12:13. Заголовок: Спасибо, буду перехв..

Спасибо, буду перехватывать OnSaveReport
Я решил хранить отчеты в Blob-полях, вот мне и надо, чтобы отработать SaveToBlob

 Отправлено: 23.06.08 18:20. Заголовок: Сергей, помогите раз..

Сергей, помогите разобраться с Demo примером. Интересует отчёт "More complex" in FR only (функция DoMoreComplex). Интересует каким образом задается сбор содержания по полю Customers."Company"? Понятно, что это связано с вкладкой "Contents", но в своём отчёте такую вкладку создать не смог.

 Отправлено: 23.06.08 19:38. Заголовок: TimTim пишет: Серге..

TimTim пишет:

цитата:

Сергей, помогите разобраться с Demo примером. Интересует отчёт "More complex" in FR only (функция DoMoreComplex). Интересует каким образом задается сбор содержания по полю Customers."Company"? Понятно, что это связано с вкладкой "Contents", но в своём отчёте такую вкладку создать не смог.

Вкладка называется страницей (Page). Чтобы добавить, просто в меню "Файл"-"Новая страница". Отчет может содержать сколько угодно много таких логических страниц.

Далее, обратите внимание, что отчет двухпроходный. Сначала производится "расстановка" Anchor-ов в:

procedure Band4OnBeforePrint(Sender: TfrxComponent);
begin
Engine.AddAnchor(<Customers."Company">);
end;

Anchor-ы именованные, то есть каждый получает имя по названию компании.

И потом с помощью:

[Engine.GetAnchorPage(<Customers."Company">)]

"вытаскиваются" номера страниц на которых эти Anchor-ы расположились.

 Отправлено: 24.06.08 08:56. Заголовок: Вроде сделал как в п..

Вроде сделал как в примере, но видно что-то не так.
Ошибка
"Нет дата-бэнда для группы GroupHeader1"

И вопрос. Наверное не играет роли где стоит вкладка "Content" - (я тоже так её обозвал) до или после Page1 - страниц отчёта? У меня после.
Пояснение. В отличие от примера у меня названия, которые должны собираться в содержании, находятся в другой БД, которая связана с основной по RELATION. В отчёте без содержания все OK.

 Отправлено: 24.06.08 09:45. Заголовок: TimTim пишет: Вроде..

TimTim пишет:

цитата:

Вроде сделал как в примере, но видно что-то не так. Ошибка "Нет дата-бэнда для группы GroupHeader1"

Ну, нет так добавьте В примере - это MasterData с нулевой высотой. Конечно, группа может образовывается только на данных. Группа здесь вообще используется только на случай, если названия могут дублироваться, то есть удаляет дубликаты.

TimTim пишет:

цитата:

И вопрос. Наверное не играет роли где стоит вкладка "Content" - (я тоже так её обозвал) до или после Page1 - страниц отчёта? У меня после.

Если стоит после, то печататься будет после. Вам так надо? Если нет, то перетащите мышкой в начало. Если да, то в этом случае отчет может быть и однопроходным.


TimTim пишет:

цитата:

Пояснение. В отличие от примера у меня названия, которые должны собираться в содержании, находятся в другой БД, которая связана с основной по RELATION. В отчёте без содержания все OK.

Да нет проблем. Если в отчете все нормально, то значит про SetResyncPair() не забыли?

 Отправлено: 24.06.08 16:09. Заголовок: Спасибо! Теперь и со..

Спасибо! Теперь и содержание собирает, но указывает неверные номера страниц.
Sergey Spirin пишет:

цитата:

В примере - это MasterData с нулевой высотой

А что такое нулевая высота?
Кстати, в демо отчете небольшая неувязочка. Для компании "Diver's Grotto" неверно указана страница и вообще про неё нет данных, хотя в БД она вроде есть.

 Отправлено: 24.06.08 17:17. Заголовок: TimTim пишет: Спаси..

TimTim пишет:

цитата:

Спасибо! Теперь и содержание собирает, но указывает неверные номера страниц.

Значит кто-то неверно их проставляет Информации давайте больше.

TimTim пишет:

цитата:

А что такое нулевая высота?

Height = 0, в примере MasterData1.

TimTim пишет:

цитата:

Кстати, в демо отчете небольшая неувязочка. Для компании "Diver's Grotto" неверно указана страница и вообще про неё нет данных, хотя в БД она вроде есть.

Да, действительно. Просто у компании "Diver's Grotto" нет ни одного заказа. Можете добавить:

procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
GroupHeader1.Visible := Engine.GetAnchorPage(<Customers."Company">) > 1;
end;

И будет все хорошо. "Diver's Grotto" не будет в оглавлении. Она появится когда у нее появятся заказы.

 Отправлено: 24.06.08 22:22. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Информации давайте больше.

Примерно так. В основной БД есть поле KOD, по которому она отсортированаи по этому же полю по RELATION соединена с БД с полями KOD и NAIMEN-наименования. Вот эти наименования я и пытаюсь собрать в оглавление. Номера страниц в оглавлении такие: на первой стр-це все номера 1, а на второй 2, хотя отчёт собирается правильно. Наименование, затем список, наименование, список и т.д. Все на разных страницах.
Sergey Spirin пишет:

цитата:

Можете добавить:

Добавил. Никакой реакции

 Отправлено: 24.06.08 23:47. Заголовок: TimTim пишет: Serge..

TimTim пишет:

цитата:

Sergey Spirin пишет: цитата: Информации давайте больше. Примерно так. В основной БД есть поле KOD, по которому она отсортированаи по этому же полю по RELATION соединена с БД с полями KOD и NAIMEN-наименования. Вот эти наименования я и пытаюсь собрать в оглавление. Номера страниц в оглавлении такие: на первой стр-це все номера 1, а на второй 2, хотя отчёт собирается правильно. Наименование, затем список, наименование, список и т.д. Все на разных страницах. Sergey Spirin пишет: цитата: Можете добавить: Добавил. Никакой реакции

Похоже, что вы неясно себе представляете, что такое "обработчик события". Для того чтобы создать обработчик, делайте например так:

Выделите мышкой, например ваш MasterData в основном отчете. Перейдите в инспектор объектов. Выберите вкладку Events (события). Напротив OnBeforePrint щелкните двойным щелчком в пустом Edit-е. Будет создан шаблон, типа:

procedure Band4OnBeforePrint(Sender: TfrxComponent);
begin

end;

В него уже и вписываете:

Engine.AddAnchor(<Customers."Company">); // таблица/поле из демо

Имеющий обработчик объект помечается красным треугольничком.

Если процедуру уже скопировали целиком, то нужно там же в инспекторе ее выбрать как обработчик события.

Аналогично с GroupHeader.

Понятно?

 Отправлено: 25.06.08 11:39. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Похоже, что вы неясно себе представляете, что такое "обработчик события".

Не буду лукавить, это действительно так. Поэтому заранее спасибо за терпение.
В отчёте всё подправил. Всё OK! Ура! И в демо примере тоже.
Спасибо!

 Отправлено: 01.07.08 23:57. Заголовок: Можно ли поправить

Придетальном рассмотрении отчёта все таки есть небольшие "но"
Во-первых, почему-то страница последней группы в содержании отображается как 0. В чём тут может быть дело?
Во-вторых, у меня для каждой группы есть название и шапка (заголовки колонок) для таблицы. Когда начинается группа, то печатается название и шапка и затем строки группы. Если группа длинная, то может перейти на следующую страницу. Но, к сожалению, мне не удалось сделать так, чтобы шапка печаталась на продолжении группы на новой странице. Например, когда использую свойство KeepTogether для бэнда GroupeHeader, то всё равно для больших групп шапка так и не печатается. Что тут можно сделать?

 Отправлено: 03.07.08 00:06. Заголовок: Во-первых, почему-то..

цитата:

Во-первых, почему-то страница последней группы в содержании отображается как 0. В чём тут может быть дело?

Не знаю, пришлите мне отчет, лучше с данными и кодом инициализации отчета.

цитата:

Во-вторых, у меня для каждой группы есть название и шапка (заголовки колонок) для таблицы. Когда начинается группа, то печатается название и шапка и затем строки группы. Если группа длинная, то может перейти на следующую страницу. Но, к сожалению, мне не удалось сделать так, чтобы шапка печаталась на продолжении группы на новой странице. Например, когда использую свойство KeepTogether для бэнда GroupeHeader, то всё равно для больших групп шапка так и не печатается. Что тут можно сделать?

Ну, если есть нетривиальное желание скрестить GroupHeader с PageHeader, то это надо обработать скриптом-напильником

Присылайте отчет, я посмотрю.

 Отправлено: 03.07.08 22:18. Заголовок: Выслал на ваш email!..

Выслал на ваш email!

 Отправлено: 04.07.08 01:24. Заголовок: Подскажите пожалуйст..

Подскажите пожалуйста, а могу ли я через FastReport печатать свои текстовые файлы OEM или WIN кодировки ?
Как можно сделать универсальный шаблон на все файлы ?

 Отправлено: 04.07.08 14:23. Заголовок: Andrey пишет: Подск..

Andrey пишет:

цитата:

Подскажите пожалуйста, а могу ли я через FastReport печатать свои текстовые файлы OEM или WIN кодировки ?

Почему нет?

Andrey пишет:

цитата:

Как можно сделать универсальный шаблон на все файлы ?

Кладете ReportTittle, на него мемо во всю ширину, оба чтоб были растягиваемыми. Вот, собственно, и все. Грузите теперь файлы в мемо.

 Отправлено: 04.07.08 14:25. Заголовок: TimTim пишет: Высла..

TimTim пишет:

цитата:

Выслал на ваш email!

Взаимно

 Отправлено: 16.07.08 23:09. Заголовок: Сергей обнаружил в F..

Сергей обнаружил в FastReport for [x]Harbour ошибку Accsess violation.
Порядок действий таков:
загружаю таблицу(не важно через Harbour или Dataset)
кидаю MacterData Band и на него пару полей
предворительный просмотр и export Text(matrix printer)
указываю 1 страничку,OEm и печать после экспорта,ввожу имя файла,выбираю тип принтера Epson и жму Ok
Превый раз все проходит хорошо.Но если это все проделать еще раз из окна просмотра появится ошибка.
И вдогонку еще один вопрос:
Dataset свойство есть у отчета,страницы и у бандов
если везде установить выдает ошибку типо нельзя так
Так зачем столько дублирующих свойств и где правильно его установить

 Отправлено: 17.07.08 10:08. Заголовок: viktorlvv пишет: Се..

viktorlvv пишет:

цитата:

Сергей обнаружил в FastReport for [x]Harbour ошибку Accsess violation. Порядок действий таков: загружаю таблицу(не важно через Harbour или Dataset) кидаю MacterData Band и на него пару полей предворительный просмотр и export Text(matrix printer) указываю 1 страничку,OEm и печать после экспорта,ввожу имя файла,выбираю тип принтера Epson и жму Ok Превый раз все проходит хорошо.Но если это все проделать еще раз из окна просмотра появится ошибка.

Ok. Попытаюсь повторить, если ошибка, то исправим


viktorlvv пишет:

цитата:

Dataset свойство есть у отчета,страницы и у бандов если везде установить выдает ошибку типо нельзя так Так зачем столько дублирующих свойств и где правильно его установить

В 99,9% случаев устанавливайте для бэндов. Для страницы и отчета - это для каких-то спецефичных отчетов, на вскидку уже не вспомню для каких.

 Отправлено: 17.07.08 11:24. Заголовок: еще хотел бы уточнит..

еще хотел бы уточнить насчет установки свойств экспорта
i=FrPrn:SetProperty("DotMatrixExport", "EscModel", 2)
i=FrPrn:SetProperty("DotMatrixExport", "OEMConvert", .t.)
вызываю до ShowReport
по возвращаемому значению видно что сработали но когда делаю экспорт остаются старые значения

 Отправлено: 17.07.08 16:58. Заголовок: viktorlvv пишет: Се..

viktorlvv пишет:

цитата:

Сергей обнаружил в FastReport for [x]Harbour ошибку Accsess violation. Порядок действий таков: загружаю таблицу(не важно через Harbour или Dataset)...........

Да. Повторяется. Ok, напишу в саппорт.

viktorlvv пишет:

цитата:

еще хотел бы уточнить насчет установки свойств экспорта i=FrPrn:SetProperty("DotMatrixExport", "EscModel", 2) i=FrPrn:SetProperty("DotMatrixExport", "OEMConvert", .t.) вызываю до ShowReport по возвращаемому значению видно что сработали но когда делаю экспорт остаются старые значения

Этот экспорт делает TXTExport, поэтому:

FrPrn:SetProperty("TXTExport", "OEMCodepage", .t.)

Вообще, свойства у него такие:

published
property ScaleWidth: Extended read expScaleX write expScaleX;
property ScaleHeight: Extended read expScaleY write expScaleY;
property Borders: Boolean read expBorders write expBorders;
property Pseudogrpahic: Boolean read expBordersGraph write expBordersGraph;
property PageBreaks: Boolean read expPageBreaks write expPageBreaks;
property OEMCodepage: Boolean read expOEM write expOEM;
property EmptyLines: Boolean read expEmptyLines write expEmptyLines;
property LeadSpaces: Boolean read expLeadSpaces write expLeadSpaces;
property PrintAfter: Boolean read expPrintAfter write expPrintAfter;
property PrinterDialog: Boolean read expPrinterDialog write expPrinterDialog;
property UseSavedProps: Boolean read expUseSavedProps write expUseSavedProps;
property InitString: String read PrinterInitString write PrinterInitString;
property CustomFrameSet: String read expCustomFrameSet write expCustomFrameSet;
end;

 Отправлено: 18.07.08 15:33. Заголовок: спасибо за помощь - ..

спасибо за помощь - это все работает
Остается вопрос как настроить второй диалог выбора матричного принтера и его настройка
FrPrn:SetProperty("TXTExport", "EscModel", 2)
это свойство не работает
Что означает переключатели внизу под выбранным принтером.Как будет печатать если я установлю птичку Bold(или сниму)
Как поисходит маштабирование по оси Y(по оси х понятно - за счет обрезания стоки,добавление пробелов)
при увеличении ( 120 ) выдает ошибку Accsess violation при уменьшении - пустую страницу

 Отправлено: 18.07.08 19:27. Заголовок: viktorlvv пишет: сп..

viktorlvv пишет:

цитата:

спасибо за помощь - это все работает Остается вопрос как настроить второй диалог выбора матричного принтера и его настройка FrPrn:SetProperty("TXTExport", "EscModel", 2) это свойство не работает

Во всех исходниках Fast-а, свойство "EscModel" имеет только DotMatrixExport.

viktorlvv пишет:

цитата:

Что означает переключатели внизу под выбранным принтером.Как будет печатать если я установлю птичку Bold(или сниму) Как поисходит маштабирование по оси Y(по оси х понятно - за счет обрезания стоки,добавление пробелов) при увеличении ( 120 ) выдает ошибку Accsess violation при уменьшении - пустую страницу

С матричной проблематикой я Вам ничем не помогу. Однако, мне кажется, что вы пошли неверным путем. Если Вам нужны матричные отчеты, то и создавайте матричные отчеты. Это Меню Файл-> Новый->Пустой матричный отчет. В этом отчете все для для матрицы у вас будет.

С просто же экспортом вы "далеко не уедете". Экспорт вам ничего не гарантирует, это просто экспорт с понятными потерями и накладками при преобразованиях графики в текст.

При Accsess violation можете сразу писать в саппорт FastReport. Такие ошибки правяться быстро.

 Отправлено: 18.07.08 22:25. Заголовок: саппорт FastReport э..

саппорт FastReport это куда ?
В англоязызную поддержху? Попробуй им изложить суть проблемы на моем ломаном англиском
А Вы разве не в ходите в группу поддержки?
Сам продукт не плох.javascript:pst3(' ','','','','')
Есть маленькие недоработки.
В данном случае просто иногда надо вывести нормальный отчет бысто на матричный принтер
понятно что с потерями но ВЫВЕСТИ!И причем хочется управлять этим процессом программо
А я так не не понял как.TXTExport работает наполовину DotMatrixExport вобже не работает
Сергей посодействуйте и зделайте так чтоб продукт работак так как заложили проэктировщики

 Отправлено: 18.07.08 22:45. Заголовок: и еще не понятен для..

и еще не понятен для чего нужен диалог согранения файла если мне надо вывести отчет на печать?

 Отправлено: 19.07.08 00:08. Заголовок: viktorlvv пишет: са..

viktorlvv пишет:

цитата:

саппорт FastReport это куда ? В англоязызную поддержху? Попробуй им изложить суть проблемы на моем ломаном англиском А Вы разве не в ходите в группу поддержки?

Ах, да, саппорт работает только для купивших. Насчет же ломанного английского откуда такие представления? Ответ тоже не на чистейшем получите У всей поддержки родной язык - русский.

Fast Reports Inc, абсолютно российская компания из Ростова-на-Дону, все в ней работающие - русские Даже в эбауте стоит в первую очередь копирайт Саши Цыганенко, исторического автора FR, одного из лучших Дельфистов страны. Иностранцы (Горд, Херберт и Коул (те кого я знаю)) работают только на поддержке в англоязычных конфах.

Я - OEM-партнер FastReport, моя зона ответственности Alaska и Harbour, что там в матрице, конечно, я и не знаю.

viktorlvv пишет:

цитата:

Сам продукт не плох.javascript:pst3(' ','','','','') Есть маленькие недоработки. В данном случае просто иногда надо вывести нормальный отчет бысто на матричный принтер понятно что с потерями но ВЫВЕСТИ!И причем хочется управлять этим процессом программо А я так не не понял как.TXTExport работает наполовину DotMatrixExport вобже не работает Сергей посодействуйте и зделайте так чтоб продукт работак так как заложили проэктировщики

За продукт - спасибо

DotMatrixExport - это печать именно матричного отчета. Почему печать такого отчета назвали экспортом не знаю, но догадываюсь :)

Ok, на досуге продебажу этот экспорт и посмотрю, что там к чему.

viktorlvv пишет:

цитата:

и еще не понятен для чего нужен диалог согранения файла если мне надо вывести отчет на печать?

Потому что это экспорт в файл в первую очередь, потом уже кому-то пришло в голову печатать это на матрицу.

 Отправлено: 19.07.08 10:02. Заголовок: Я и не сомневался чт..

Я и не сомневался что у вас профи работают :)
Вот и хочу чтоб исправили эту маленькую недоработку с экспортом
Причем думаю что для Делфи и С этих проблем нет
есть только для Харбор потому что недавно сделали

 Отправлено: 19.07.08 11:03. Заголовок: viktorlvv пишет: Во..

viktorlvv пишет:

цитата:

Вот и хочу чтоб исправили эту маленькую недоработку с экспортом Причем думаю что для Делфи и С этих проблем нет есть только для Харбор потому что недавно сделали

Нет, это невозможно, код FastReport VCL у меня компилируется без единого исправления. Мой код - это код взаимодействия с Харбором. Так что баг существует везде, просто этот экспорт редко реально используется.

Ok. Про Accsess violation я в саппорт кинул. Как выставить тип принтера программно для этого диалога посмотрю.

 Отправлено: 19.07.08 18:15. Заголовок: Спасибо Сергей.Отпиш..

Спасибо Сергей.Отпишись пожалуста когда профиксят

 Отправлено: 06.08.08 12:19. Заголовок: C 6-го по 25-е авгус..

C 6-го по 25-е августа буду в отпуске. В это время продажи и обновления персональных копий FRH производиться не будут.

Но, надеюсь, что просматривать конфы буду регулярно.

--
Спирин Сергей.

 Отправлено: 17.08.08 23:36. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:
Кстати можно обсудить набор наиболее используемых функций и я добавлю их в FRH, чтобы не добавлять кодом.

Sergey Spirin пишет:

цитата:
По умолчанию же, думаю, можно добавить не более десятка наиболее часто используемых. С этим десятком нужно определиться.


Определяемся:
ALLTRIM()
PADC()
PADL()
PADR()
TRANSFORM()
MEMOTRAN()
MEMOLINE()
DTOC()
STR()
VAL()
IIF()
CHR()


Когда будет это сделано ???
Начал переделывать отчеты и затык.... слишком уж часто пользуюсь стандартными функциями !!!
Я думаю, что и другие тоже пользуются этим....

 Отправлено: 21.08.08 23:12. Заголовок: И еще один вопрос: К..

И еще один вопрос:
Как сделать отчет только из одной текущей записи в БД ?
Где и как указать что печатать только одну запись ?
Приятного отдыха ....

 Отправлено: 13.09.08 10:50. Заголовок: Здравствуйте, Андрей..

Здравствуйте, Андрей,

Andrey пишет:

цитата:

Определяемся: ALLTRIM() PADC() PADL() PADR() TRANSFORM() MEMOTRAN() MEMOLINE() DTOC() STR() VAL() IIF() CHR()

Дело в том, что добавить все эти функции большого труда не составляет, поэтому многие пользователи уже это себе добавили. Получается ситуация, что если я это добавлю прямо в поставку, я просто много задублирую. Поэтому я не стал этого делать. В принципе, можно будет сделать просто дополнительный пример.....

Andrey пишет:

цитата:

И еще один вопрос: Как сделать отчет только из одной текущей записи в БД ? Где и как указать что печатать только одну запись ?

Смотрите четвертый параметр в SetWorkArea, либо RangeXXX-свойства в frxHarbourWorkArea.

 Отправлено: 13.09.08 11:04. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

поэтому многие пользователи уже это себе добавили.

И кто-же добавил ?
Очень в этом сомневаюсь. Лучше иметь в единной (от вас) поставке ...
Кто против добавления ??? Давайте сообщайте здесь.....

 Отправлено: 15.09.08 23:12. Заголовок: Andrey пишет: И кто..

Andrey пишет:

цитата:

И кто-же добавил ? Очень в этом сомневаюсь. Лучше иметь в единной (от вас) поставке ... Кто против добавления ??? Давайте сообщайте здесь.....

Андрей, русскоязычных пользователей всего 6 (4 изначальных + 2-ое купивших). Ясно же, что я говорю про испанцев с португальцами (основная масса). Многие добавляют, почему нет? Да чего там сложного? Вы же уже сами свои функции добавляли же. Дел то. Если что-то не получается - спрашивайте.

 Отправлено: 16.09.08 16:33. Заголовок: Подскажите пожалуйст..

Подскажите пожалуйста, как сделать свою функцию по добавлению след.
переменных и функций:

Не буду же я всегда писать один и тот же код во многих местах....

//-------- add XBase++ vars to FastReport ---------------------
FrPrn:AddVariable( "My Lovely Vars", "MyPathRes", "'"+myPathRes+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyFirma" , "'"+MyFirma+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyAdres" , "'"+MyAdres+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyTelefon", "'"+MyTelefon+"'" )
FrPrn:AddVariable( "My Lovely Vars", "MyNumba" , MyNumba )
FrPrn:AddVariable( "My Lovely Vars", "MyLogoFirma", "'"+MyLogoFirma+"'" )
..... и еще куча переменных
FrPrn:SetEventHandler( "Report", "OnUserFunction", { | FName, FParams | CallUserFunction( FName, FParams ) } )
FrPrn:AddFunction( "function XBaseStr(nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant", ;
"My Lovely Functions!", "It's a XBase Str() function!" )
FrPrn:AddFunction( "function Say_Sel_Dim(nKod: Variant; cAlias: String ; cPole: String; lAnsi: Boolean ): String", ;
"My Lovely Functions!", "Samle: Say_Sel_Dim(<BASE.chr(34)+POLE+chr(34)>,'City','City',.T.)" )

Будет ли работать этот код ?

Function MyFastReport()
Private FrPrn

//----------- Now load and init FastReport --------------------------------------
FrPrn:= frReportManager():new()
FrPrn:SetIcon( "FASTREP_ICO" )
FrPrn:SetTitle( cTitle + cFileForm )
.......

FrPrn := MyAddVar_AddFun()
...... далее текст программы


RETURN NIL
///////////////////////////////
FUNCTION MyAddVar_AddFun()
LOCAL aPrn := {}
aPrn:AddVariable( "My Lovely Vars", "MyPathRes", "'"+myPathRes+"'" )
aPrn:AddVariable( "My Lovely Vars", "MyFirma" , "'"+MyFirma+"'" )
aPrn:AddVariable( "My Lovely Vars", "MyAdres" , "'"+MyAdres+"'" )
.......... ..... и еще куча переменных
aPrn:SetEventHandler( "Report", "OnUserFunction", { | FName, FParams | CallUserFunction( FName, FParams ) } )
aPrn:AddFunction( "function XBaseStr(nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant", ;
"My Lovely Functions!", "It's a XBase Str() function!" )
RETURN aPrn

 Отправлено: 16.09.08 19:26. Заголовок: Andrey пишет: Будет..

Andrey пишет:

цитата:

Будет ли работать этот код ? Function MyFastReport() Private FrPrn //----------- Now load and init FastReport -------------------------------------- FrPrn:= frReportManager():new() FrPrn:SetIcon( "FASTREP_ICO" ) FrPrn:SetTitle( cTitle + cFileForm ) ....... FrPrn := MyAddVar_AddFun() ...... далее текст программы RETURN NIL /////////////////////////////// FUNCTION MyAddVar_AddFun() LOCAL aPrn := {} aPrn:AddVariable( "My Lovely Vars", "MyPathRes", "'"+myPathRes+"'" ) aPrn:AddVariable( "My Lovely Vars", "MyFirma" , "'"+MyFirma+"'" ) aPrn:AddVariable( "My Lovely Vars", "MyAdres" , "'"+MyAdres+"'" ) .......... ..... и еще куча переменных aPrn:SetEventHandler( "Report", "OnUserFunction", { | FName, FParams | CallUserFunction( FName, FParams ) } ) aPrn:AddFunction( "function XBaseStr(nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant", ; "My Lovely Functions!", "It's a XBase Str() function!" ) RETURN aPrn

Круто Сами то не попробовали?

Конечно, такое работать не будет, делайте так:

...
FrPrn:= frReportManager():new()
InitFR(FrPrn)
...

FUNCTION InitFr(oFrMng)

oFrMng:SetIcon( "FASTREP_ICO" )
oFrMng:AddVariable( "My Lovely Vars", "MyPathRes", "'"+myPathRes+"'" )
.........................

RETURN nil

 Отправлено: 16.09.08 20:08. Заголовок: Спасибо !!! :sm12: ..

Спасибо !!!

Но здесь есть одно но ! Объявление переменных должны идти после загрузки формы !
Это вы писали.....

InitFr(@FrPrn) // @ - ссылка на объект для изменения его внутри вызываемой функции
//----------- Load file form FastReport ----------------------
FrPrn:LoadFromFile( cFileForm )

InitFrVars(@FrPrn) ???
----------------------
Сделал ! Работает ....

Только одну вещь подметил, что Public переменные "затолкнутые" в форму FastReport сохраняются там навсегда. И в принципе их потом можно не "заталкивать" !!!

 Отправлено: 16.09.08 20:13. Заголовок: Можно ли выборку по ..

Можно ли выборку по базе "возложить" на FastReport ?


Типа мне нужно по открытой базе (30 000 записей) по уже готовой выборке (по индексному файлу)
распечатать в FastReport'e эту выборку, но с еще доп.условием типа: FIELD->SummDolg < -10 !

Какой код получиться ???

 Отправлено: 16.09.08 23:04. Заголовок: Andrey пишет: Спаси..

Andrey пишет:

цитата:

Спасибо !!! Но здесь есть одно но ! Объявление переменных должны идти после загрузки формы ! Это вы писали..... InitFr(@FrPrn) // @ - ссылка на объект для изменения его внутри вызываемой функции //----------- Load file form FastReport ---------------------- FrPrn:LoadFromFile( cFileForm ) InitFrVars(@FrPrn) ??? ---------------------- Сделал ! Работает ....

Можно и со второй InitFrVars(), а можно FUNCTION InitFr(oFrMng, сFileName) и т.д. Это уж как вам удобно.

Кстати @ - не нужен. Объект - это уже указатель, писать указатель на указатель (ссылку на ссылку) это на микроны затормозить. Хотя, может в Харбуре и есть специфика, я сужу по Pascal/С.

Andrey пишет:

цитата:

Только одну вещь подметил, что Public переменные "затолкнутые" в форму FastReport сохраняются там навсегда. И в принципе их потом можно не "заталкивать" !!!

Нет, плохо подметили. В отчете сохраняются переменные и их значения на момент дизайна. Без AddVariable() будете видеть все время их.

Andrey пишет:

цитата:

Можно ли выборку по базе "возложить" на FastReport ? Типа мне нужно по открытой базе (30 000 записей) по уже готовой выборке (по индексному файлу) распечатать в FastReport'e эту выборку, но с еще доп.условием типа: FIELD->SummDolg < -10 ! Какой код получиться ???

Можно:

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
MasterData1.Visible := <Customers."CUSTNO"> = 1354;
end;

 Отправлено: 17.09.08 00:10. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

MasterData1.Visible := <Customers."CUSTNO"> = 1354;

А с моим условием можете написать ?
Я не силен в паскале....

1) Вопрос: Мне нужно из Харбора в паскаль перевести такое выражение:
( ( FIELD->KTarif == 1 .OR. FIELD->KTarif == 4) .AND. FIELD->DOLG_2008 < -150 ) .OR. ( FIELD->KTarif == 2 .AND. FIELD->DOLG_2008 < -30 )

2) Вопрос:
Я бы это условие затолкал бы в Public переменную и передавал бы в "Фаст".
А как тогда будет выглядеть это УСЛОВИЕ в Фасте ?

Третий день бодаюсь с Фастом, не могу заставить печатать....
Уже сделал отдельный пример, вышлю вам на ящик наверно...

 Отправлено: 17.09.08 00:35. Заголовок: Andrey пишет: А с м..

Andrey пишет:

цитата:

А с моим условием можете написать ? Я не силен в паскале....

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
MasterData1.Visible := <MyTable."SummDolg"> < -10;
end;

Andrey пишет:

цитата:

1) Вопрос: Мне нужно из Харбора в паскаль перевести такое выражение: ( ( FIELD->KTarif == 1 .OR. FIELD->KTarif == 4) .AND. FIELD->DOLG_2008 < -150 ) .OR. ( FIELD->KTarif == 2 .AND. FIELD->DOLG_2008 < -30 )

((( <MyTable."KTarif"> = 1) or (<MyTable."KTarif"> = 4)) and (<MyTable."DOLG_2008"> < -150)) or ((<MyTable."KTarif"> = 2) and (<MyTable."DOLG_2008"> < -30))

and, or, xor, not являются также побитовыми операторами, поэтому например:

(1 or 2 = 3) - это нормальное выражение,

поэтому, при "перемешке" с =, <,> и т.д.нужны скобки

Andrey пишет:

цитата:

2) Вопрос: Я бы это условие затолкал бы в Public переменную и передавал бы в "Фаст". А как тогда будет выглядеть это УСЛОВИЕ в Фасте ?

MasterData1.Visible := EvalMacro(GetHbVar('MyVar'));