Доброго всем времени суток.

???

Tnx

Идея такая, была навеяна динамическим построением репортов.
например, релиз выпущен, клиенты довольны, а тут запрос:
- А не могли бы вы нам ешё такой репорт добавить.

Или скажем серьёзно изменить какой-нибудь репорт который уже in production, да ешё и не у каждого клиента.

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

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

Например, что-то типа, когда стартует аппликация, в open event, ударить базу данных с запросом:
- есть ли в тебе что-то такое, что мне надо?

и если есть, достать синтакс построить и сохранить в custom.pbd например.
Anatoly Moskovsky Локшин МаркМожно рассмотреть альтернативный подход - иметь метаописание формы и создавать её из набора объектов в runtime, а в качестве скриптов на событиях использовать stored procedures. Получается весьма не дурно.
О, я смотрю люди уже отвечают, а я до сих пор вопроса не понял :)
Поясните мне кто-нибудь, что требуется.

Большое спасибо, обязательно попробую, прямо сейчас.

White Owl voronkНу не выпускать же новый релиз ради етого, ну вот я и посторил механизм, строю им репорт, закачиваю его блобом в базу данных, а когда они его вызывают, первое что делает скрипт окна для репортов, это смотрит на флаг custom репорт али нет, если да через блоб тянет его синтакс и строит его на радость клиентам.Есть почти дурная идея - хранить в блобе целиком pbd. Выкачиваешь pbd в какой-нибудь MyApp\Plugins каталог. И через AddToLibraryList() подгружаешь все pbd которые там найдуться.
В каждой pbd возможно нужна будет функция типа PbdName_Init() которая добавит содержащиеся в ней окна или ДВ в какой-нибудь глобальный список имен. Ну и пару-тройку других подобных функций или стандартных окошек. Менюшку например унаследованую от главного меню.

Глямур ...
Тока нашим не пойдёт.
Как говоритса to advanced для наших юзеров.
У нас есть но попроще, называетса User Defined Reports, тоже базированный на процедурах, после того как удариш retrieve выскакивает парм с аргументами для репорта.
Вот:
Локшин МаркА вот так дизайнер формы отчета выглядит:

voronkГлямур ...
Тока нашим не пойдёт.
Как говоритса to advanced для наших юзеров.
У нас есть но попроще, называетса User Defined Reports, тоже базированный на процедурах, после того как удариш retrieve выскакивает парм с аргументами для репорта.
Вот:
Локшин МаркА вот так дизайнер формы отчета выглядит:

voronk voronkГлямур ...
Тока нашим не пойдёт.
Как говоритса to advanced для наших юзеров.
У нас есть но попроще, называетса User Defined Reports, тоже базированный на процедурах, после того как удариш retrieve выскакивает парм с аргументами для репорта.
Вот:
Локшин МаркА вот так дизайнер формы отчета выглядит:

...

Пытался выкачать при помощи:
FileOpen
FileRead ...

получил: HDR*PowerBuilder .... и усё.

Пойду-ка я до дому, завтра со свежей головы так сказать....


White Owl voronkНу не выпускать же новый релиз ради етого, ну вот я и посторил механизм, строю им репорт, закачиваю его блобом в базу данных, а когда они его вызывают, первое что делает скрипт окна для репортов, это смотрит на флаг custom репорт али нет, если да через блоб тянет его синтакс и строит его на радость клиентам.Есть почти дурная идея - хранить в блобе целиком pbd. Выкачиваешь pbd в какой-нибудь MyApp\Plugins каталог. И через AddToLibraryList() подгружаешь все pbd которые там найдуться.
В каждой pbd возможно нужна будет функция типа PbdName_Init() которая добавит содержащиеся в ней окна или ДВ в какой-нибудь глобальный список имен. Ну и пару-тройку других подобных функций или стандартных окошек. Менюшку например унаследованую от главного меню.

процедуры уже готовы, в левом окне глямурно выглядят как названия репортов.

Хотят новый репорт, я просто пишу процедуру, даю имя и они его/её видят как толЬко открывают окно.

usual suspects:
integer i_file_num, i_loops, i
long l_flen, l_bytes_read, l_new_pos
blob bl, bl_tot_bl
string s
string s_tot_bl, s_bl

l_flen = FileLength('c:\pbd\xyz.pbd')

i_file_num = FileOpen('c:\pbd\xyz.pbd', StreamMode!, Read!, LockRead!)

IF l_flen > 32765 THEN
IF Mod(l_flen, 32765) = 0 THEN
i_loops = l_flen/32765
ELSE
i_loops = (l_flen/32765) + 1
END IF
ELSE
i_loops = 1
END IF

