Forum automatisme

Bonjour à tous,

Je rencontre actuellement un soucis sur une application Movicon et j’espère que quelqu’un pourra me souffler quelques idées.


Nous avons remplacé, chez un de nos clients, un automate Leroy par un Schneider M251, nous avons ajouté une IHM HMIGTO5310 dans le TGBT avec le M251, et nous avons migré l’application de supervision Movicon 11.5 existante sur un nouveau panel PC en Movicon 11.6. L’ancien Panel PC a en effet crashé. Ce dernier tournait à priori sous Windows XP ou Vista. Le dernier panel PC doit tourner sous Windows 10 ou 11 (à reconfirmer si besoin)

La partie process fonctionne, les coms entre les différents équipements sont fonctionnelles, les enregistrements dans la base de données SQL sont bien effectués, etc…

Le dernier soucis que je rencontre actuellement est à priori lié à l’exécution d’un script utilisé pour filtrer les alarmes actives. Lorsque je tente d’appliquer ce filtre, j’ai les deux fenêtres popup qui apparaissent (voir pièces jointes). Ce problème arrive aussi bien sur site que sur un de mes PC que j’utilise pour faire des essais.


La ligne qui semble poser problème dans le script concerné est la ligne rouge suivante (je vous ai mis les 7 premières lignes du script) :

Sub Main
Dim Montrend As DLRWndCmdTarget
Dim flag As Boolean
Dim sDateStart As String
Dim sDateEnd As String

Set Montrend = GetSynopticInterface("Journal").GetAbsoluteSubObject("Journal").GetObjectInterface


Je suis en contact avec un confrère qui a déjà travaillé un peu sur des applications Movicon, et il se pourrait, selon lui, que la version d’OS du panel PC puisse être à l’origine du soucis. Selon lui, certaines commandes informatiques peuvent fonctionner sous un OS, et pas sur un autre. J’ai donc essayé de faire tourner l’application sur un vieux PC Windows XP que j’ai chez moi, mais le soucis semble toujours présent…

J’ai l’impression qu’il faudrait faire appel à une autre commande, mais je ne maitrise malheureusement pas assez le codage informatique en général pour retaper un code complet pour faire marcher cette fonction de tri…

Est-ce que quelqu’un aurait une idée ? Est-ce que quelqu’un a déjà rencontré ce genre de problèmes ?

Je ne sais plus trop quoi faire de mon côté pour résoudre ce dernier soucis…

En vous remerciant de l’aide/des suggestions que vous pourrez m’apporter, et restant disponible pour tous compléments d’informations dont vous pourriez avoir besoin, je vous souhaite à tous une agréable fin de journée et un très bon weekend !

Bien cordialement.

M. Ferret

Bonjour,

Je ne connais pas Movicon.
La première démarche c'est de vérifier qu'il y a bien une fenêtre "Journal" qui contient un objet "Journal" parce que le message d'erreur indique que l'objet n'a pas été trouvé.
D'après la documentation on devrait plutôt trouver une instruction de ce style : Mais cela dépend d'où se trouve le script.

Bonjour Bruce33,

Tout d'abord, merci d'avoir pris le temps de me répondre.

Je te confirme qu'il existe bien un écran nommé Journal, et que cet écran contient bien lui même un objet Journal (voir première pièces jointes).

En tapant la commande que tu m’as indiqué dans le script, avant même d’essayer d’exécuter ce dernier, je constate que la partie « GetSynopticObject » reste en noir dans le code, ce qui à priori indique que la commande n’est pas connue/reconnue…

Puis en exécutant le script, j’obtiens le message d’erreur « Pas une référence d’objet » sur la nouvelle ligne de commande (voir seconde capture d’écran).

J’ai tendance à me dire qu’il faudrait pouvoir indiquer dans quel fenêtre obtenir le sous objet « Journal », comme cela était à priori fait dans le code initial.

J’ai donc essayé de taper les commandes suivantes, sans succès :
Set Montrend = GetSynopticObject("Journal").GetAbsoluteSubObject("Journal").GetObjectInterface

