Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Oracle Forms 6 и поля слияния в Word / 5 сообщений из 5, страница 1 из 1
30.08.2006, 11:17
    #33951704
alex_soft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oracle Forms 6 и поля слияния в Word
Всем доброго ...
Задача:
Необходимо вывести в Worde какой-то текст в котором нужно вставить данные из базы. (Почему Word? Чтобы пользователи могли что-то править и там нужну колонтитулы).
Как я сделал:
Создал в Forms_ах файл-табличку формата html (это будем у меня как файл источника данных). В Word_е создал документ в которых вставил данные и файла источника данных. То есть у меня получаеться что в процессе выполнения сначала создаеться файл (*.html) и сразу запускаеться Word.
В чем проблема:
При открытии Word_а выпрыгивает окно и спрашивает данные помещать в документ или нет.
Вопрос Как избавиться от отого окно или если кто-то делал что-то подобное, просьба подсказать.
...
Рейтинг: 0 / 0
30.08.2006, 11:35
    #33951769
Sergey_Evdokimov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oracle Forms 6 и поля слияния в Word
alex_softв процессе выполнения сначала создаеться файл (*.html) и сразу запускаеться Word. Если по мужски приведете код - попробую найти как избавицо...
...
Рейтинг: 0 / 0
30.08.2006, 11:38
    #33951784
alex_soft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oracle Forms 6 и поля слияния в Word
Вот что на кнопке выполнения "висит".

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
DECLARE
	V_FILE text_io.FILE_TYPE;
	v_dir       VARCHAR2( 100 ) := ('C:\');
  v_fname     VARCHAR2( 100 ) := ('proba.html');
  c3	varchar2( 10 );
  c1 varchar2( 200 );
  n   varchar2( 10 );
  d   date;
 
  begin
	V_FILE := text_io.fopen (v_dir || v_fname ,'w');
	text_io.PUTF(V_FILE,'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">');
	text_io.PUTF(V_FILE,'<html>');
	text_io.PUTF(V_FILE,'<head>');
  text_io.PUTF(V_FILE,'<title>Справка о введенных платежах </title>');
  text_io.PUTF(V_FILE,'</head>');
  SELECT CLIE_NAME3 , CLIE_NAME1, AGRM_NUMBER, AGRM_DT1 into c3,c1,n,d
  FROM CLIENTS , AGREEMENTS 
 WHERE CLIE_ID = AGRM_CLIE_ID(+)
   AND CLIE_NAME3 = :fil.clie_name
   AND AGRM_DT2 IS NULL;
    text_io.PUTF(V_FILE,'<table border="1" cellpadding="0" cellspacing="0" style="border: 1px solid black">'); 	 
  	text_io.PUTF(V_FILE,'<tr>');
    text_io.PUTF(V_FILE,'<td>1</td><td>2</td><td>3</td><td>4</td>');
    text_io.PUTF(V_FILE,'</tr>');
    text_io.PUTF(V_FILE,'<tr>');
  	text_io.PUTF(V_FILE,'<td>'||(c3)||'</td>'||'<td>'||(c1)||'</td>'||'<td>'||(n)||'</td>'||'<td>'||(d)||'</td>');
   	text_io.PUTF(V_FILE,'</tr>');
   	text_io.PUTF(V_FILE,'</body>');
    text_io.PUTF(V_FILE,'</html>');
		text_io.FCLOSE(V_FILE);
	Set_Alert_Property('end', ALERT_MESSAGE_TEXT, 'Печатать');		
  id_alert:=show_alert('end');
		Host('cmd /c start c:/cavu.doc');
		end;
...
Рейтинг: 0 / 0
30.08.2006, 11:48
    #33951819
Sergey_Evdokimov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oracle Forms 6 и поля слияния в Word
Код: plaintext
1.
Set_Alert_Property('end', ALERT_MESSAGE_TEXT, 'Печатать');
  id_alert:=show_alert('end');
У меня кроме вашего алерта на Office 2003 ничего лишнего не выпрыгивает... Смотрите настройки Worda.
И еще попробуйте выкинуть строчку
Код: plaintext
text_io.PUTF(V_FILE,'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">');
...
Рейтинг: 0 / 0
01.09.2006, 11:18
    #33957766
alex_soft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oracle Forms 6 и поля слияния в Word
Большое спасибо!
В настройках Worda такого не нашел попробую это окно "убить" макросом.
...
Рейтинг: 0 / 0
Форумы / Oracle Forms [игнор отключен] [закрыт для гостей] / Oracle Forms 6 и поля слияния в Word / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]