Отправлено: 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

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

Sergey Spirin пишет:

цитата:

если вы хотите работать только по алиасу, то всегда обнуляйте WorkArea, ставьте 0

Да. Так все нормально. Большое спасибо.

цитата:

При отдавании приоритета алиасу надо не забыть обнулить WorkArea.

Теперь буду помнить...

 Отправлено: 25.03.10 01:32. Заголовок: Сделал я "мастер..

Сделал я "мастер-детальную связь" !
Работает нормально ! Можно посмотреть "пример 1".

Начал дальше развивать эту тему, но столкнулся с проблемой: Пример 2 - не работает "мастер-детальная связь"
Делаю также как и в Примере 1, а он все равно не работает....

По NN=2048 (это первый адрес - красный цветом, База Мастер) выскакивают все записи базы-деталь (синяя NN - первая строчка) !
Итак по всей Мастер-базе...


Разъясните мне пожалуйста в чем тут дело ?
Ссылка для скачки демо-примера: http://files.mail.ru/G9W6H8

 Отправлено: 25.03.10 13:53. Заголовок: Andrey пишет: По NN..

Andrey пишет:

цитата:

По NN=2048 (это первый адрес - красный цветом, База Мастер) выскакивают все записи базы-деталь (синяя NN - первая строчка) ! Итак по всей Мастер-базе...

Компилить ваш пример я не буду. Поэтому пойдем последовательно. Во-первых, для начала, уберем все лишнее.

// Установить СВЯЗЬ БД-Мастер с БД-Деталь по полю
SELECT BASE_TITLE
SET RELATION TO NN INTO BASE_ROOMS

Это что? Зачем? Думаю, что RELATION вполне может конфликтовать с Мастер-Детэйл. Убрать! Далее:

M->FrPrn:SetMasterDetail( aMasterDetail[nI,1], aMasterDetail[nI,2], aMasterDetail[nI,3] )
//? nI, aMasterDetail[nI,1], aMasterDetail[nI,2], Valtype(aMasterDetail[nI,3]),
M->FrPrn:SetResyncPair( aMasterDetail[nI,1], aMasterDetail[nI,2] )

Это что за SetResyncPair()? Ну я же в прошлых постах говорил, что SetResyncPair НЕ НУЖЕН при MasterDetail.

Убираем, смотрим.

-----

Ну и главное, поймите, что такое MasterDetail, не вообще, а как реализовано. MasterDetail - это отношение, при котором любое изменение текущей записи Master-таблицы приводит к вызову такого кода для Detail-таблицы:

DbSetScope(soScope_Both, Результат переданного блока кода)

То есть, идет вызов чисто Харбурной функции.

Ваша задача понять, почему, собственно, Scope не устанавливается.

 Отправлено: 26.03.10 01:07. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Это что за SetResyncPair()? Ну я же в прошлых постах говорил, что SetResyncPair НЕ НУЖЕН при MasterDetail.

Это случайно осталось.... Убрал раньше.

Учел ваши замечания ! Все равно не работает !

Sergey Spirin пишет:

цитата:

Ваша задача понять, почему, собственно, Scope не устанавливается.

Я так и не понял, почему этот Scope не устанавливается ....

 Отправлено: 26.03.10 09:30. Заголовок: Andrey пишет:  цита..

Andrey пишет:

цитата:

цитата: Это что за SetResyncPair()? Ну я же в прошлых постах говорил, что SetResyncPair НЕ НУЖЕН при MasterDetail. Это случайно осталось.... Убрал раньше.

А relation убрали?

Andrey пишет:

цитата:

Учел ваши замечания ! Все равно не работает ! Что-то хХарбор "барохлит" ... Как мне подсказал знакомый Дельфист: У тебя, всё-таки, внутри харбора не установлена мастер-детальная связь я добавил событие отсеивающее ненужные записи: procedure DetailData1OnBeforePrint(Sender: TfrxComponent);

Не надо ничего выдумывать со знакомым дельфистом!!!

Master-Detail для фаста устанавливается методом :SetMasterDetail(). Все, точка. Если не работает, то надо разбираться почему, а не выдумывать.

Придуманная же фильтрация может быть накладна на больших объемах.

Andrey пишет:

цитата:

Я так и не понял, почему этот Scope не устанавливается ....

Так, добавьте в пример bat-ник, чтобы я мог его компилировать и я разберусь, в чем там у вас дело. Жду.

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

Sergey Spirin пишет:

цитата:

А relation убрали?

Убрал конечно ! Все ваши рекомендации выполнил. Не работает.

Sergey Spirin пишет:

цитата:

Так, добавьте в пример bat-ник, чтобы я мог его компилировать и я разберусь, в чем там у вас дело. Жду.

Bat-ник уже есть в проекте. Запуск
С:\xHarbour\bin\hbmake Frx-Dbase.bc , т.е. Харборовская утилита hbmake.exe сама проверяет и компилирует этот проект.

 Отправлено: 26.03.10 18:34. Заголовок: Andrey пишет: Bat-н..

Andrey пишет:

цитата:

Bat-ник уже есть в проекте. Запуск С:\xHarbour\bin\hbmake Frx-Dbase.bc ,

Угу. Кроме того что path надо прописывать, еще терминалы какие-то Я в этих терминалах как ...

C:\Borland\BCC55\BIN\ilink32 @makefile.lnk
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Fatal: Unable to open file 'WVTGUI.LIB'

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

Sergey Spirin пишет:

цитата:

Угу. Кроме того что path надо прописывать, еще терминалы какие-то

Извиняюсь, не учел этого. Это по терминологии Аляски - гибридный терминал. Собирается дополнительно из CONTRIB'ов...
Удалил и переделал на стандартный...

Ссылка для скачивания:
http://files.mail.ru/N4KZC3

 Отправлено: 27.03.10 10:16. Заголовок: Гм... Пересобрал, ни..

Гм... Пересобрал, ничего не менял, все работает без единого изменения


Что делать будем?

 Отправлено: 27.03.10 10:59. Заголовок: Ан нет, это у вас фи..

Ан нет, это у вас фильтр не удален в отчете..... Счас буду смотреть.

 Отправлено: 27.03.10 11:27. Заголовок: Фу, Андрей, ну надо ..

Фу, Андрей, ну надо же быть внимательным, елы-палы!!!!!!

USE HOUSES\Rooms ALIAS BASE_ROOMS NEW
AADD( aAlias , ALIAS() ) ; AADD( aSelect , SELECT() ) // Добавить в массив для иниц. в FastReport

И

// Мастер-детальная связь для FastReport
AADD( aMasterDetail, { "BASE_TITLE", "BASE_ROOM", {||BASE_TITLE->NN} } )

Сиди тут, опечатки ищи под дебаггером

Ясно, что фаст просто не нашел детальную таблицу, надо:

AADD( aMasterDetail, { "BASE_TITLE", "BASE_ROOMS", {||BASE_TITLE->NN} } )


Давайте, внимательней! А то, из-за банальных опечаток рождаются фантазии с другом дельфистом

 Отправлено: 27.03.10 14:15. Заголовок: Кстати, если бы вы з..

Кстати, если бы вы заглянули в FastRepH.prg, то увидели бы, что метод :SetMasterDetail() возвращает True-False успешности действия. В вашем случае он честно возвращал False "в никуда" Поэтому может имеет смысл вам написать так:

