How to inicialize MSOScriptAccess

[JPozo]

Hello Friends,
I am trying to use MSQ000 objects in orden to access MSO screens throu VB, I can enter to ellipse, open a screen, but I can´t use the fields and screen objects.
How can I use the MSOScriptAccess object, I can create or inicialize one.

I tryied:
Set aMSQ000 = New MSQ000.MSOScriptAccess
and I have the following error:
ActiveX component can't create object

Best regards,
Javier Pozo

 

[dianne001]

You might want to look at thread725-516294.
I had to access mso screens through a vb application.
hope it will help you.
Thanks,
Dianne001

 

[JPozo]

Hello Dianne,
The code seems to be for MSQMUI, I was using this for MIMS 4.3.1.2, but now we are going to Ellipse and I can see that I have to use MSQ000 but its object are different.
Thanks for your answer.
Javier

 

[Archimedez]

Javier,

VB scripting for MSO screens is much harder than MSQ screens.

Whicj MSO screen do you want to use? I have MANY MSO scripts already built in VB and can help you: archimedez@comcast.net

 

[martinaj]

I actually just did something similar to this in C#.

The steps I went through to make this all work are:

1. Create MimsApplicationClass object (we'll call it app)
2. Login to Ellipse using app.Session.Login
3. Execute the MSO screen you want with app.MSOView.ExecuteMSO.
4. If the MSO executed, you should already be able to access the scripting for the MSO screen via the LegacyScript object (no need to instantiate a new ScriptAccessClass).

So in VB (sorry if this is bad, I don't do much VB):

Dim app as MimsApplicationClass
app = new MimsApplicationClass()
app.Session.Login(0, true)
app.ExecuteMSO("MSO260")
app.MSOView.LegacyScript.set_Field("PO_NO1I", "P45678")

Mind the fact that I didn't include error checking, etc.

Cheers,

Andy