Автор | Сообщение |
|
| постоянный участник
|
Пост N: 129
Зарегистрирован: 25.12.07
|
|
Отправлено: 10.03.08 23:53. Заголовок: ANN: Вышел релиз FastReport for [x]Harbour
|
|
|
Ответов - 258
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
All
[только новые]
|
|
|
| постоянный участник
|
Пост N: 764
Зарегистрирован: 12.09.06
|
|
Отправлено: 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 ! Заранее спасибо.
|
|
|
|
| постоянный участник
|
Пост N: 231
Зарегистрирован: 25.12.07
|
|
Отправлено: 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 вы справитесь самостоятельно, направление: "мышление по аналогии"
|
|
|
|
| постоянный участник
|
Пост N: 765
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.12.08 23:27. Заголовок: Sergey Spirin пишет:..
Sergey Spirin пишет: цитата: | при DatsSet = DOGOVOR, любое изменение DataField правильно изменит содержимое. |
| Блин, я замучился искать эту штуку. Бился, бился, думал все... работать не будет ! А оказывается я на глобальный DatsSet - Report поставил.... А потом все заработало !!! Спасибо большое.....
|
|
|
|
| постоянный участник
|
Пост N: 769
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.01.09 14:43. Заголовок: Всех с наступившим Н..
Всех с наступившим Новым Годом !!! Подскажите, как можно организовать отчет следующего типа: [ABONENT."ADRES''] УВАЖАЕМЫЙ АБОНЕНТ ! [MyFirmaBook] сообщает, что Ваша задолженность по оплате за техническое обслуживание дома составляет: [ABONENT."DOLG_PRN"] руб. на [ABONENT."DATENACH"] г. В случае неуплаты ДО [GetHbVar('cOplataDo')] г. вы будете ..... И т.д. ........... Текст хотелось бы иметь как "Объект Rich Text". Это получилось. Но при "просмотре отчета" нужна КНОПКА для редактирования текста пользователем или запрос на редактирование текста... Это я не знаю как сделать.....
|
|
|
|
| постоянный участник
|
Пост N: 232
Зарегистрирован: 25.12.07
|
|
Отправлено: 06.01.09 13:43. Заголовок: Andrey пишет: Текст..
Andrey пишет: цитата: | Текст хотелось бы иметь как "Объект Rich Text". Это получилось. Но при "просмотре отчета" нужна КНОПКА для редактирования текста пользователем или запрос на редактирование текста... Это я не знаю как сделать..... |
| В предпросмотре уже есть такая кнопка, называется - "Редактировать страницу". Загружается дизайнер в режиме редактирования уже сформированного отчета. В чем проблема?
|
|
|
|
| постоянный участник
|
Пост N: 786
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.02.09 03:14. Заголовок: Всем привет ! Столк..
Всем привет ! Столкнулся с такой неприятной вещью ! При ЭКСПОРТЕ (предварительный просмотр) в другой формат (допустим WORD), при последующем выборе "Открыть после экспорта" выскакивает окно "Сохранить как". И вот путь этот для сохранения выскакивает ПЕРИОДИЧЕСКИ в папку, где лежат все формы !!! Блин, как убрать этот путь, чтоб юзера не писали мне в ПАПКУ с формами ?
|
|
|
|
| постоянный участник
|
Пост N: 233
Зарегистрирован: 25.12.07
|
|
Отправлено: 05.02.09 20:40. Заголовок: Andrey пишет: Блин,..
Andrey пишет: цитата: | Блин, как убрать этот путь, чтоб юзера не писали мне в ПАПКУ с формами ? |
| Заглянуть в мануал и увидеть, что у всех экспортов есть проперть DefaultPath.
|
|
|
|
| постоянный участник
|
Пост N: 787
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.02.09 21:54. Заголовок: Sergey Spirin пишет:..
Sergey Spirin пишет: цитата: | Заглянуть в мануал и увидеть, что у всех экспортов есть проперть DefaultPath. |
| Спасибо, забыл что есть документация....
|
|
|
|
| постоянный участник
|
Пост N: 807
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.03.09 19:41. Заголовок: Возвращаюсь опять к ..
Возвращаюсь опять к этому вопросу ! цитата: | Andrey пишет: цитата: Подскажите пожалуйста, а могу ли я через FastReport печатать свои текстовые файлы OEM или WIN кодировки ? |
|
Sergey Spirin пишет: цитата: | Кладете ReportTittle, на него мемо во всю ширину, оба чтоб были растягиваемыми. Вот, собственно, и все. Грузите теперь файлы в мемо. |
| Создал ReportTittle1, на него положил картинку, название фирмы, название отчета. Далее положил MEMO1 c выводом [GetHbVar('cFileMemo')] Создал PageFooter1, для печати нумерации страниц. Результат: ПОКАЗЫВАЕТ ТОЛЬКО ОДНУ СТРАНИЦУ ! Подскажите пожалуйста, где нужно сделать (свойства объектов) чтоб "оба были растягиваемыми" ?
|
|
|
|
| постоянный участник
|
Пост N: 234
Зарегистрирован: 25.12.07
|
|
Отправлено: 16.03.09 23:06. Заголовок: Andrey пишет: Подск..
Andrey пишет: цитата: | Подскажите пожалуйста, где нужно сделать (свойства объектов) чтоб "оба были растягиваемыми" ? |
| Заветное слово в свойствах - Stretch. По правой кнопке мышы - "Растягиваемый".
|
|
|
|
| постоянный участник
|
Пост N: 815
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.03.09 00:12. Заголовок: Сделал.... Программ..
Сделал.... Программа уходит в АУТ ... где-то 1000 страниц и более ... даже не смог дождаться, на файле размером в 30 Кб. Т.е. я считываю файл в переменную и вывожу на форме [GetHbVar('cFileMemo')] На объекте PageHeader1 делаю свойства Stretch: True ..... И еще такой БАГ, если в тексте встречаются [ ], то выдает ОШИБКУ и отчет не показывается...
|
|
|
|
|
| постоянный участник
|
Пост N: 236
Зарегистрирован: 25.12.07
|
|
Отправлено: 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;
|
|
|
|
| постоянный участник
|
Пост N: 816
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.03.09 20:55. Заголовок: Sergey Spirin пишет:..
Sergey Spirin пишет: цитата: | Баги, Андрей, они явно в другом месте |
| Ну конечно, баги всегда у пользователя, включая пользователей моих программ..... Что увидел, то и написал
|
|
|
|
| постоянный участник
|
Пост N: 817
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.03.09 00:45. Заголовок: Sergey Spirin пишет:..
Sergey Spirin пишет: цитата: | А текст грузить: procedure Memo2OnBeforePrint(Sender: TfrxComponent); begin Memo2.Text := GetHbVar('cFileMemo'); end; |
| Почему то не сработал ! Естественно ставил Memo1 - как объект у меня назван. После длительных изысканий ..... нашел более простое решение ! А БАГ с [,] почему-то перестал существовать. Непонятно ! Большое СПАСИБО за помощь ! Пока кого-нибудь не спросишь, ответа - не найдешь, самое главное процесс ....
|
|
|
|
| постоянный участник
|
Пост N: 818
Зарегистрирован: 12.09.06
|
|
Отправлено: 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; Ругается на синтаксис ! Где можно синтаксис посмотреть ?
|
|
|
|
| постоянный участник
|
Пост N: 238
Зарегистрирован: 25.12.07
|
|
Отправлено: 22.03.09 18:22. Заголовок: Memo1.Memo.LoadFromF..
Memo1.Memo.LoadFromFile(.... Набрав имя объекта и напечатав точку, например Memo1., нажмите Ctrl+Пробел, вам будет предложен полный список всех вариантов, что может быть напечатано далее Да и, собственно, вкладка Classes, она не для красоты только существует, а еще для того, чтобы посмотреть списки свойств и методов.
|
|
|
|
| постоянный участник
|
Пост N: 819
Зарегистрирован: 12.09.06
|
|
Отправлено: 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() А можно без перечисления всех этих ОБЪЕКТОВ ? Нет ли какой-нибудь Глобального метода ?
|
|
|
|
| постоянный участник
|
Пост N: 240
Зарегистрирован: 25.12.07
|
|
Отправлено: 02.04.09 19:45. Заголовок: Andrey пишет: А мож..
Andrey пишет: цитата: | А можно без перечисления всех этих ОБЪЕКТОВ ? Нет ли какой-нибудь Глобального метода ? |
| Нет. Кладите такую инициализацию в Init-ы.
|
|
|
|
| постоянный участник
|
Пост N: 826
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.04.09 20:30. Заголовок: Понятно ! С этим раз..
Понятно ! С этим разобрались ... А как сделать чтоб при экспорте не появлялось окошко с запросом сохранения и сделать запуск программы "Открыть после экспорта" ?
|
|
|
|
| постоянный участник
|
Пост N: 241
Зарегистрирован: 25.12.07
|
|
Отправлено: 03.04.09 07:52. Заголовок: Andrey пишет: А как..
Andrey пишет: цитата: | А как сделать чтоб при экспорте не появлялось окошко с запросом сохранения и сделать запуск программы "Открыть после экспорта" ? |
| Открыть любую дему, выбрать "Export Report", тыркать мышью и думать.
|
|
|
Ответов - 258
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
All
[только новые]
|
|