IF M->FrPrn:SetMasterDetail( aMasterDetail[nI,1], aMasterDetail[nI,2], aMasterDetail[nI,3] ) == .f. 
     Alert("Проверь правильность написания мастера и детали, то что они не равны друг другу, и то что они были уже добавлены методом SetWorkArea") 
 ENDIF

Ну, а другу дельфисту поясните, что между, собственно, Фастом и Харбур-приложением написано достаточно много моего кода. Иначе бы они друг друга никак не поняли бы. В этот код входит и дельфийский харбур-датасет, эти датасеты фаст и принимает, и ему абсолютно все равно откуда эти датасеты "притащили" данные, из Харбур-приложения ли, или с сервера Oracle, например. Это несколько отличается от клипперного RDD-понимания, но суть та же, только универсальней и шире. В сторону Харбор-приложения датасет работает только харборными методами и реализует все необходимое для работы с данными, в том числе стандартную для Дельфи связь Master-Detail.

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

Sergey Spirin пишет:

цитата:

Фу, Андрей, ну надо же быть внимательным, елы-палы!!!!!!

Каюсь... Ну что поделаешь, такие вещи встречается иногда...
Причем как не заработал код в моей большой системе, так этот код перетащил в отдельный пример.
Так эту же ошибку перетащил тоже...
В следующий раз буду внимательней !

Sergey Spirin пишет:

цитата:

SetMasterDetail() возвращает True-False успешности действия.

А за это спасибо тоже, учту и применю у себя.

 Отправлено: 28.03.10 13:15. Заголовок: Спасибо большое ! С ..

Спасибо большое ! С меня коньяк ! Где пересечемся ?

 Отправлено: 28.03.10 15:36. Заголовок: Наконец-то, после се..

Наконец-то, после серьёзного разговора с шефом, дошли-таки до необходимости покупки FastReport. Пока гоняю тестовую версию. На MINIGUI Extended она залинковалась, а вот на OOHG почему-то ведёт себя очень странно:

 
 fastreph.prg: In function HB_FUN_CALL_FUNC_CICCCCCCCC_I 
 fastreph.prg:173: warning: passing arg1 of pointer to fucntion discards qualifiers from pointer target type 
 

Подскажите, пожалуйста, в чём может быть проблема?

 Отправлено: 29.03.10 11:53. Заголовок: Andrey пишет: Спаси..

Andrey пишет:

цитата:

Спасибо большое ! С меня коньяк ! Где пересечемся ?

Ну, может, когда и пересечемся. Я в Москве живу

 Отправлено: 29.03.10 12:09. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

fastreph.prg: In function HB_FUN_CALL_FUNC_CICCCCCCCC_I fastreph.prg:173: warning: passing arg1 of pointer to fucntion discards qualifiers from pointer target type Подскажите, пожалуйста, в чём может быть проблема?

Разные компиляторы, наверное. Только Варнинги? Ошибок нет? Собирается, работает?

 Отправлено: 29.03.10 13:48. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Я в Москве живу

Да я тоже рядом, в ближнем Подмосковье ! В спальном районе Москвы.
Несколько раз за месяц езжу в Москву. Так что можно пересечься ....

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

Sergey Spirin пишет:

цитата:

Разные компиляторы, наверное. Только Варнинги? Ошибок нет? Собирается, работает?

Собираться-то оно собирается, даже дизайнер вылазит. Но почему-то ни одной строчки в отчётах.

 Отправлено: 30.03.10 12:16. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Собираться-то оно собирается, даже дизайнер вылазит. Но почему-то ни одной строчки в отчётах.

Ok. Так, какой там Харбур/хХарбур используется, какой С компилятор? Ну, и где эту штуку можно скачать, дайте ссылку.

 Отправлено: 30.03.10 18:04. Заголовок: Качать отсюда FastRe..

Качать отсюда FastReport for Harbour

Используется последняя версия OOHG, самый последний Харбор и компилятор MinGW 5.1.06

 Отправлено: 30.03.10 18:31. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Качать отсюда FastReport for Harbour

Э... Ну фаст то у меня есть

Dr. Oldwarez пишет:

цитата:

Используется последняя версия OOHG, самый последний Харбор и компилятор MinGW 5.1.06

Меня интересует откуда это качать - OOHG с MinGW 5.1.06

 Отправлено: 30.03.10 19:37. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Используется последняя версия OOHG, самый последний Харбор и компилятор MinGW 5.1.06

Очень условное понятие "последняя версия". Самый последний Харбор - ото официальный релиз или код с SVN?
Компилятор MinGW 5.1.06 - такого еще нет. 5.1.16 - это не версия компилятора. Скорее всего у вас установлен gcc версии 3.4.5
Для определения версии пользуйтесь
harbour -build
gcc -v

 Отправлено: 30.03.10 22:31. Заголовок: Приветствую ! Это оп..

Приветствую ! Это опять я с предыдущим отчетом....
Как можно сделать, чтоб АДРЕС и СПИСОК КВАРТИР не разрывались ?

 Отправлено: 31.03.10 08:49. Заголовок: Andrey пишет: Как м..

Andrey пишет:

цитата:

Как можно сделать, чтоб АДРЕС и СПИСОК КВАРТИР не разрывались ?

У бэндов мастера и детали поставьте свойство KeepTogerther в True. KeepTogerther - по русски это "держаться вместе".

 Отправлено: 31.03.10 11:07. Заголовок: Итак: Harbour 2.1.0 ..

Итак: Harbour 2.1.0 build 14130 gcc 3.4.5

Попробовал я перейти на ноутбук с Borland Console Compiler и xHarbour. И, о, чудо! Это заработало!!!

Так, что виноват, судя по всему MINGW. А компьютер придётся пока сменить, потому что на нём Borland выдаёт какие-то криптические LME279 LME347. На ноутбуке же тот же Builder работает и не глючит!

 Отправлено: 31.03.10 11:32. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Итак: Harbour 2.1.0 build 14130 gcc 3.4.5

Скачал с "sourceforge.net/projects/oohg", развернул у меня дает:

Harbour Build Info
---------------------------
Version: Harbour 2.0.0beta3 (Rev. 12452)
Compiler: MinGW GNU C 3.4.5 (32-bit)

Ладно, думаю, дело в gcc, поэтому не так принципиально.

А что, вообще, это за компилятор gcc?

 Отправлено: 31.03.10 12:34. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Собираться-то оно собирается, даже дизайнер вылазит. Но почему-то ни одной строчки в отчётах.

Ну не знаю, что у вас не получается. Варнингов конечно море, но у меня все работает. Например взял пример из \oohg\samples\browse_3\browse1.prg.

Добавил в OpenTables():

FrPrn := frReportManager():new()
FrPrn:SetWorkArea("Test", Select("Test"))
FrPrn:DesignReport()

Вот результат:

Так что конкретней говорите, что значит "почему-то ни одной строчки в отчётах"?

А насчет варнингов, давно собираюсь сесть и по возможности причесать код так, чтоб "нравился" всем компиляторам

 Отправлено: 31.03.10 13:12. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

А что, вообще, это за компилятор gcc?

