Discussion :

[stefano]

Bonjour à tous,

Je suis confronté à un problème et j'espère que vous pourrez m'apporter votre savoir-faire pour tenter de le résoudre.

Contexte :

J'ai un site distant qui se connecte à une base 4D via un serveur CITRIX, à partir de cette base les utilisateurs souhaiterai imprimer des étiquettes code barre. L'imprimante en service ne peux être relier sur le poste client que par le port COM1.
J'ai contacté mon prestataire de service pour CITRIX pour qu'il fasse correspondre le COM1 du serveur avec le COM1 du client. Après plusieurs essais de sa part, ils nous à fait part de l'impossibilité de nous donner satisfaction.

Avec mon chef de service, nous avons opter pour une autre solution, c'est à dire de générer un fichier texte à partir de la version serveur et de l'enregistrer à la racine du disque dur sur le poste client.
Nous avons mis en place une procédure qui s'exécute en version local, qui parcours le fichier texte et envoi les informations à l'imprimante pour éditer les codes barres.
Jusque là tout fonctionne super bien.

Nous souhaiterions pour l'utilisateur que tout se fasse de façon totalement transparente pour lui. C'est à dire qu'à partir de la version client/serveur ouvrir une autre instance 4D qui ouvrirai et executerai la seconde base mais cette fois-ci en local.

Nous avons essayés la commande Lancer process Externe pour exécuter un script.VBS pour lancer 4D avec la base en local mais sans succès.

Code :

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

1
2
3
4
5
6
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
strFolder1 = "C:\Documents and Settings\USER\Application Data\4D\Favorites v11\Local\"
strFolder2 = "C:\Program Files\4D_SQL11\"
WshShell.Run """" & strFolder2 & "4D.exe"" """ & strFolder1 & "\Etiquettes.4DLink""", 1, TRUE

Tenter de remplacer le script VBS par un BAT mais là nous n'arrivons pas à faire passer en paramètre le racourci 4Dlink qui à été créer par 4D.
Auriez vous une petite idée pour ouvrir la version local automatiquement à partir de la version serveur ?

Je vous en remercie par avance .

[michelS]

Bonjour,

Une idée. Je pense qu'il faudrait déjà éviter les espaces, --> 'C:\Program Files\4D_SQL11\' dans le script. Pour récupérer le chemin sans espace, il faut sous DOS, aller dans le répertoire père et faire un dir /X.
De cette manière on voit le nom 'Program Files' et le nom système sans espace 'PROGRA~2' (par exemple).
Ceci pour l'application 4D et le fichier link.

A +

[stefano]

Merci pour votre réponse mais le script VBS fonctionne lorsque je double clique sur le fichier vbs. mais pas lorsque je tente de l'appeler depuis 4D

[jmbiraghi]

Voir peut-être ici :

http://kb.4d.com/assetid=75186

[stanc]

Bonjour,

Ne serait-il pas plus simple et moins coûteux de changer d'imprimante ? Il devrait être possible d'imprimer directement avec une imprimante réseau.