Отправлено: 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.12.08 11:24. Заголовок: Не понятно ! Наверно..

Не понятно !
Наверно нужно уточнить задачу.
Привожу картинку отчета.



Сделал как вы рекомендовали:
procedure ReportHOnStartReport(Sender: TfrxComponent);
begin
Memo37.DataField := GetHbVar('cPolePrn');
Memo38.DataField := GetHbVar('cPolePrix');
end;


1 - (А) Memo37 ---> Что там вводить нужно [DOGOVOR."????"] ?
2 - (А) Memo38 ---> Аналогично ?
3 - (А) Memo39 ---> равно Поле (1) минус Поле (2)
4 - Итог [SUM(Memo37.Value,ReportSummary1)] - возвращает 0, на Band4 -ругается !
5 - Тоже нужен итог Memo38
6 - просто разница между 4 и 5 !

Заранее спасибо.

 Отправлено: 13.12.08 16:39. Заголовок: Andrey пишет: 1 - (..

Andrey пишет:

цитата:

1 - (А) Memo37 ---> Что там вводить нужно [DOGOVOR."????"] ? 2 - (А) Memo38 ---> Аналогично ?

Нужно ввести волшебное слово, например "пожалуйста" Шучу, чтобы там не было написано, при DatsSet = DOGOVOR, любое изменение DataField правильно изменит содержимое. Потренеруйтесь в дизайнере. Меняйте свойство DataField и смотрите как меняется текст в мемо.

Andrey пишет:

цитата:

3 - (А) Memo39 ---> равно Поле (1) минус Поле (2)

Не поверите, но это будет :

[Memo37.Value - Memo38.Value]

Andrey пишет:

цитата:

4 - Итог [SUM(Memo37.Value,ReportSummary1)] - возвращает 0, на Band4 -ругается !

Придется произвести легкое интеллектуальное усилие. Так, "на Band4 -ругается", почему бы это? A! Наверное потому, что никакого Band4 в моем отчете нет! Он просто есть в каком-то другом отчете, из которого копировался пример.

Так, а "[SUM(Memo37.Value,ReportSummary1)]" - возвращает 0"... Выделим в дизайнере фунуцию SUM и прочитаем внизу:

"Возвращает сумму выражения Expr для бэнда Band".

Так, Expr у нас правильный, именно Memo37.Value нам и нужно суммировать, а вот когда нужно производить очередное прибавление значения? Похоже за это отвечает второй параметр - Band. То есть, при каждой печати этого бэнда будет к сумме добавляться текущее значение. А! А у нас же Memo37 лежит на MasterData1 и именно для него нам нужно считать сумму, значит:

[SUM(Memo37.Value, MasterData1)]

--

Надеюсь, с 5 и 6 вы справитесь самостоятельно, направление: "мышление по аналогии"

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

Sergey Spirin пишет:

цитата:

при DatsSet = DOGOVOR, любое изменение DataField правильно изменит содержимое.

Блин, я замучился искать эту штуку. Бился, бился, думал все... работать не будет ! А оказывается я на глобальный
DatsSet - Report поставил....
А потом все заработало !!!
Спасибо большое.....

 Отправлено: 04.01.09 14:43. Заголовок: Всех с наступившим Н..

Всех с наступившим Новым Годом !!!

Подскажите, как можно организовать отчет следующего типа:

[ABONENT."ADRES'']
УВАЖАЕМЫЙ АБОНЕНТ !
[MyFirmaBook] сообщает, что Ваша задолженность по оплате за техническое обслуживание дома составляет:
[ABONENT."DOLG_PRN"] руб. на [ABONENT."DATENACH"] г.
В случае неуплаты ДО [GetHbVar('cOplataDo')] г. вы будете ..... И т.д. ...........


Текст хотелось бы иметь как "Объект Rich Text". Это получилось.
Но при "просмотре отчета" нужна КНОПКА для редактирования текста пользователем или запрос на редактирование текста...
Это я не знаю как сделать.....

 Отправлено: 06.01.09 13:43. Заголовок: Andrey пишет: Текст..

Andrey пишет:

цитата:

Текст хотелось бы иметь как "Объект Rich Text". Это получилось. Но при "просмотре отчета" нужна КНОПКА для редактирования текста пользователем или запрос на редактирование текста... Это я не знаю как сделать.....

В предпросмотре уже есть такая кнопка, называется - "Редактировать страницу". Загружается дизайнер в режиме редактирования уже сформированного отчета. В чем проблема?

 Отправлено: 04.02.09 03:14. Заголовок: Всем привет ! Столк..

Всем привет !

Столкнулся с такой неприятной вещью !
При ЭКСПОРТЕ (предварительный просмотр) в другой формат (допустим WORD), при последующем выборе "Открыть после экспорта" выскакивает окно "Сохранить как". И вот путь этот для сохранения выскакивает ПЕРИОДИЧЕСКИ в папку, где лежат все формы !!!
Блин, как убрать этот путь, чтоб юзера не писали мне в ПАПКУ с формами ?

 Отправлено: 05.02.09 20:40. Заголовок: Andrey пишет: Блин,..

Andrey пишет:

цитата:

Блин, как убрать этот путь, чтоб юзера не писали мне в ПАПКУ с формами ?

Заглянуть в мануал и увидеть, что у всех экспортов есть проперть DefaultPath.

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

Sergey Spirin пишет:

цитата:

Заглянуть в мануал и увидеть, что у всех экспортов есть проперть DefaultPath.

Спасибо, забыл что есть документация....

 Отправлено: 06.03.09 19:41. Заголовок: Возвращаюсь опять к ..

Возвращаюсь опять к этому вопросу !

цитата:

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

Sergey Spirin пишет:

цитата:

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

Создал ReportTittle1, на него положил картинку, название фирмы, название отчета. Далее положил MEMO1 c выводом [GetHbVar('cFileMemo')]
Создал PageFooter1, для печати нумерации страниц.

Результат: ПОКАЗЫВАЕТ ТОЛЬКО ОДНУ СТРАНИЦУ !
Подскажите пожалуйста, где нужно сделать (свойства объектов) чтоб "оба были растягиваемыми" ?

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

Andrey пишет:

цитата:

Подскажите пожалуйста, где нужно сделать (свойства объектов) чтоб "оба были растягиваемыми" ?

Заветное слово в свойствах - Stretch. По правой кнопке мышы - "Растягиваемый".

 Отправлено: 17.03.09 00:12. Заголовок: Сделал.... Программ..

Сделал....
Программа уходит в АУТ ... где-то 1000 страниц и более ... даже не смог дождаться, на файле размером в 30 Кб.
Т.е. я считываю файл в переменную и вывожу на форме [GetHbVar('cFileMemo')]
На объекте PageHeader1 делаю свойства Stretch: True .....



И еще такой БАГ, если в тексте встречаются [ ], то выдает ОШИБКУ и отчет не показывается...

 Отправлено: 17.03.09 09:26. Заголовок: Andrey пишет: Прогр..

Andrey пишет:

цитата:

Программа уходит в АУТ ... где-то 1000 страниц и более ... даже не смог дождаться, на файле размером в 30 Кб.

О, господи. Ну хоть чуть-чуть подумать то, а? Я что-то говорил про PageHeader? Было бы забавно, если б смог дождаться PageHeader печатается на каждой странице. Грузим в него сожержимое, которое больше страницы. Инициализруется новая страница с PageHeader, в который грузим сожержимое, которое больше страницы и т. д. Есть шансы дождаться?

Andrey пишет:

цитата:

И еще такой БАГ, если в тексте встречаются [ ], то выдает ОШИБКУ и отчет не показывается...

Баги, Андрей, они явно в другом месте А в Фасте есть разделители выражений, по умолчанию [,]. Их можно переопределить, свойство - ExpressionDelimeters. В случае с файлом обработку выражений можно вообще отключить, что уберет ненужный парсинг, свойство AllowExpressions. А текст грузить:

procedure Memo2OnBeforePrint(Sender: TfrxComponent);
begin
Memo2.Text := GetHbVar('cFileMemo');
end;

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

Sergey Spirin пишет:

цитата:

Баги, Андрей, они явно в другом месте

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

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

Sergey Spirin пишет:

цитата:

А текст грузить: procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Text := GetHbVar('cFileMemo'); end;

Почему то не сработал ! Естественно ставил Memo1 - как объект у меня назван.
После длительных изысканий ..... нашел более простое решение !


А БАГ с [,] почему-то перестал существовать. Непонятно !


Большое СПАСИБО за помощь !
Пока кого-нибудь не спросишь, ответа - не найдешь, самое главное процесс ....

 Отправлено: 18.03.09 13:48. Заголовок: Для загрузки картинк..

Для загрузки картинки использую след. код:
procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
Picture1.Picture.LoadFromFile(GetHbVar('MyLogoFirma'));
end;

А как сделать загрузку Текстового файла ?
Сделал примерно так:
procedure Memo1OnBeforePrint(Sender: TfrxComponent);
begin
Memo1.Text.LoadFromFile(GetHbVar('MyFileTxt'));
end;
Ругается на синтаксис !
Где можно синтаксис посмотреть ?

 Отправлено: 22.03.09 18:22. Заголовок: Memo1.Memo.LoadFromF..

Memo1.Memo.LoadFromFile(....

Набрав имя объекта и напечатав точку, например Memo1., нажмите Ctrl+Пробел, вам будет предложен полный список всех вариантов, что может быть напечатано далее Да и, собственно, вкладка Classes, она не для красоты только существует, а еще для того, чтобы посмотреть списки свойств и методов.

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

Andrey пишет:
Блин, как убрать этот путь (по умолчанию), чтоб юзера не писали мне в ПАПКУ с формами ?

Sergey Spirin пишет:
Заглянуть в мануал и увидеть, что у всех экспортов есть проперть DefaultPath.


Что-то не совсем понятно ! На каждый экспорт нужно писать свой обработчик ?
Например:

FrPrn := frReportManager():new()
//---------- Init FastReport --------------
InitFr4(FrPrn,cFileForm)
//----------- Load file form FastReport -----------
FrPrn:LoadFromFile( cFileForm )
//---------- Init FastReport Vars and Function ----
InitFr4VarsFunc(FrPrn,cFileForm)

FrPrn:PrintOptions:SetShowDialog( .f. )
FrPrn:SetProperty( "PDFExport", "DefaultPath", cMyPathTemp )
FrPrn:SetProperty( "DOCExport", "DefaultPath", cMyPathTemp )
FrPrn:SetProperty( "RTFExport", "DefaultPath", cMyPathTemp )
..........
FrPrn:SetProperty( "PDFExport", "FileName", cMyNameFile )
FrPrn:SetProperty( "DOCExport", "FileName", cMyNameFile )
FrPrn:SetProperty( "RTFExport", "FileName", cMyNameFile )
...........

// А потом можно вызывать дизайнер или предпросмотр ?
IF nShowDesignReport == 1
FrPrn:ShowReport()
ELSE
FrPrn:DesignReport()
ENDIF

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


А можно без перечисления всех этих ОБЪЕКТОВ ? Нет ли какой-нибудь Глобального метода ?

 Отправлено: 02.04.09 19:45. Заголовок: Andrey пишет: А мож..

Andrey пишет:

цитата:

А можно без перечисления всех этих ОБЪЕКТОВ ? Нет ли какой-нибудь Глобального метода ?

Нет. Кладите такую инициализацию в Init-ы.

 Отправлено: 02.04.09 20:30. Заголовок: Понятно ! С этим раз..

Понятно ! С этим разобрались ...
А как сделать чтоб при экспорте не появлялось окошко с запросом сохранения и сделать запуск программы "Открыть после экспорта" ?

 Отправлено: 03.04.09 07:52. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как сделать чтоб при экспорте не появлялось окошко с запросом сохранения и сделать запуск программы "Открыть после экспорта" ?

Открыть любую дему, выбрать "Export Report", тыркать мышью и думать.