Это, наверное, mingw. А насчет предупреждений - у этого компилятора более строгие правила по типизации данных, вот он и выдает варнинги, которые в bcc такими не рассматриваются. Но предупреждение - не ошибка, должно работать.

 Отправлено: 31.03.10 13:25. Заголовок: Pasha пишет: А насч..

Pasha пишет:

цитата:

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

Не... "Виноват" оказался не gcc, а харбур, точнее харбур2. Дело в том, что в двойке возврат функции hb_parc поменялся с

char *

на

const char *

(вот куролесят как тут обойдешься без варнингов на всех версиях всего). Поэтому придется явно приводить.

Замените по всему текcту FastRepH.prg все вхождения

hb_parc

на

(char *)hb_parc

После такой замены нет ни одного варнинга В общей сборке я на выходных поменяю.

 Отправлено: 31.03.10 15:17. Заголовок: PSP пишет: Warning ..

PSP пишет:

цитата:

Warning W8075 FastRepH.prg 80: Suspicious pointer conversion in function HB_FUN_CALL_PROC_C Warning W8075 FastRepH.prg 86: Suspicious pointer conversion in function HB_FUN_CALL_PROC_IC Warning W8075 FastRepH.prg 92: Suspicious pointer conversion in function HB_FUN_CALL_PROC_CC Warning W8075 FastRepH.prg 92: Suspicious pointer conversion in function HB_FUN_CALL_PROC_CC Warning W8075 FastRepH.prg 98: Suspicious pointer conversion in function HB_FUN_CALL_PROC_CCC Warning W8075 FastRepH.prg 98: Suspicious pointer conversion in function HB_FUN_CALL_PROC_CCC Warning W8075 FastRepH.prg 98: Suspicious pointer conversion in function HB_FUN_CALL_PROC_CCC Warning W8075 FastRepH.prg 124: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_C_I Warning W8075 FastRepH.prg 136: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_IC_I Warning W8075 FastRepH.prg 142: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CC_I Warning W8075 FastRepH.prg 142: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CC_I Warning W8075 FastRepH.prg 148: Suspicious pointer conversion in function HB_FUN_CALL_FUNC_CCC_I

Кстати, и "Ваша" проблема похоже растет оттуда же. Сделайте такую замену, которую я описал выше и попробуйте.

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

Sergey Spirin пишет:

цитата:

Сделайте такую замену, которую я описал выше и попробуйте.

Я один раз компилю в obj и потом просто его линкую. Меня варнинги сейчас не беспокоят. Подожду изменений в общей сборке. Спасибо.

 Отправлено: 31.03.10 16:45. Заголовок: Я попробовал заменит..

Я попробовал заменить, но у меня саму среду, судя по всему, переставлять надо. Я над ней слишком уж много экспериментов делал. Жду свежей сборки. ИМХО, версия на BCC xHarbour работает быстрее, чем на MinGW Harbour. Извините за холивор, если что.

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

Sergey Spirin пишет:

цитата:

У бэндов мастера и детали поставьте свойство KeepTogerther в True. KeepTogerther - по русски это "держаться вместе".

Спасибо БОЛЬШОЕ !!!

 Отправлено: 04.04.10 14:39. Заголовок: Пересобрал FRH с вер..

Пересобрал FRH с версией 4.9.48.

У меня просьба, если у кого-то будут варнинги или хинты на каких-то комбинациях компиляторов, то сообщайте, плиз, сюда об этом.

 Отправлено: 07.04.10 02:57. Заголовок: Протестировал на хХа..

Протестировал на хХарборе 1.0.0 и Harbour 2.0.0 и MiniGui 1.7 , все под BCC . Нормально, нет варнингов.

