5/23/2014 8:47 AM | |
Joined: 11/9/2009 Last visit: 2/1/2020 Posts: 12 Rating: (0) |
Hello Kim Thanks for your reply. YES i wantAlarm list to be automatically generated and stored hour by hour, and includes hour-seperated alarms. I have prepare vb ACTION which is called every one hour trigger. *************************************************** Dim Obj,ObjAlm Dim DateTime Dim sBeginTime,sEndTime Dim sSql Dim i sBeginTime = Year(Date)& "-" & Month(Date) & "-" & Day(Date)& " " & Hour(Time)-1 & ":" & Minute(Time)& ":" & Second(Time)& ".999" sEndTime = Year(Date)& "-" & Month(Date) & "-" & Day(Date)& " " & Hour(Time) & ":" & Minute(Time)& ":" & Second(Time) & ".999" sSql = "DateTime <='"&sEndTime&"' AND " sSql = sSql & "DateTime >='"&sBeginTime&"'" Set Obj = HMIRuntime.Screens("@1001.@Desk:HISTORICAL ALARM LIST").ScreenItems("Historical Alarm Control") Obj.DefaultMsgFilterSQL = sSql Obj.MsgFilterSQL = sSql Obj.Export() Obj.ExportFilenameChangeable = 1 Obj.ExportFilename = ("Alarm_"&Replace(Date,"/","_") &"_" & Replace(Time,":","_")) Obj.ExportFilenameChangeable = 0 Obj.ExportShowDialog = 0 ************************************** Above Script is not working correctly (it is sorts last one hour alrams and export csv in Alarm Export folder , but when i open csv it i found only column heading ,no alarms are there) When I called same type of script on mouse action of Wincc button (button placed in pdl of alarm control) it works perfectly by clicking on button. (i.e. this is manual action for me , i dont want manual action) ********************************** Dim Obj,ExportDia Dim CurDate Dim CurTime Dim DateTime Dim ObjDia Dim sBeginTime,sEndTime,sFilter Dim sBeginYear,sBeginMonth,sBeginDay,sBeginHour,sBeginMinute,sBeginSecond Dim sEndYear,sEndMonth,sEndDay,sEndHour,sEndMinute,sEndSecond Dim Sel Dim sSql Set Obj = ScreenItems("Historical Alarm Control") sBeginTime = Year(Date)& "-" & Month(Date) & "-" & Day(Date)& " " & Hour(Time)-1 & ":" & Minute(Time)& ":" & Second(Time)& ".999" sEndTime = Year(Date)& "-" & Month(Date) & "-" & Day(Date)& " " & Hour(Time) & ":" & Minute(Time)& ":" & Second(Time) & ".999" sSql = "DateTime <='"&sEndTime&"' AND " sSql = sSql & "DateTime >='"&sBeginTime&"'" MsgBox sSql Obj.DefaultMsgFilterSQL = sSql Obj.MsgFilterSQL = sSql MsgBox sSql Set Obj = ScreenItems("Historical Alarm Control") Obj.Export obj.ExportFilenameChangeable = 1 obj.ExportFilename = ("Alarm_"&Replace(Date,"/","_") &"_" & Replace(Time,":","_")) obj.ExportFilenameChangeable = 0 Obj.ExportShowDialog = 0 ********************************** I have attached VB action is not perfectly working and PDL with Export button is perfectly wotking. I want to know why VB action is not working properly . please help me as early as possible.. Thanks
AttachmentTest.zip (826 Downloads) |
5/23/2014 3:58 PM | |
Joined: 11/9/2009 Last visit: 2/1/2020 Posts: 12 Rating: (0) |
Hello Komi, Please do reply on the same asap Regards, Samadhan
|
5/27/2014 8:13 AM | |
Posts: 291 Rating: (69) |
Hello Samadhan, To be brief, In my attachment, there's a .bmo file named "Komi_EventOutput.bmo", please do: (1) Put the "Komi_EventOutput.bmo" to the \ScriptLib folder in your project. (2) Modify the UID and PWD as what you gave while installing WinCC & SQL Server 2005. (refer to the attached .jpg file inside, please!) (3) Creat a HMI button and write: '==================================================== KOutputPreviousEvent(Date) 'To Export the Event-List of previous day! '==================================================== Also, please build a "Global Script - Diagnostics" window in advance. (5) Activate WinCC-RT and press button(3) Check the "Global Script -Diagnostics" and see if there's any messages like: '==================================================== Offset: 8 vtDate= 2014/5/26 Day of Year=146 dso=28 dwi=28 TimeZone=8 vtDateUTC=2014/5/25 下午 04:00:00 Offset: 8 vtDate= 2014/5/26 Day of Year=146 dso=28 dwi=28 TimeZone=8 vtDateUTC=2014/5/25 下午 04:00:00 The count of Events is : 2 records. '==================================================== (6) Then, Get to the "D:\EVENT_LOG" to check if there's Text file created. (if you have D-drive, this folder will be created automatically) Please test it and paste me the "Message" you got as shown in (5). If it works well in your side, I'll then modify it into "hourly report" as soon as possible. Best regards, Komi
AttachmentEvents_Yesterday.zip (687 Downloads) |
This contribution was helpful to1 thankful Users |
5/29/2014 9:57 AM | |
Posts: 291 Rating: (69) |
Hello Samadhan, Here you're getting the Hourly-Alarm-Report as the attachment. Sorry ...I don't have time to explain the mechanism, please allow me to say in brief: (1) Replace the previous .bmo file with the attached .bmo file. (2) Modify the UID & PWD inside the script for two subroutines: Sub GetDataFr_SQL_Alarms_Hourly() & Sub GetDataFr_SQL_Alarms_Partial() (3) Call the subroutine for getting "last hour's events" by: '================================================== KOutputPreviousEvent_Hourly (Now) 'To Export the Event-List belonging to last hour! '================================================== (4) Get to "D:\EVENT_LOG" to get what you want. Best regards, Komi
AttachmentHourly_ALMReport.zip (722 Downloads) |
This contribution was helpful to1 thankful Users |
Follow us on