Set Montrend = GetSynopticInterface("Journal").GetSynopticObject("Journal").GetAbsoluteSubObject("Journal").GetObjectInterface

'Set Montrend = GetSynopticInterface("Journal"). GetSynopticObject("Journal").GetObjectInterface("Journal")'

J’ai systématiquement le message d’erreur « (10094) Automatisation ActiveX : La var Object est ‘Rien’ ».

En fouillant un peu dans le logiciel et diverses docs, je suis tombé sur la fenêtre « Références » dans laquelle je peux activer/désactiver des options/menus… J’ai coché tout ce que j’ai trouvé contenant la référence ActiveX, mais là aussi sans succès… J’avoue que je tente certaines choses de manière totalement aléatoire !

Est-ce qu’il y a des choses particulières à savoir concernant ces ActiveX ?

Encore une fois en te remerciant pour ton aide, je te souhaite une bonne journée !

Bien cordialement.

M. Ferret

Salut
Inutile de rajouter des références puisqu'il s'agit d'un objet interne à Movicon.
Si le script est exécuté depuis le module "script basic" alors la commande GetSynopticInterface("Journal").GetAbsoluteSubObject("Journal").GetObjectInterface devrait faire l'affaire; si il existe un synoptique nommé "Journal" dans lequel se trouve un Objet DataLogger nommé lui aussi "Journal"

Bonjour djé,

Merci pour ton message.

Je te confirme que j'ai bien un écran nommé "Journal", dans lequel est bien présent un objet nommé "Journal" qui affiche les données présentes dans le datalogger lui même nommé "Journal". Pour autant, je fais toujours face à ce même message (10094) Automatisation ActiveX : La var Object est ‘Rien’. J'ai constaté cependant que le numéro de la ligne indiqué par le message d'erreur bouge parfois... Actuellement il m'indique un défaut ligne 22. Mais quand il me propose d'ouvrir l'éditeur de script pour me montrer l'erreur, cette dernière est toujours présente sur la ligne 7:

Set Montrend = GetSynopticInterface("Journal").GetAbsoluteSubObject("Journal").GetObjectInterface

Cdlt.

Vérifie bien la syntaxe et la casse dans les script.
Vérifie bien pour le nom de la page et le nom de l'objet.
"Journal" est différent de "journal"
Au besoin renomme la page "Journal" en "scrJournal" et fais référence dans ton script au nouveau nom
Au besoin renomme l'objet "Journal" en "objJournal" et fais référence dans ton script au nouveau nom

GetSynopticInterface("scrJournal").GetAbsoluteSubObject("objJournal").GetObjectInterface

enregistre et ferme le projet , rouvre le et fais l'essai en simul.

Je sais que lors de l'archivage interne des projets Movicon au format ZIP, celui-ci mets tout en minuscule et aux niveaux des accents j'te raconte même pas.

Salut djé,

J'ai tout revérifié comme tu me l'as conseillé, tout semble ok.

J'ai suivi tes conseils et j'ai renommé le nom de l'écran, et le nom de l'objet (voir les captures d'écran). J'ai effectué la commande "Apply renamed variables and resources", enregistré et fermé le projet.

Côté script, le code est maintenant le suivant:

Set Montrend = GetSynopticInterface("scrJournal").GetAbsoluteSubObject("objJournal").GetObjectInterface

Toujours le même problème...

Dans un second temps, j'ai vu que je pouvais donner un nom public à l'objet que j'ai du coup appeler "objJournal", et j'ai également coché la case "Global Name", mais là aussi sans succès.

J'avais pourtant bon espoir!

Contacte moi en MP si tu veux

Autre chose, je ne connais pas ton application mais vu que à priori tu utilises un script du module "ScriptBasic" est-ce que lorsque ce script s’exécute la fenêtre contenant le journal est ouverte?
Si la fenêtre n'est pas ouverte au moment de l’exécution alors ca plante car l'objet n'est pas chargé en mémoire.