А нельзя название "FrSystH.dll" в файле FastRepH.prg перенести наверх и сделать типа:
#define FR_NAMEFILEDLL "FrSystH.dll"

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

 Отправлено: 07.04.10 08:24. Заголовок: Все чисто (Harbour 2..

Все чисто (Harbour 2 и BCC). Спасибо.

 Отправлено: 07.04.10 08:45. Заголовок: Andrey пишет: Проте..

Andrey пишет:

цитата:

Протестировал на хХарборе 1.0.0 и Harbour 2.0.0 и MiniGui 1.7 , все под BCC . Нормально, нет варнингов.

Ok. Спасибо. Но появятся новые версии Харбуров и варнинги опять полезут Не забудьте тогда сообщить

Andrey пишет:

цитата:

А нельзя название "FrSystH.dll" в файле FastRepH.prg перенести наверх и сделать типа: #define FR_NAMEFILEDLL "FrSystH.dll" А то я библиотеку называю другим именем и каждый раз менять приходиться ? Забываешь, приходишь к заказчику и облом... Формы не печатаются....

Андрей, вы в "своем репертуаре". Значит правите FastRepH.prg, исправляете "FrSystH.dll" на свое? Ну а что там в этом месте написано то?

METHOD Init( cOptionalPath ) class frReportManager   
 LOCAL oError 
  
    IF ::frSystHandle == 0 
       cOptionalPath := IF(cOptionalPath <> NIL, cOptionalPath, "FrSystH.dll")   
       ::frSystHandle := FrLoad(cOptionalPath) 
 

То есть, "FrSystH.dll" подставляется только тогда, когда :Init() вызывается без параметра! У себя в коде вызывайте не:

FrPrn := frReportManager():new()

a:

FrPrn := frReportManager():new(MY_DLL_NAME)

Вот и все И не надо сторонние prg править, это плохая практика.

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

Sergey Spirin пишет:

цитата:

И не надо сторонние prg править, это плохая практика.

Вот спасибо, а то я пробовал делать что-то подобное, но у меня не получилось.
Спасибо большое...

 Отправлено: 08.04.10 11:54. Заголовок: Периодически сталкив..

Периодически сталкиваюсь с такой проблемой:


Нельзя ли обойтись без "QUIT", а то пользователь вылетает из программы, а я репу чешу, что-там случилось..... ?
Они (пользователи) смекалистые... И на них управу не найти....
Конечно, можно проверять - есть ли файл на диске, а он может быть в другой папке и т.д.

И еще бы проверку версий сделать !!! Т.е. чтоб можно было бы получить НОМЕР ВЕРСИИ сборки FrSystH.dll !!! Очень нужно !!!

 Отправлено: 08.04.10 15:35. Заголовок: Andrey пишет: Нельз..

Andrey пишет:

цитата:

Нельзя ли обойтись без "QUIT", а то пользователь вылетает из программы, а я репу чешу, что-там случилось..... ? Они (пользователи) смекалистые... И на них управу не найти.... Конечно, можно проверять - есть ли файл на диске, а он может быть в другой папке и т.д.

Ну не знаю, все-таки это ошибка - целой либы нет на месте, сперли Как-то одним алертом здесь обходится ... не кудряво. Поэтому ошибку и генерю. Если у вас такие проблемы, то вам лучше просто самому ошибку обрабатывать. И все.

Andrey пишет:

цитата:

И еще бы проверку версий сделать !!! Т.е. чтоб можно было бы получить НОМЕР ВЕРСИИ сборки FrSystH.dll !!! Очень нужно !!!

Ну, это пожалйста:

FrPrn:GetProperty("Report", "Version")

Интересно, а зачем нужно?

 Отправлено: 08.04.10 17:12. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Интересно, а зачем нужно?

Обновлять библиотеку нужно под новые формы. А так забудешься и облом....
Сделаю проверку у себя в программе и при старте буду проверять версию DLL-ки.
А уж пользователь сам мне потом будет сообщать что у него старая DLL-ка....

 Отправлено: 08.04.10 17:35. Заголовок: Andrey пишет: Обнов..

Andrey пишет:

цитата:

Обновлять библиотеку нужно под новые формы. А так забудешься и облом.... Сделаю проверку у себя в программе и при старте буду проверять версию DLL-ки.

В смысле? Вы, что, думаете, что отчет сделанный, например, в дизайнере 4.9.x, не будет работать под 4.7? Почему вы так решили? Вообше-то, версия на то и версия, что в течении ее формат стабилен. Актуально это будет с выходом 5-ки, который ожидается осенью.

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

Sergey Spirin пишет:

цитата:

Вы, что, думаете, что отчет сделанный, например, в дизайнере 4.9.x, не будет работать под 4.7?

Не будет ! У меня версия 4.5 раньше стояла и сейчас стоит у многих ! А в 4.7 появились новые функции, а 4.8 еще и это: FrPrn:SetTxtDataSet("MyText", "C:\MyText.txt") и т.д.

А как балбесу пользователю объяснить, что нужно обновить версию DLL ?
Не буду же я записывать размер файла, дату создания DLL куда-нибудь в массив и при открытии каждый раз сравнивать существующий файл с массивом даты..... и т.д.
А так запросил НОМЕР ВЕРСИИ DLL и выдал сообщение, если нужно обновить ! И все....

 Отправлено: 09.04.10 08:35. Заголовок: Andrey пишет: Не бу..

Andrey пишет:

цитата:

Не будет ! У меня версия 4.5 раньше стояла и сейчас стоит у многих ! А в 4.7 появились новые функции, а 4.8 еще и это: FrPrn:SetTxtDataSet("MyText", "C:\MyText.txt") и т.д.

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

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

Sergey Spirin пишет:

цитата:

А как так получается, что пользователь может обновить отчеты, не обновив при этом либу?

Да кто ж его знает.... У меня были умельцы, как они это делают ? И вдобавок ко всему мужики, настройщики компьютеров....
Ставят последнее обновление, а потом откуда-то вытаскивают старые обновления... Вот так-то !

 Отправлено: 02.05.10 19:50. Заголовок: Привет! Почему-то у..

Привет!

Почему-то у буржуйских пользователей FRH, один из "самых спрашиваемых вопросов" это - как печатать этикетки... В конце концов сделал пример, если у кого-то есть подобные вопросы, то можете скачать посмотреть. Качать с главной FRH-страницы:

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

 Отправлено: 10.05.10 23:08. Заголовок: Одна ошибочка

Вот скачал и установил демоверсию.

У меня дома на стационарном компьютере и на ноутбуке (Dell D400) всё нормально работает. А у шефа почему-то на некоторых компьютерах начинает выдавать вот такую ошибку:

 цитата:
Error FRH/2012 Can not load FRH library FrSystH.dll 
 Called from FRREPORTMANAGER:INIT(478) 
 Called from FRREPORTMANAGER:NEW(0) 
 Called from MAIN(15)

Самое интересное, что эта ошибка выдаётся только в сетевом режиме и только при загрузке в первый раз за сессию работы на компьютере. Если потом, на этом же компьютере запустить эту же программу - ОНА ЗАРАБОТАЕТ!

Сеть у меня на работе, правда, ещё та - Нетварь 4. Поначалу я на неё грешил. Но, сегодня я на свой ноутбук поставил клиент Нетвари и подключил его к серверу шефа. Представьте себе - заработало. Операционные системы у меня и у шефа одинаковые - Windows XP SP3, так что тут тоже не придерёшься. На другом компьютере у шефа моя программа почему-то "тянет" при загрузке, хотя его компьютер более быстродействующий, чем мой ноутбук.

 Отправлено: 11.05.10 10:57. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

У меня дома на стационарном компьютере и на ноутбуке (Dell D400) всё нормально работает. А у шефа почему-то на некоторых компьютерах начинает выдавать вот такую ошибку: цитата: Error FRH/2012 Can not load FRH library FrSystH.dll Called from FRREPORTMANAGER:INIT(478) Called from FRREPORTMANAGER:NEW(0) Called from MAIN(15)

Просто копируйте аккуратно файлы НЕ ЗАБЫВАЯ файл FrSystH.dll. FrSystH.dll - это основной и единственный файл FRH. Он должен находится в той же папке, что и ваш EXE-файл. Приведенная вами ошибка возможно только тогда, когда FrSystH.dll нет на месте, либо файл "битый". Сеть здесь, вообще, никаким боком не причастна... Ну если только пофантазировать, что Винда, не найдя FrSystH.dll, пошла искать его в сеть, и таки нашла где-то, что объясняет долгую загрузку... Но это так, догадки. Нормально копируйте FrSystH.dll и проблем у вас не будет. При загрузке dll она ищется в следующем порядке:

1. The directory from which the application loaded.
2. The current directory.
3. Windows 95: The Windows system directory. Use the GetSystemDirectory function to get the path of this directory.

Windows NT: The 32-bit Windows system directory. Use the GetSystemDirectory function to get the path of this directory. The name of this directory is SYSTEM32.

4. Windows NT: The 16-bit Windows system directory. There is no Win32 function that obtains the path of this directory, but it is searched. The name of this directory is SYSTEM.
5. The Windows directory. Use the GetWindowsDirectory function to get the path of this directory.
6. The directories that are listed in the PATH environment variable.

 Отправлено: 12.05.10 17:51. Заголовок: В том-то и дело, что..

В том-то и дело, что всё нормально копируется и при последующих запусках. А как сделать, чтобы программа запускала эту FrSystH.dll только из своей корневой директории? (п.2 поиска сделать п.1)

 Отправлено: 12.05.10 18:21. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

В том-то и дело, что всё нормально копируется

Ошибка, которую вы привели, это ошибка загрузки dll на уровне Windows OS.

Dr. Oldwarez пишет:

цитата:

А как сделать, чтобы программа запускала эту FrSystH.dll только из своей корневой директории? (п.2 поиска сделать п.1)

Пункт 1 это и есть директория, в которой расположен EXE-файл. Пункт 2 это текущая директория.

Dr. Oldwarez пишет:

цитата:

А как сделать, чтобы программа запускала эту FrSystH.dll только из своей корневой директории?

Загружать с полным путем, тогда это будет единственный вариант, например:

FrPrn := frReportManager():new("С:\МуDir\FrSystH.dll")

 Отправлено: 12.05.10 18:52. Заголовок: Спасибо! А какая в ..

Спасибо!
А какая в Харборе функция определяет букву текущего диска. Потому, что у меня она может быть, как С: (локальный), так и Е: (сетевой)

 Отправлено: 12.05.10 19:25. Заголовок: CurDrive() или hb_Cu..

CurDrive() или hb_CurDrive()/CurDrive(), в зависимости от того, что вы определяете словом Харбор.

Но этот вопрос никакого отношения к FastReport не имеет.

 Отправлено: 13.05.10 14:31. Заголовок: Большое спасибо! Поп..

Большое спасибо! Попробовал

FrPrn := frReportManager():new(CURDRIVE()+":\"+CURDIR()+"\FrSystH.dll")

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

 Отправлено: 13.05.10 14:45. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

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

Все будет нормально и у шефа

 Отправлено: 14.05.10 14:32. Заголовок: Можно ли узнать (вер..

Можно ли узнать (вернуть в Харбор) отправлен ли документ на печать или только его посмотрели и не печатали ?
Это нужно для того что бы вести журнал напечатанных документов !

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

Andrey пишет:

цитата:

Можно ли узнать (вернуть в Харбор) отправлен ли документ на печать или только его посмотрели и не печатали ?

Можно. Поставьте обработчик на событие OnAfterPrintReport. Смотрите метод :SetEventHandler().

 Отправлено: 22.05.10 12:37. Заголовок: Можно ли в Дизайнере..

Можно ли в Дизайнере посмотреть значение полей в БД ?

 Отправлено: 22.05.10 15:43. Заголовок: Andrey пишет: Можно..

Andrey пишет:

цитата:

Можно ли в Дизайнере посмотреть значение полей в БД ?

Гм... Бросить мастер-дату, на нее поля, и нажать F9... В чем вопрос?

P.S. C OnAfterPrintReport то получилось?

 Отправлено: 22.05.10 18:37. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

C OnAfterPrintReport то получилось?

Нет не получается....

 Отправлено: 22.05.10 19:09. Заголовок: Andrey пишет: Нет н..

Andrey пишет:

цитата:

Нет не получается....

Что не получается? Что делаете?

 Отправлено: 29.05.10 19:05. Заголовок: Собрал 4.9.79, добав..

Собрал 4.9.79, добавил часто спрашиваемую встроенную функцию:

function LoadImageFromHbRes(Picture: TfrxPictureView; HbResName: string; IsBitmap: Boolean): Variant;

Загружает картинку из ресурсов exe-шника. Если IsBitmap = True, то грузится RT_BITMAP иначе RT_RCDATA. Пример:

procedure ReportHOnStartReport(Sender: TfrxComponent);
begin
LoadImageFromHbRes(Picture1, 'MYJPEG', False);
end;

P.S. Хотел отвертеться от желающих советом использовать [x]Harbour-средства, а затем LoadImageFromHbVar, не прокатило

 Отправлено: 05.06.10 19:14. Заголовок: Вопрос удобства ! В..

Вопрос удобства !

Взял свою готовую форму (было 2 базы). Удалил ненужную БАЗУ, АЛИАС тоже удалил.
По всем полям прошелся, нет на экране ПОЛЕЙ удаленной базы.
Вызываю просмотр, высвечивается ошибка: Набор данных "ХХХХ" не найден !
Ну я его же удалил.

КАК ИСКАТЬ ЭТУ фигню УДАЛЕННУЮ на форме ???
Когда мало полей еще ничего, а если много то ....

 Отправлено: 18.06.10 16:56. Заголовок: И ещё один вопросик...

И ещё один вопросик.
Как сделать так, чтобы в FastReport строка выпечатывалась только при определённых условиях, например, если заполнено одно из полей даты? Как сделать, чтобы Visible было не только TRUE и FALSE, но и условное, например !(EMPTY(DATAFIELD))

Подскажите пожалуйста.

 Отправлено: 19.06.10 12:01. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Как сделать так, чтобы в FastReport строка выпечатывалась только при определённых условиях, например, если заполнено одно из полей даты? Как сделать, чтобы Visible было не только TRUE и FALSE, но и условное, например !(EMPTY(DATAFIELD))

IMHO проще всего передать FRH уже проиндексированную БД по !(EMPTY(DATAFIELD))

Если хочется управлять параметром Visible в дизайнере, то надо создать событие OnBeforePrint для Masterdata, а затем в коде написать что-то типа

procedure MasterData1OnBeforePrint(Sender: TfrxComponent); 
 begin 
      
   MasterData1.Visible := True; 
   if ( bla bla bla ) then 
      MasterData1.Visible := False;   
  
 end;

 Отправлено: 22.06.10 00:41. Заголовок: Наверно эта ветка за..

Наверно эта ветка закрыта до окончания отдыха ?
Приятного отдыха Sergey !!!

 Отправлено: 01.07.10 10:14. Заголовок: Andrey пишет: Навер..

Andrey пишет:

цитата:

Наверно эта ветка закрыта до окончания отдыха ?

Все. Вернулся я

Смотрю, вопросов особенно не накопилось

- Как найти поле, в котором ошибка? Ну, вообще, когда происходит ошибка, то указывается имя объекта, в котором она произошла. Ну а найти этот объект всегда можно в дереве объектов.

- Относительно фильтрации на стороне FRH, то TimTim все верно ответил, единственное, незачем Visible присваивать 2 раза Достаточно:

MasterData1.Visible := ( bla bla bla );

P.S. Dr. Oldwarez, у вас шефа случайно не Timm Sodtalbers зовут? (Компания Sodtalbers IT). Просто покупка FRH из Германии чрезвычайно редкий случай (в отличие от FRAX). А тут приезжаю - есть такая, сразу вас вспомнил

 Отправлено: 01.07.10 15:11. Заголовок: И, кстати, говоря: ..

И, кстати, говоря:


Выпуск FastReport VCL 5 намечен на осень 2010. Вот далеко не полный перечень тех нововведений, которые будут в FastReport VCL 5:

Улучшенный движок:
- улучшенный механизм смещения;
- объединение дублирующихся значений;
- новые агрегатные функции;
- улучшенный CrossTab;
- изменения в XML формате(запись коллекций в виде XML);
- улучшенное наследование отчетов;
- печать иерархий;
- водяной знак/ заливка объектов градиентом;
- улучшенные линейные штрих коды;
- улучшенные интерактивные отчеты: OnMouseEnter/OnMouseLeave события;
- детализированные отчеты;
- многостраничный предпросмотр для детализированных отчетов;

Новые объекты:
- двухмерные штрих коды: DataMatrix и PDF417;
- Объект таблица;
- Cellular text;
- Zip Code;

Новые экспорты:
- BIFF XLS экспорт
- PPTX экспорт;
- XLSX экспорт;
- DOCX экспорт;

И пара скриншотиков (сравните с FastReport.Net):

http://www.fast-report.com/ru/products/fastreport-vcl-5-screenshots.html<\/u><\/a>

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

Sergey Spirin пишет:

цитата:

- Как найти поле, в котором ошибка? Ну, вообще, когда происходит ошибка, то указывается имя объекта, в котором она произошла. Ну а найти этот объект всегда можно в дереве объектов.

Нет нельзя !
Сделайте сам и поймете в чем дело !
Берем готовую форму, подключаем ДРУГУЮ базу, правим поля в форме на новую базу и ИМЕЕМ те ошибки о которых я писал.
И невозможно найти ПОЛЯ на какие выдаются ошибки... Т.е. переменная Memo20 выдается на ней ошибка, смотришь ее - НАПИСАНО ПРАВИЛЬНО !!! Лезешь в форму Far'ом и там в конце свойства прописаны другого поля из ДРУГОЙ базы, которую уже убрали !
Это я только потом допер что за фигня появляется !!!
Вопрос остается открытым: КАК НАЙТИ и УБРАТЬ ошибку: Набор данных "ХХХХ" не найден !

 Отправлено: 05.07.10 22:59. Заголовок: Andrey пишет: Вопро..

Andrey пишет:

цитата:

Вопрос остается открытым: КАК НАЙТИ и УБРАТЬ ошибку: Набор данных "ХХХХ" не найден !

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

Чтобы обновить ссылки зайдите "Отчет"->"Данные" и просто нажмите "Ok" (даже,если не делаете там изменений). Ссылки обновятся, и ошибки "по Мемам" станут более осмысленными.

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

Sergey Spirin пишет:

цитата:

Чтобы обновить ссылки зайдите "Отчет"->"Данные" и просто нажмите "Ok" (даже,если не делаете там изменений). Ссылки обновятся, и ошибки "по Мемам" станут более осмысленными.

Спасибо !

Еще один вопрос по языкам !
Мне нужны формы на русском и украинском языках !
Если я переключаюсь на украинский язык, то все суммы остаются в русском языке (руб.коп).
А как можно сделать переключение на украинский, чтоб суммы были на украинском (гривны) ?

Самый простой выход держать 2 формы: на русском и украинском !
Но у меня порядка 50 форм, не хотелось бы раздувать кол-во файлов !

 Отправлено: 06.07.10 10:08. Заголовок: Andrey пишет: Если ..

Andrey пишет:

цитата:

Если я переключаюсь на украинский язык, то все суммы остаются в русском языке (руб.коп). А как можно сделать переключение на украинский, чтоб суммы были на украинском (гривны) ?

Вообще говоря, все региональные настройки по умолчанию считываются из настроек Windows. Поэтому у вас рубль и остается так как все на русской Винде. Будет украинская - появится гривна.

Вообще, как в любом delphi приложении менять их можно, но их многовато, чтобы сделать отдельные методы для каждой настройки, вот некоторые например:

var
CurrencyString: string;
CurrencyFormat: Byte;
NegCurrFormat: Byte;
ThousandSeparator: Char;
DecimalSeparator: Char;
CurrencyDecimals: Byte;
DateSeparator: Char;
ShortDateFormat: string;
LongDateFormat: string;
TimeSeparator: Char;
TimeAMString: string;
TimePMString: string;
ShortTimeFormat: string;
LongTimeFormat: string;
ShortMonthNames: array[1..12] of string;
LongMonthNames: array[1..12] of string;
ShortDayNames: array[1..7] of string;
LongDayNames: array[1..7] of string;
SysLocale: TSysLocale;
TwoDigitYearCenturyWindow: Word = 50;
ListSeparator: Char;

Вообще же говоря, в вашем случае, по уму у вас в программе должен определяться тип валюты и он должен в отчетах использоваться - это наиболее грамотно.

 Отправлено: 06.07.10 22:38. Заголовок: Использую формат вы..

Использую формат вывод сумм %2.2m !
При переключении на украинский язык все равно печатает руб.

А если Windows будет украинская, то будет печатать гривны ! Понятно !
А как быть если установлена Windows русская, а нужно печатать гривны ?

Можно ли завести свой формат печати ?

Я конечно могу завести свою функцию в программе, и выводить через нее... Блин но столько переделывать форм...
Есть ли еще другие варианты ?

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

Andrey пишет:

цитата:

А как быть если установлена Windows русская, а нужно печатать гривны ? Можно ли завести свой формат печати ?

Ну, на данный момент надо пойти в "Пуск"->"Панель управления"-> "Язык и региональные стандарты" и поменять там валюту

Andrey пишет:

цитата:

Я конечно могу завести свою функцию в программе, и выводить через нее... Блин но столько переделывать форм... Есть ли еще другие варианты ?

Ну, можно в принципе добавить еще один метод в frReportManager. Ладно, добавлю на днях.

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

Sergey Spirin пишет:

цитата:

Ну, можно в принципе добавить еще один метод в frReportManager. Ладно, добавлю на днях.

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

 Отправлено: 08.07.10 23:16. Заголовок: Добавлен метод :SetFormatSettings()

Добавил метод :SetFormatSettings(nSetting, xValue)

Андрей! Перекомпилил пока только вашу копию и жду тестирования для выкладывания в общую сборку! :)

Возможные значения для nSetting пока только такие и описаны в FastRepH.ch (ваш случай frxCurrencyString):

#define frxCurrencyString 1
#define frxCurrencyFormat 2
#define frxNegCurrFormat 3
#define frxThousandSeparator 4
#define frxDecimalSeparator 5
#define frxCurrencyDecimals 6
#define frxDateSeparator 7
#define frxShortDateFormat 8
#define frxLongDateFormat 9
#define frxTimeSeparator 10
#define frxTimeAMString 11
#define frxTimePMString 12
#define frxShortTimeFormat 13
#define frxLongTimeFormat 14
#define frxShortMonthNames 15
#define frxLongMonthNames 16
#define frxShortDayNames 17
#define frxLongDayNames 18
#define frxTwoDigitYearCenturyWindow 20
#define frxListSeparator 21

Описание всех вариантов:

{ Currency and date/time formatting options

The initial values of these variables are fetched from the system registry
using the GetLocaleInfo function in the Win32 API. The description of each
variable specifies the LOCALE_XXXX constant used to fetch the initial
value.

CurrencyString - Defines the currency symbol used in floating-point to
decimal conversions. The initial value is fetched from LOCALE_SCURRENCY.

CurrencyFormat - Defines the currency symbol placement and separation
used in floating-point to decimal conversions. Possible values are:

0 = '$1'
1 = '1$'
2 = '$ 1'
3 = '1 $'

The initial value is fetched from LOCALE_ICURRENCY.

NegCurrFormat - Defines the currency format for used in floating-point to
decimal conversions of negative numbers. Possible values are:

0 = '($1)' 4 = '(1$)' 8 = '-1 $' 12 = '$ -1'
1 = '-$1' 5 = '-1$' 9 = '-$ 1' 13 = '1- $'
2 = '$-1' 6 = '1-$' 10 = '1 $-' 14 = '($ 1)'
3 = '$1-' 7 = '1$-' 11 = '$ 1-' 15 = '(1 $)'

The initial value is fetched from LOCALE_INEGCURR.

ThousandSeparator - The character used to separate thousands in numbers
with more than three digits to the left of the decimal separator. The
initial value is fetched from LOCALE_STHOUSAND. A value of #0 indicates
no thousand separator character should be output even if the format string
specifies thousand separators.

DecimalSeparator - The character used to separate the integer part from
the fractional part of a number. The initial value is fetched from
LOCALE_SDECIMAL. DecimalSeparator must be a non-zero value.

CurrencyDecimals - The number of digits to the right of the decimal point
in a currency amount. The initial value is fetched from LOCALE_ICURRDIGITS.

DateSeparator - The character used to separate the year, month, and day
parts of a date value. The initial value is fetched from LOCATE_SDATE.

ShortDateFormat - The format string used to convert a date value to a
short string suitable for editing. For a complete description of date and
time format strings, refer to the documentation for the FormatDate
function. The short date format should only use the date separator
character and the m, mm, d, dd, yy, and yyyy format specifiers. The
initial value is fetched from LOCALE_SSHORTDATE.

LongDateFormat - The format string used to convert a date value to a long
string suitable for display but not for editing. For a complete description
of date and time format strings, refer to the documentation for the
FormatDate function. The initial value is fetched from LOCALE_SLONGDATE.

TimeSeparator - The character used to separate the hour, minute, and
second parts of a time value. The initial value is fetched from
LOCALE_STIME.

TimeAMString - The suffix string used for time values between 00:00 and
11:59 in 12-hour clock format. The initial value is fetched from
LOCALE_S1159.

TimePMString - The suffix string used for time values between 12:00 and
23:59 in 12-hour clock format. The initial value is fetched from
LOCALE_S2359.

ShortTimeFormat - The format string used to convert a time value to a
short string with only hours and minutes. The default value is computed
from LOCALE_ITIME and LOCALE_ITLZERO.

LongTimeFormat - The format string used to convert a time value to a long
string with hours, minutes, and seconds. The default value is computed
from LOCALE_ITIME and LOCALE_ITLZERO.

ShortMonthNames - Array of strings containing short month names. The mmm
format specifier in a format string passed to FormatDate causes a short
month name to be substituted. The default values are fecthed from the
LOCALE_SABBREVMONTHNAME system locale entries.

LongMonthNames - Array of strings containing long month names. The mmmm
format specifier in a format string passed to FormatDate causes a long
month name to be substituted. The default values are fecthed from the
LOCALE_SMONTHNAME system locale entries.

ShortDayNames - Array of strings containing short day names. The ddd
format specifier in a format string passed to FormatDate causes a short
day name to be substituted. The default values are fecthed from the
LOCALE_SABBREVDAYNAME system locale entries.

LongDayNames - Array of strings containing long day names. The dddd
format specifier in a format string passed to FormatDate causes a long
day name to be substituted. The default values are fecthed from the
LOCALE_SDAYNAME system locale entries.

ListSeparator - The character used to separate items in a list. The
initial value is fetched from LOCALE_SLIST.

TwoDigitYearCenturyWindow - Determines what century is added to two
digit years when converting string dates to numeric dates. This value
is subtracted from the current year before extracting the century.
This can be used to extend the lifetime of existing applications that
are inextricably tied to 2 digit year data entry. The best solution
to Year 2000 (Y2k) issues is not to accept 2 digit years at all - require
4 digit years in data entry to eliminate century ambiguities.

Examples:

Current TwoDigitCenturyWindow Century StrToDate() of:
Year Value Pivot '01/01/03' '01/01/68' '01/01/50'
-------------------------------------------------------------------------
1998 0 1900 1903 1968 1950
2002 0 2000 2003 2068 2050
1998 50 (default) 1948 2003 1968 1950
2002 50 (default) 1952 2003 1968 2050
2020 50 (default) 1970 2003 2068 2050
}

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

Sergey Spirin пишет:

цитата:

Возможные значения для nSetting пока только такие и описаны в FastRepH.ch (ваш случай frxCurrencyString): ......... и т.д.

Блин... Столько строчек я сегодня не переведу... И как все это компоновать ?
А покороче нельзя ?
Или пример ?
А то я еще неделю буду в этом разбираться....

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

Andrey пишет:

цитата:

Или пример ?

В вашем конкретном случае :

FrPrn:SetFormatSettings(frxCurrencyString, "GRIVNA")

"GRIVNA"- понятно что условно, я уж не знаю как она там отображается.

Про остальное, что сможете

 Отправлено: 09.07.10 08:48. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

FrPrn:SetFormatSettings(frxCurrencyString, "GRIVNA") "GRIVNA"- понятно что условно, я уж не знаю как она там отображается.

А если я $ захочу отображать ? или фунты ?

 Отправлено: 09.07.10 11:54. Заголовок: Andrey пишет: А есл..

Andrey пишет:

цитата:

А если я $ захочу отображать ? или фунты ?

FrPrn:SetFormatSettings(frxCurrencyString, "$")
FrPrn:SetFormatSettings(frxCurrencyString, "£")

Андрей, вы меня все больше и больше удивляете Уже даже предчувствую, пытаюсь "разжевать":

Sergey Spirin пишет:

цитата:

"GRIVNA"- понятно что условно, я уж не знаю как она там отображается.

донести, что "GRIVNA" - это я так написал, как правильно напиши давай сам.... В результате, по логам сервера вижу, что ничего еще не скачивал, значит и не пробовал, а уже ничего ему непонятно (!) Андрей, ну что за детский сад?

Специально погуглил сайты с ценами в гривнах, обычно пишут "грн.", поэтому:

FrPrn:SetFormatSettings(frxCurrencyString, "грн.")

Если нужно по-другому, то так и пишите:

FrPrn:SetFormatSettings(frxCurrencyString, "как я хочу так и обзову!")

Предвидя вопрос - "как знак доллара поставить слева":

FrPrn:SetFormatSettings(frxCurrencyFormat, 0)

Варианты значений в справке, которую я привел:

0 = '$1'
1 = '1$'
2 = '$ 1'
3 = '1 $'

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

Sergey Spirin пишет:

цитата:

Уже даже предчувствую, пытаюсь "разжевать":

Спасибо большое за понимание !
Коньяк за мной !

 Отправлено: 09.07.10 14:46. Заголовок: Andrey пишет: Спаси..

Andrey пишет:

цитата:

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

Спасибо, это хорошо. А проверить, как работает и работает ли?

 Отправлено: 09.07.10 15:24. Заголовок: Сижу делаю ! Сегодня..

Сижу делаю ! Сегодня же сообщу....

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

Sergey Spirin пишет:

цитата:

Спасибо, это хорошо. А проверить, как работает и работает ли?

Сделал тестовый пример ! Отправил вам на почту !
Вроде работает без проблем.

Пере собрать проект на хХарборе - команда hbmake.exe Frh-Lang.bc

 Отправлено: 14.07.10 00:28. Заголовок: Пересобрал с версией..

Пересобрал с версией 4.9.98 общую сборку. Включен, обсуждавшийся выше новый метод - :SetFormatSettings(nSetting, xValue).

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

Sergey Spirin пишет:

цитата:

Пересобрал с версией 4.9.98 общую сборку

Спасибо большое. Скачал, буду подключать к своей системе !

 Отправлено: 16.07.10 20:06. Заголовок: И ещё один вопрос по..

И ещё один вопрос по FastReport, очень важный.

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

Сверху группировка по проектам и родам работ (сантехник, электрик и т.д. и т.п.) И чтобы в строку вылазили не все фирмы, а только те фирмы, которые отвечают за данный род работ. Чтобы было всё как в обычном отчёте, но с повторяющейся парой фирма-цена в одну строку несколько раз.

Если удастся сделать то, о чём я прошу, тогда уже покупаем эту библиотеку.

 Отправлено: 16.07.10 21:29. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Если удастся сделать то, о чём я прошу, тогда уже покупаем эту библиотеку.

Ну блин, Хотабыча нашли .....

 Отправлено: 17.07.10 00:20. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Если удастся сделать то, о чём я прошу, тогда уже покупаем эту библиотеку.

Так о чем просишь то? Я что-то не понял.

Нужен отчет, так давай, пробуй, ваяй Судя, правда по мутному описанию, ничего сложного нет. Только группировки? Ну так, смотри простой пример с группами в демо, да и вперед Пробуй, спрашивай конкретику, если что не понятно. Ну, и естественно, не надейся, что кто-то что-то сделает за тебя

 Отправлено: 17.07.10 09:08. Заголовок: Сложность в том, что..

Сложность в том, что на элемент DBCrossTab не действуют внешние группировки. Так если кладешь DBCrossTab на полосу MasterData, а сверх того даёшь группировку в полосе GroupHeader, то никакого дополнительного разбиения по группам в перекрёстной таблице не происходит.

Можно в самой DBCrossTab делать Subtotals, но при этом условия группировки печатаются сбоку, а число фирм в строке зашкаливает, поскольку на один род работ фирм от силы 5-6, а всего их сотня.

 Отправлено: 17.07.10 11:08. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Сложность в том, что на элемент DBCrossTab не действуют внешние группировки

Я бы делал без КроссТаба. И все-таки, конкретика, сколько каких таблиц участвуют в отчете? Какие между ними отношения? И т. д.

 Отправлено: 17.07.10 14:07. Заголовок: Отношения между табл..

Отношения между таблицами - многоуровневая иерархия, и, соответственно, многоуровневая группировка. На самом верхнем уровне - таблица проектов (капремонт, модернизация и т.д.) по тому или иному зданию.
Дальше идёт группировка по профилю работ (сантехник, электрик и т.д. и т.п.)
Основная таблица - таблица выполненных работ и расходных материалов. Например: сантехник - замена ванной. Ну и к ней подтаблица - различные фирмы и цены, которые они берут за ту или иную работу. Выбираем минимальную.
А сложность заключается в том, что несколько пар фирма-цена нужно выпечатать В ОДНОЙ СТРОКЕ

PROJEKT
PROFIL_RABOT

====================================================================
POS_NUM POS_TEXT1 FIRMA FIRMA FIRMA ....................................
POS_TEXT2 PRICE PRICE PRICE ....................................

 Отправлено: 17.07.10 14:57. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

А сложность заключается в том, что несколько пар фирма-цена нужно выпечатать В ОДНОЙ СТРОКЕ

Ну если владеть инструментом, то ничего особенно уж сложного в этом отчете нет.

Во-первых, группировок, по крайней мере в фастовском понимании здесь нет. Здесь типичный Master-Detail-SubDetail:

PROJEKT - это мастер.
PROFIL_RABOT - детэйл.

Как установить MasterDetail отношение, надеюсь, труда не составит.

И третий уровень, который будет вычисляемым - subdetail.

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

Если все так, то определим UserDataSet для третьего уровняЖ

FrPrn:SetUserDataSet("Третий уровень", "POS_NUM;POS_TEXT1;POS_TEXT2;FIRMA1;PRICE1;FIRMA2;PRICE2;FIRMA3;PRICE3",; 
                      {|| PrepareData())} ,; 
                      {|| PrepareData())},; 
                      {|| },; 
                      {|| CheckEOF()},;                  
                      {|cField| GetDSValue(cField)})  
 

