I have a small application that scrapes 5 fields from Meditech and enters
them into a Windows screen. Very simply, I activate the Meditech windows,
grab the data, activate the windows screen and dump it in using Sendkeys,
see code below. All data in Meditech is in upper case. However, as of this
morning, the sendkeys dumps the data in lower case. (Actually the opposite
case). If the VendorName was "XYZ Corp" in Meditech, it would end up "xyz
cORP". I have thrown all the variables into a message box one line before
the SendKeys to prove to myself that SendKeys was sending the correct case.
The 5 PCs (Windows 2000) that are running this app were updated to service
pack 4 over the weekend and also had a Microsoft Security Patch installed
(KB824146). They have been working fine for months but now, all 5 are
experiencing this problem.
I have installed SP4 and the security patch to 3 other PCs in an attempt to
recreate the problem but all other PCs function normally.
There has got to be something simple that I am missing. Any ideas?
Thanks,
Daron
Activate "*.MIS*" 'Activates the Meditech window so we
can grab the data
Wait 0.5
VendorNo = Trim(View(Row:=3, col:=8, length:=11))
VendorName = Trim(View(Row:=3, col:=20, length:=25))
InvoiceNo = Trim(View(Row:=6, col:=1, length:=15))
PONumber = Trim(View(Row:=9, col:=21, length:=12))
TxnDate = View(Row:=9, col:=10, length:=8)
Activate "*Ascent Capture*" 'Activates the Ascent Capture window so
we can enter the data
Wait 0.5
SendKeys VendorNo & "{TAB}" & VendorName & "{TAB}" & InvoiceNo & "{TAB}"
& PONumber & "{TAB}" & TxnDate & "{TAB}", True
frmMain.LCommand.Caption = "Waiting..."
Daron Johnston
Application Programmer
Woman's Hospital
225.924.8543
[EMAIL PROTECTED]
This e-mail may contain confidential information which is intended only for
the use of person(s) named above. If you are not the intended recipient, you
are hereby advised that any disclosure, copying, distribution or the taking
of any action in reliance on the contents of this information is prohibited.
If you have received this transmission in error, please notify the sender
and delete this e-mail from your computer.
