Discussion :

[ddazou]

Bonjour tous,

Je recupère un modèle (document word) sur le serveur, je genère les données de fusion dans un fichier texte sur le serveur, je copie les deux sur le poste client pour la fusion avec une macro derrière. A la fin, je recopie sur le serveur.

Sur le poste où j'ai fait le développement, aucun souci. Avec l'URL de l'appli, j'ai fait le test sur d'autres postes et j'ai une erreur microsoft word fichier introuvable...
J'ai mis des points d'arrêts dans ma procédure et aucun problème. Je recopie bien les fichiers du serveur sur le poste client, le fichier de données est généré correctement et tout marche bien partout.
Bref! Je me suis rendu compte qu'avec un point d'arrêt après le WEBUTIL_HOST, j'arrive quand même à m'afficher le document word quelque soit le poste sur lequel je me connecte. Ce n'est pas la meilleure solution et je ne comprends pas le problème surtout que sur le poste de développement tout marche à merveille sans point d'arrêt.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
...
LC$Cmd := 'cmd /c start "" /WAIT "' || LC$Fic ;
Ret := WEBUTIL_HOST.blocking( LC$Cmd ) ;
LN$But := WEBUTIL_HOST.Get_return_Code( Ret ) ;
--pause;
...

Avec un PAUSE après le WEBUTIL_HOST, ça marche quand même sur les autres postes et j'avoue que je ne comprends pas.

Merci par avance pour votre AIDE

[SheikYerbouti]

Essayez de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pause;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

synchronize;

[ddazou]

Merci pour votre réponse

synchronize ne résout pas le problème.

Essayez de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pause;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

synchronize;

Je précise que mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
...
LC$Cmd := 'cmd /c start "" /WAIT "' || LC$Fic ;				 
Ret := WEBUTIL_HOST.blocking( LC$Cmd ) ;
LN$But := WEBUTIL_HOST.Get_return_Code( Ret ) ;
...

se trouve dans un fichier indépendant (bibliothèque attachée à des fmb).

Cependant en faisant une boucle bidon ça marche sur tous les autres postes. Sur mon poste de développement aucun souci et c'est ce que je n'arrive toujours pas à comprendre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
...
LC$Cmd := 'cmd /c start "" /WAIT "' || LC$Fic ;				 
Ret := WEBUTIL_HOST.blocking( LC$Cmd ) ;
LN$But := WEBUTIL_HOST.Get_return_Code( Ret ) ;
 
--Je contourne le problème par une perte de temps mais ce n'est pas propre
--Voir peut être avec un timer
--t number := 0 dès le départ
for i in 1..5000000 loop
   null; 
   -- ou bien t:=t+1;
end loop
 
if LN$But <> 0 then
...

N'est-il pas possible d'attendre la fin d'un programme lancé sous oracle forms avant de continuer la suite?

[SheikYerbouti]

Sinon, il y a encore l'inexpliquable improbabilité suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
     Clear_Message;
     message('xxx', no_acknowledge);
     Clear_Message;

[ddazou]

Merci, mais je n'ai pas ce bout de code dans mon programme.

Quand je rajoute le point d'arrêt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pause;

ou la boucle inutile, ça semble marcher sur les autres postes.

[SheikYerbouti]

C'était une autre proposition de code pour remplacer votre instruction pause.