Идея понятна? Заведем массив из 9 элементов. Пишем функцию PrepareData() в которой этот массив текущей записи будем заполнять. Пишем функцию GetDSValue(), которая просто по имени поля будет отдавать соответствующий элемент массива. И CheckEOF() которая будет решать, пора ли переходить к следующей записи PROFIL_RABOT или есть еще что "поколбасить" на текущей.

Надеюсь, что идея понятна, и не столь сложна в реализации

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

Sergey Spirin пишет:

цитата:

Как установить MasterDetail отношение, надеюсь, труда не составит.

Пример работы с MasterDetail http://files.mail.ru/C8IUGH<\/u><\/a>

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

 Отправлено: 17.07.10 17:28. Заголовок: Я так и думал, что в..

Я так и думал, что всё сведётся к пользовательскому массиву и заполнению его данными на каждой строке. Число элементов на одну строку отчёта формата А4 всё равно жёстко ограничено. Цена имеет формат 10DEC2, плюс зазор в одну строку. А если учесть что длина главной таблицы достигает 5 тыс строк :LOL: то 5 тыс. раз опрашивать постороннюю таблицу - очень замедлит работу.

Не проще ли сделать дополнительно поля FIRM1,FIRM2,FIRM3,... и, соотвестственно, PRICE1,PRICE2,PRICE3,....
Иногда ДЕнормализация имеет смысл. Есть ещё такая база данных -4D. Названа так, поскольку помимо классических двухмерных таблиц, поддерживает также вложенную таблицу SUBTABLE. Часто это бывает необходимо.

