MagistrAnatol
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
deks
пасибо разобрался, взял сорцы из копилки а компилятор из триала  и все пошло
Теперь другой вопрос
есть таблица файребирда
CREATE TABLE FRX_TEMPLATE (
CH INTEGER DEFAULT 0,
TEMPLATE_ID INTEGER,
TEMPLATE_GROUP INTEGER,
TEMPLATE_NAME VARCHAR(70),
TEMPLATE_FILE_NAME VARCHAR(20),
TEMPATE_TEXT BLOB SUB_TYPE 1 SEGMENT SIZE 16384 CHARACTER SET UTF8,
FRX_TEMPLATE_ID INTEGER NOT NULL
);
есть скрипт
execute ibeblock
as
begin
fr3_path='D:\Робота\Проекты в розробке\VDGO_NEW\Win32\Debug\TMPL\';
ibec_InputQuery('Введіть шлях до файлів шаблонів','*.fr3',fr3_path);
ibec_progress('Пошук шаблонів...');
files_count = ibec_getfiles(files_list, :fr3_path, '*.fr3', __gfRecursiveSearch + __gfFullName);
if (files_count > 0) then
begin
i = 0;
while (i <= ibec_high(files_list)) do begin
file_name = files_list[i];
script_data='';
script_data = ibec_loadfromfile(file_name);
ibec_progress('Знайдено шаблон ' || :file_name);
ibec_Pause(500);
fn=ibec_ExtractFileName(:file_name);
fnpos=ibec_Pos('.', fn);
TEMPLATE_FILE_NAME=ibec_Copy(fn,1,fnpos-1);
--tmpl_text=ibec_UTF8ToAnsiString(:script_data);
update FRX_TEMPLATE set TEMPATE_TEXT=:script_data where TEMPLATE_FILE_NAME=:TEMPLATE_FILE_NAME;
commit;
i = i + 1;
end
end
end;
и в поле TEMPATE_TEXT не могу нормально загнать шаблон фастрепорта,в чем прикол? что я не так делаю??? |
, вот и пришлось руками все делать 