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 35
|
-- appid := DDE.APP_BEGIN ('C:\Program Files\Microsoft Office\Office10\winword.exe', DDE.APP_MODE_MINIMIZED);
host ('CMD /C START "xx" winword.exe');
convid := DDE.INITIATE ('WINWORD', 'SYSTEM');
DDE.execute (convid, '[FileOpen "c:\temp\cdi_tp.dot"]', 10000);
docid := DDE.INITIATE ('WINWORD', 'c:\temp\cdi_tp.dot');
DDE.POKE (DOCID, 'AGENT1', nom_pren, DDE.CF_TEXT, 10000);
DDE.POKE (DOCID, 'COMMUNE', commune, DDE.CF_TEXT, 10000);
DDE.POKE (DOCID, 'DUREE_ESSAI', duree_essai, DDE.CF_TEXT, 10000);
DDE.POKE (DOCID, 'DATE_FIN_ESSAI', date_fin_essai, DDE.CF_TEXT, 10000);
DDE.POKE (DOCID, 'COEF', coef, DDE.CF_TEXT, 10000);
DDE.POKE (DOCID, 'BASE_MENSUEL', base_mensuel, DDE.CF_TEXT, 10000);
DDE.POKE (DOCID, 'RENDEMENT', rendement, DDE.CF_TEXT, 10000);
DDE.EXECUTE (docid, '[FileSaveAs "c:\temp\test_word.doc"]', 10000);
DDE.TERMINATE (convid);
/* Les exceptions */
EXCEPTION
WHEN DDE.DDE_APP_FAILURE THEN
a_info ('Word n''a pas démarrer');
WHEN DDE.DDE_PARAM_ERR THEN
a_info ('Un paramètre Null a été passé au DDE');
WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
a_info ('DDE n''a pas pu établir la conversation');
WHEN DDE.DMLERR_NOTPROCESSED THEN
a_info ('La transaction a échoué');
WHEN OTHERS THEN
a_info ( 'Ou est égal à : *** '||ou||' ***');
RAISE FORM_TRIGGER_FAILURE; |
Partager