Больше 5 цен всё равно не поместится, поскольку нужно ещё указать реквизиты задания. Печать бисером - не у всех хорошее зрение.

ЗЫ. А вот про вертикальные бэнды я бы хотел поподробнее. Интересно, интересно.

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

Sergey Spirin пишет:

цитата:

Пересобрал с версией 4.9.98 общую сборку. Включен, обсуждавшийся выше новый метод - :SetFormatSettings(nSetting, xValue).

Собрал со своей системой ! Работает, только одна непонятка, не критичная, но думаю опять пальцем тыкать будут меня !

Переключаюсь на украинский язык, отображается нормально:
<\/u><\/a>

А в дизайнере, нет такого формата, только (руб.) !
<\/u><\/a>

Как исправить ?

 Отправлено: 17.07.10 23:32. Заголовок: Andrey пишет: А в д..

Andrey пишет:

цитата:

А в дизайнере, нет такого формата, только (руб.) !

Это вопрос к украинским локализаторам Это просто статичная строка в файле локализации. Смотри файл Ukrainian.frc, Значение ключа "fkNumber4", почему-то они решили оставить рубль Видимо тоскуют по Союзу

 Отправлено: 17.07.10 23:42. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Я так и думал, что всё сведётся к пользовательскому массиву и заполнению его данными на каждой строке. Число элементов на одну строку отчёта формата А4 всё равно жёстко ограничено. Цена имеет формат 10DEC2, плюс зазор в одну строку. А если учесть что длина главной таблицы достигает 5 тыс строк :LOL: то 5 тыс. раз опрашивать постороннюю таблицу - очень замедлит работу.

