This part of Meditech Client Server is a window that's outside
Meditech's API, so you'll need to use VB's SendKeys command instead, as
in something (but not exactly) like:
Wait 5
Activate "Caption" 'insert caption of Client Server application
here
SendKeys "%D", True
Wait 1
SendKeys "{Tab}", True
Wait 1
SendKeys "C"\ASCGRADE~", True
Pause "for what you see when your report's finished"
I also like Bruce's solution if you have access to Magic programming.
Rich McNeil
Boston Software Systems
866 653 5105
www.bostonworkstation.com
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Martin Reiter
Sent: Thursday, December 18, 2003 2:31 PM
To: [EMAIL PROTECTED]
Subject: [Talk] Destination field in Meditech C/S for Downloading Files
I am trying to automate a script to download some files to a server.
When I
get to the Print Destination Box, I hit Alt-D to download and tab to the
destination field. Key or Enter commands will not work here. Here's a
sample of the code:
' Enter the file name
Do While View(, , Row:=1, col:=1, length:=17) <> "Print Destination"
Loop
Stable 1
Key "%D"
Stable 1
Key "{Tab}"
Stable 1
Pause "@5,1"
Key "C:\ASCGRADE"
Key "{Tab}"
Key "{Tab}"
Does anyone see what I am doing wrong? I new to using this product.
Thank you,
Martin E. Reiter, MCSD, MCDBA, MS
Applications Programming Manager
Commonwealth Health Corporation
800 Park St.
Bowling Green, KY 42101-2356
Phone: (270) 796-5197
FAX: (270) 745-1491
"Important Warning: This message is intended for the use of the person
or
entity to whom it is addressed and may contain information that is
privileged and confidential. This disclosure is governed by applicable
law.
If you are not the intended recipient, employer or agent responsible for
delivery to the intended recipient, you are hereby notified that any
disclosure, copying or distribution of this information is strictly
prohibited."
