Ask our Experts
Didn't find what you are looking for? Ask our experts!
Launch of Consumer/Home Owner registration process! We are pleased to announce the commencement of the Consumer/Home Owner Registration Process on Community. Consumers/Home Owners may now proceed to register by clicking on Login/Register. The process is straightforward and designed to be completed in just a few steps.
Schneider Electric support forum about installation, configuration, integration and troubleshooting of EcoStruxure Geo SCADA Expert (ClearSCADA, ViewX, WebX).
Search in
Link copied. Please paste this link to share this article on your social media post.
Posted: 2019-10-26 03:03 AM . Last Modified: 2023-05-03 12:38 AM
>>Message imported from previous forum - Category:Scripts and Tips<<
User: admin, originally posted: 2018-10-19 19:45:51 Id:160
This is a re-posting from the obsoleted (October 2018) "Schneider Electric Telemetry & SCADA" forum.
-------------------------------
**_Andrew:
Good morning all, i wrote a script that generates and exports a crystal report (that works fine) after the export the script is supposed to change the value of a few points.
ex._**
_call Server.SetOPCValue("1")
Gen.Interface.Generate
Exp.Interface.Export
call Server.SetOPCValue("2")
call Server.SetOPCValue("3")_
**_value 1 changes, but 2 and 3 do not. What am I missing here?
Thanks, Andre_**
-------------------------------
AWoodland:
SetOPCValue takes two parameters, the property you are changing and the value, make sure you provide both.
____________________________
**_Andrew:
Here is a copy of the exact logic i currently have. It's working until i get to
"call Server.SetOPCValue("~HFOTCO.Pipeline.OMNI.Delivery Data.Points.Product Reset", 1)"_**
_sub endBatchNew
DIM Gen, EXP
Set Gen=Server.FindObject("~HFOTCO.Pipeline.OMNI.Reports.Batch.~OutBound Batch Report")
Set Exp=Server.FindObject("~HFOTCO.Pipeline.OMNI.Reports.Batch.~OutBound Batch Report")
if server.thisobject.checkaccess("CTL") = true then
ret = msgbox("Are you sure you want to end the current batch?", vbExclamation + vbyesno + vbDefaultButton2, "WARNING!!!")
if ret vbyes then exit sub
call server.setopcvalue("~HFOTCO.Pipeline.OMNI.Delivery Data.Points.End Batch and Print",1)
Gen.Interface.Generate
Sleep(15000)
Gen.Interface.Generate
Sleep(5000)
Exp.Interface.Export
sleep(1000)
call Server.SetOPCValue("~HFOTCO.Pipeline.OMNI.Delivery Data.Points.Product Reset", 1)
Attached file: (editor/6f/gax8zjmrut0u.jpg), SFC.jpg File size: 22866
Link copied. Please paste this link to share this article on your social media post.
You’ve reached the end of your document
Create your free account or log in to subscribe to the board - and gain access to more than 10,000+ support articles along with insights from experts and peers.