Hey Mitch, not sure if you got this answered completely, but I have a script that displays the number of records in a Window.
The hardest part was counting the records in the data station file
because there is no trick or shortcut from BWS. So, I first have a step
to count the total number of records in the file - this is just a
standard Step in BWS:
Dim RecCount As Integer
Do While D("PAT_ID") <> ""
RecCount = RecCount + 1
D.Next_
F("COUNT") = RecCount
Loop
D.Record = 1
>From the counting perspective, when the script hits the D.Next step,
there is additional code to increment the count:
D.Next_
F("CURRECORD") = F("CURRECORD") + 1
ACTfrmUser_Activate
Wait 2
Activate "Halifax*", True
To make it easy, I send the flag to the subs:
Private Sub ACTfrmUser_Activate()
frmUser.Caption = "QMS CERT NOTE DATA"
frmUser.StartUpPosition = 3
frmUser.lblTotCountVal = F("COUNT")
frmUser.lblCurrentVal = F("CURRECORD")
frmUser.Show
End Sub
Private Sub DEACTfrmUser_Deactivate()
frmUser.Hide
Activate "Halifax*", True
End Sub
I remember the key to this was the ShowModal property for the form to be
set at False... It created issues when it wasn't set up that way. I'm
sure you are aware, the position property will allow you to set where
the form appears on the screen.
Kim Scaccia, System Admin
Halifax Health
386-226-4590 opt 1 ext 2018
________________________________
From: [email protected] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, November 04, 2008 12:42 PM
To: [email protected]
Subject: [talkbws] Progress window?
Good morning all.
Sitting here watching a script of mine run, and I'm thinking to myself
"I wonder if I could get some kind of window in the lower left part of
the screen somewhere that lists the name of the script and some kind of
progress bar or "Record xx of yyy" type of display."
Anyone have something like this and can send me the code?
Background: My projects run minimized (Taskbar = True), are rules-based
(with the odd vb function/sub), and interact with Meditech C/S, using
excel as the database.
Thank you,
Mitch Lawrence
Lead Applications Analyst
Technical Support - NPR/Automation
CHRISTUS Information Management
*: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
Send a "thank you
<http://intranet.christushealth.org/spiritBuck/Default.asp> " to
someone!
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [EMAIL PROTECTED]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk
.aspx
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [EMAIL PROTECTED]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk
.aspx
<<image001.jpg>>
