Отправлено: 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. Так, какой там Харбур/хХарбур используется, какой С компилятор? Ну, и где эту штуку можно скачать, дайте ссылку.