[FORMS 6i] Appel d'une autre Form [Résolu]

[Nounoursonne]

Bonjour tous,

voila mon problème :
j'ai une Form A, qui insere une ligne en BDD
cette Form A doit appeler une Form B,
MAIS, la Form A doit toujours être active,
la Form B est elle en barre de tache et attends une réponse du serveur et s'active dès qu'elle recoit une réponse

mon soucis est d'appeler la Form B et de toujours être sur la Form A
j'ai essayé call_form, open_form et new form, mais apparemment c'est toujours la Form B qui a le dessus sur la Form A

quelqu'un a t'il une astuce pour palier à mon soucis ?

Merci par avance

[SheikYerbouti]

Bonjour,

Essayez Open_Form() avec le paramètre NO_ACTIVATE

[Nounoursonne]

voici mon code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
DECLARE 
pl_id   ParamList; 
  pl_name VARCHAR2(10) := 'ptmp';
  version varchar2(3);
  pass_langue number; 
BEGIN 
  pl_id := Create_Parameter_List(pl_name);
				  	  Add_Parameter(pl_id,'id_demande',TEXT_PARAMETER,new_id);
				  	Add_Parameter(pl_id,'SITEGEO',TEXT_PARAMETER,:parameter.sitegeo);
				  	message(:parameter.sitegeo||'_'||new_id);
				  			  		open_form('c:\attente_reponse',no_activate,session,no_share_library_data,pl_id);
					  destroy_parameter_list(pl_id);
					END;

il appelle bien la 2eme form, mais je n'ai pas la main sur la 1ere

[SheikYerbouti]

Comment ça pas la main ? Il n'ya a que CALL_FORM() qui est bloquant sur la forme appelante.

[Nounoursonne]

c'est bien ce que j'avais compris egalement
mais là, dans la barre de tache windows, je n'ai bien qu'une appli form qui tourne et non pas 2, l'appelante n'est pas accessible, sauf si l'appelée est fermée

j'avous que je ne comprends pas ce qui cloche

[SheikYerbouti]

Il ne faut pas confondre. OPEN_FORM() ne lance pas une nouvelle application Forms indépendante, elle ouvre une autre fenêtre, dans la MDI en cours.
Il n'ya a donc toujours qu'une seule tâche.
Si vous voulez lancer un tout nouvel environnement, il vaut mieux utiliser l'instruction Web.Show_Document() avec l'url complète de démarrage d'une application Forms.

[SheikYerbouti]

De plus, merci d'indiquer le numéro des versions utilisées.

[Nounoursonne]

je suis en forms 6ien Client/serveur

[SheikYerbouti]

Dans ce cas, quelque chose avec la commande Host() ou la librairie d2kwutil

[Nounoursonne]

dans ce cas, j'ai bien deux applis distinctes, mais l'appelante attends toujours que l'appelée ai fini son travail :s

[SheikYerbouti]

La librairie d2kwutil contient une commande de type win_exec, regardez dans cette direction.

[Nounoursonne]

j'ai le meme comportement qu'avec la commande Host

[SheikYerbouti]

Win_Api_Shell.win_exec( WindowStyle => SW_SHOWMINNOACTIVE );

merci de coller le code que vous utilisez, c'est plus facile pour comprendre !

[Nounoursonne]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
DECLARE 
  pl_id   ParamList; 
  pl_name VARCHAR2(10) := 'ptmp';
  version varchar2(3);
  pass_langue number; 
BEGIN 
  pl_id := Create_Parameter_List(pl_name);
	Add_Parameter(pl_id,'id_demande',TEXT_PARAMETER,new_id);
	Add_Parameter(pl_id,'SITEGEO',TEXT_PARAMETER,:parameter.sitegeo);
	message(:parameter.sitegeo||'_'||new_id);
	win_api_shell.winexec('c:\orant\bin\ifrun60.exe module=c:\attente_reponse.fmx userid=xxx/xxx@test sitegeo=01 id_demande='||new_id,WIN_API.SW_SHOWMINIMIZED,TRUE);
	--host('c:\orant\bin\ifrun60.exe module=c:\attente_reponse.fmx userid=xxx/xxx@test sitegeo=01 id_demande='||new_id);
	--open_form('c:\attente_reponse',no_activate,session,no_share_library_data,pl_id);
  destroy_parameter_list(pl_id);
END;

[SheikYerbouti]

Essayez avec SW_SHOWNOACTIVATE
sinon, peut-être

Code :

Host(' cmd /c Start "" "la commande"' ) ;

[Nounoursonne]

à priori ça ne marche pas

Code :

1
2
 
host( 'cmd /c Start "" "c:\ifrun60.exe module=c:\attente_reponse.fmx userid=xxx/xxx@test sitegeo=01 id_demande='||new_id||'"');

il me dit qu'il ne trouve pas "c:\ifrun60.exe module=c:\attente_reponse.fmx userid=xxx/xxx@test sitegeo=01 id_demande=1"

[SheikYerbouti]

J'ai créé une nouvelle forme avec un unique bouton donc voici le code du When-Button-pressed trigger:

Code :

HOST('CMD /C START "" "C:\Program Files\FileZilla\filezilla.exe "' ) ;

Et ça fonctionne parfaitement (Forms 9.0.2)

[Nounoursonne]

apres divers test, il apparait que c'est les paramètres qui ne sont pas appréciés dans mon cas ( en l'occurence ce qui se trouve après ifbld60.exe)

[SheikYerbouti]

Cela fonctionne aussi avec:

Code :

HOST('CMD /C START "" "winword.exe c:\temp\essai.doc"' ) ;

[Nounoursonne]

et bien avec ifrun60.exe ça ne veut pas fonctionner
ni meme avec winword.exe
pourquoi chez vous ça marche