Дорогой, все в твоих руках, и это главное Как ты сделаешь доступ к этим данных в этой записи, так и будет. Сделаешь так, что будет тормозить, то виноват будешь только ты, а не FR Разговор же про 5 тысяч строк, которые будут тормозить - слышать смешно, хотя, чего только кривые ручки не добивались

Dr. Oldwarez пишет:

цитата:

ЗЫ. А вот про вертикальные бэнды я бы хотел поподробнее. Интересно, интересно.

Ну смотри, например:
http://www.reportingfor.info/ru/news.php?extend.33.4<\/u><\/a>

 Отправлено: 24.07.10 13:53. Заголовок: Так, был у шефа, шеф..

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

А пока что один небольшой вопросик. Можно суммировать по группе, можно суммировать по странице, но при переходе на новую страницу сумма обнуляется. Как сделать, чтобы был перенос, т.е. сумма по всем строкам, печатаемая один раз в конце страницы, а потом, ещё раз - в начале следующей страницы то же значение. Не печатать его только на последней странице группы.

 Отправлено: 26.07.10 14:18. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Как сделать, чтобы был перенос, т.е. сумма по всем строкам....

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

var 
   MySum: Variant;                          
  
 procedure Memo14OnAfterPrint(Sender: TfrxComponent); 
 begin 
   MySum := Memo14.Value;                      
 end;