l_new_pos = 1

FOR i = 1 to i_loops
// l_bytes_read = FileRead(i_file_num, bl)
// bl_tot_bl = gl_tot_bl + bl
l_bytes_read = FileRead(i_file_num, s_bl)
s_tot_bl = s_tot_bl + s_bl
NEXT

FileClose(i_file_num)

MessageBox('','')

/*
s_tot_bl =
HDR*PowerBuilderetTDAT*etText() DAT*mount` er_skey =0 ÿÿh will automatically be posted.+€L
€valuefu_changedect
*/

ЗоринАндрей voronkПытался выкачать при помощи:
FileOpen
FileRead ...

получил: HDR*PowerBuilder .... и усё.

небось fileMode забыл в StreamMode! поставить.

З.Ы. а зачем для ввода параметров window?
можно наверное dw обойтись?

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

Если честно, хотелось просто посмотреть, поэтому когда увидел гарбич, почесал затылок и пошёл домой.

Ну да ладно.

После того как я записал етот блоб, решил я его записать обратно в файл и сохранить.

Получилась борода, записанный файл меньше оригинала и ессественно не работает, плиз скажите чё не так:

"c:\xyz.pbd" - просто пустой файл, открыл пустой notepad и сохранил как .pbd

i_file_num = FileOpen("c:\xyz.pbd", StreamMode!, Write!, LockWrite!, Replace!)
l_new_pos = 1

Do While FileWrite( i_file_num, BlobMid(bl_tot_bl, l_new_pos, 32765)) > 0
l_new_pos += 32765
Loop

FileClose(i_file_num)

ну неужели никто не знает ...
voronkЕсли честно, хотелось просто посмотреть, поэтому когда увидел гарбич, почесал затылок и пошёл домой.

Ну да ладно.

После того как я записал етот блоб, решил я его записать обратно в файл и сохранить.

Получилась борода, записанный файл меньше оригинала и ессественно не работает, плиз скажите чё не так:

"c:\xyz.pbd" - просто пустой файл, открыл пустой notepad и сохранил как .pbd

i_file_num = FileOpen("c:\xyz.pbd", StreamMode!, Write!, LockWrite!, Replace!)
l_new_pos = 1

Do While FileWrite( i_file_num, BlobMid(bl_tot_bl, l_new_pos, 32765)) > 0
l_new_pos += 32765
Loop

FileClose(i_file_num)

integer i_file_num, i_loops, i
long l_flen, l_bytes_read, l_new_pos
blob bl, bl_tot_bl
string s
string s_tot_bl, s_bl

// Взяли файл ...
l_flen = FileLength('c:\test\xyz.pbd')
//MessageBox('', string(l_flen))

// Прочитали в блоб ...
i_file_num = FileOpen('c:\test\xyz.pbd', StreamMode!, Read!, LockRead!)

IF l_flen > 32765 THEN
IF Mod(l_flen, 32765) = 0 THEN
i_loops = l_flen/32765
ELSE
i_loops = (l_flen/32765) + 1
END IF
ELSE
i_loops = 1
END IF

l_new_pos = 1

FOR i = 1 to i_loops
l_bytes_read = FileRead(i_file_num, bl)
bl_tot_bl = bl_tot_bl + bl
NEXT

FileClose(i_file_num)


// Потом, я открыл notepad, сохранил его (пустой) как 'c:\xyz.pbd' и попытался записать в него этот самый локальный блоб bl_tot_bl

i_file_num = FileOpen('c:\test\xyz.pbd', StreamMode!, Write!, LockWrite!, Replace!)

l_new_pos = 1

Do While FileWrite( i_file_num, BlobMid(bl_tot_bl, l_new_pos, 32765)) > 0
l_new_pos += 32765
Loop

FileClose(i_file_num)

// Но в результате размер получился меньше, ну и явно, что-то не так.

Где прокол, подскажите пожалуйста.

Упс, когда делал cut/paste, где блоб записываетса обратно в файл, я в сообщении ошибся, надо:
i_file_num = FileOpen('c:\test\xyz.pbd', StreamMode!, Write!, LockWrite!, Replace!), в скрипте Ок.

Звиняйте комрады.
Разобрался, всё работает.

Читаем .pbd в блоб
отправляем блоб в базу данных.
вызываем блоб из базы данных.
удаляем xyz.pbd
по новому записываем блоб в xyz.pbd
пользуем AddToLibraryList()

Усё фурычит.
Детальки уже отполируем.