www.insoft.ru/alexey

функции для открытия документов по расширению и для их печати. Если например у тебя заказчики требуют возможность сохранения в файл, а родной Oracle Reports глючит, то я использую такую конструкцию
pl_id:=Create_parameter_list('my_listok');
CALL_FORM('param_rep6.fmx', no_hide, do_replace, query_only);
IF :global.type_rep=1 THEN
add_parameter(pl_id,'destype',TEXT_PARAMETER,'preview');
ELSIF :global.type_rep=2 THEN
add_parameter(pl_id,'destype',TEXT_PARAMETER,'FILE');
add_parameter(pl_id,'desname',TEXT_PARAMETER,:global.file_name);
IF :global.ID_DESFORMAT=1 THEN
add_parameter(pl_id,'desformat',TEXT_PARAMETER,'RTF');
ELSIF :global.ID_DESFORMAT=2 THEN
add_parameter(pl_id,'desformat',TEXT_PARAMETER,'HTML');
END IF;
ELSIF :global.type_rep=3 THEN
add_parameter(pl_id,'destype',TEXT_PARAMETER,'PRINTER');
ELSIF :global.type_rep=4 THEN
DESTROY_PARAMETER_LIST(PL_ID);
RAISE FORM_TRIGGER_FAILURE;
END IF;

add_parameter(pl_id,'n_id_v',TEXT_PARAMETER, :v_search_video.id_v);
add_parameter(pl_id,'paramform',TEXT_PARAMETER,'no');
RUN_PRODUCT (reports, rep_file, SYNCHRONOUS, runtime, filesystem, pl_id, null);
DESTROY_PARAMETER_LIST(PL_ID);

IF :global.after_gen=2 THEN
n:=les_add_api.opendoc(:global.file_name);
END IF;

les21@mail.ru