Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Web navigator and VB functions

Created by: Mr. Q-Bridge at: 5/25/2007 5:31 PM (10 Replies)

Rating (1)

Thanks 0

Result pages:: |; 1 | 2; |

11 Entries

Entries per page: 10 | all

5/25/2007 5:31 PM	Rate (0)
Mr. Q-Bridge Advanced Member Joined: 12/13/2005 Last visit: 9/26/2023 Posts: 53 Rating: (2)	Hello, In the global script VB-editor are several project modules with subs and functions. When I call these functions from a picture (for example a mouse-action of a button) the functions are recognized and executed. When I publish the pictures and push the button on the webnavigator client then I get an error that the function is unknow. What can be the problem? I'm working with WinCC v6.0 SP3 HF2 and Webnavigator v6.1 HF2 with my best regards, Bart Kumbruck

Suggestion To thank Quote Answer

5/25/2007 6:33 PM	Rate (0)
Danielle Posts: 1275 Rating: (123)	Hi, Did you publish all necessary project functions and screens, without any errors? There are some functions which aren't supported by WebNavigator. Did you make sure you're not using them? Some ODK functions won't work, neither will PWRTLogin, Loop in Alarm, etc... To check publishing errors you can open the PDLPad from Start -> Simatic -> WebNavigator -> PDLPad, open the published picture from the WebNavigator pictures, choose "Edit" and "Check Scripts". Best regards, Danielle
Danielle Posts: 1275 Rating: (123)	Last edited by: Danielle at: 25.05.2007 18:49
Suggestion To thank Quote Answer

5/25/2007 6:52 PM	Rate (0)
Mr. Q-Bridge Advanced Member Joined: 12/13/2005 Last visit: 9/26/2023 Posts: 53 Rating: (2)	Hello Danielle, When I publish the screens than all the C-scripts are selected to publish AND also there is selected that also ALL the VB-script must be published. The problem is the VB-scripts they are situated in the PROJECT-module folder. So in fact that are all the scripts that I wrote myself. greetings, Bart Kumbruck

Suggestion To thank Quote Answer

5/25/2007 7:38 PM	Rate (0)
Danielle Posts: 1275 Rating: (123)	Hi, Did you check whether you're using any unsupported functions? I have list of those, but it's not an updated list... Attachment WebNav - Unsupported Functions.PDF (439 Downloads)
Danielle Posts: 1275 Rating: (123)
Suggestion To thank Quote Answer

5/27/2007 2:33 PM	Rate (0)
Mr. Q-Bridge Advanced Member Joined: 12/13/2005 Last visit: 9/26/2023 Posts: 53 Rating: (2)	Hello Danielle, The list jou mentioned contains only C-functions and I'm using only VB-functions. When I copy the script Like it is written in de Global VB-function modules and paste it in a picture-object as for example a mouse button, then the script works fine. The problem is that scrips in a picture object can't find any function that I wrote in de Global VB-project modules. greetz, Bart

Suggestion To thank Quote Answer

5/28/2007 1:57 PM	Rate (0)
Danielle Posts: 1275 Rating: (123)	Hi, All our picture windows here open with global actions, just fine.... Couldn't it be the structure of your scripts? Remember that in Web Navigator all scripts run in the server, since the clients don't have a script engine. So if in your script you're accessing any data from the machine, or from the navigation, you might have to re-think how you're doing it for web navigator.... Could you post one of those scripts here? Best regards, Danielle
Danielle Posts: 1275 Rating: (123)
Suggestion To thank Quote Answer

5/29/2007 10:51 AM	Rate (0)
Mr. Q-Bridge Advanced Member Joined: 12/13/2005 Last visit: 9/26/2023 Posts: 53 Rating: (2)	Hello, I'm posting the Project-module with a script. The name of the function is "Berekening_ShiftRapportdata" I a picture I've a button with a mouse action in VBS with the following contence: Dim Berekening ''(8,2,12,30) Dim i, j ScreenItems("SHIFT").text = "MORGEN" Berekening = Berekening_ShiftRapportdata For i = 0 To 6 For j = 0 To 12 ScreenItems("TOT"&i&"_"&j).outputvalue = Berekening(i,0,j,1) ScreenItems("QC"&i&"_"&j).outputvalue = Berekening(i,1,j,1) ScreenItems("OK"&i&"_"&j).outputvalue = Berekening(i,2,j,1) Next Next The error message is: Variable is undefined: 'Berekening_ShiftRapportdata' Best regards, Bart Kumbruck Attachment PolierRapportering.zip (74 Downloads)

Suggestion To thank Quote Answer

6/4/2007 10:31 AM	Rate (0)
Mr. Q-Bridge Advanced Member Joined: 12/13/2005 Last visit: 9/26/2023 Posts: 53 Rating: (2)	Dear Danielle, Is it normally possible in the Webnavigator to use in the grafic Runtime (so in pictures) VB-scripts written in de Global VB-editor (so in Project-modules)? WinCC v6.0 SP3; Webnavigator V6.1 best regards, Bart Kumbruck

Suggestion To thank Quote Answer

6/4/2007 1:36 PM	Rate (0)
Danielle Posts: 1275 Rating: (123)	Hi Bart, You can run different scripts for WebNavigator. By using the ifdef webnavigator you can make sure some script lines only run under WebNavigator, and some other only run under regular runtime (This is the C function, don't know about a VB equivalent): #ifdef RUN_ON_WEBNAVIGATOR //lines which only run under WebNavigator #else //lines which run under runtime #endif I've never used this functionallity (running different stuff under WebNav) under VB... but you could use it, at least in C, to call different scripts for runtime and WebNav... In runtime you'd call the Global Script function, and in WebNav you'd just execute the code on the object... Does anyone know if there is an equivalent function in VB, and which? Best regards, Danielle
Danielle Posts: 1275 Rating: (123)	Last edited by: Danielle at: 04.06.2007 13:38 Last edited by: Danielle at: 04.06.2007 13:37 Last edited by: Danielle at: 04.06.2007 13:36
Suggestion To thank Quote Answer

1/19/2009 7:36 PM	Rate (1)
DimiCamp Posts: 168 Rating: (49)	Found a VBS equivalent for c-code: [code] #ifdef RUN_ON_WEBNAVIGATOR // enter here code to be executed only in the Navigator #else // enter here code that is executed only in the basic system #endif [/code] it can be: [code] Dim ProjectPath On Error Resume Next ProjectPath = HMIRuntime.ActiveProject.Path If IsEmpty(ProjectPath) Then HMIRuntime.Trace "Web Client" HMIRuntime.Trace vbNewLine Elseif Left(ProjectPath,1) = "\" Then HMIRuntime.Trace "Local Client" HMIRuntime.Trace vbNewLine Else HMIRuntime.Trace "Server" HMIRuntime.Trace vbNewLine End If [/code] Best Regards, Dimitri.
DimiCamp Posts: 168 Rating: (49)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on