Here is the full View command View(Row:=CurRow, Col:=1, Length:=19) and yes CurRow = Row
The current cursor position is within that box, the screenshot didn't show
the blinking cursor.
Here is the full procedure where it is occuring for reference:
Public Sub AddLoopItems()
Dim Done As Boolean ' Did we hit the end of the list yet?
Dim AddedItem As Boolean ' Has an Item been added to the List
Dim CurRow As Integer
Dim CurCol As Integer
D.Close_
D.Open_ F("FileName"), ftDelimited
Done = False
While Not Done
AddedItem = False
CurRow = Row
CurCol = Col
If Trim(View(Row:=CurRow, Col:=1, Length:=19)) <> "" Then ' <-----
This is the spot where the View command is pulling an incorrect value.
Key "{Down}"
If CurRow >= 16 And CurRow <= 22 Then
Pause "@" + Trim(Str(CurRow + 1)) + ",1"
Else
Pause "@" + Trim(Str(CurRow)) + ",1"
End If
Else
Done = Not FindNextItem
If AddItem(Trim(D("Contracted Vendor Catalog Number")), True,
CurRow) Then
AddedItem = True
ElseIf AddItem(Trim(D("Manufacturer Catalog Number")), False,
CurRow) Then
AddedItem = True
Else
D("Status") = "Item Not Found"
LogMsg F("ContractNum"), "022", D("Contracted Vendor Catalog
Number")
End If
If AddedItem Then
Key "{Down}"
'Pause "@" & Trim(Str(Row)) & ",1"
If CurRow >= 16 And CurRow <= 22 Then
Pause "@" + Trim(Str(CurRow + 1)) + ",1"
Else
Pause "@" + Trim(Str(CurRow)) + ",1"
End If
End If
End If
Wend
End Sub
...................................
Brian Van Grinsven
Integrated Systems Specialist
Medbuy Corporation
mailto:[EMAIL PROTECTED]
http://www.medbuy.ca
T: 519.652.1688 ext. 114
F: 519.652.2788
Technical Support:
ext. 199 or [EMAIL PROTECTED]
Building Partnerships in Healthcare
From:
"Thom C. Blackwell" <[EMAIL PROTECTED]>
To:
<[email protected]>
Cc:
<[EMAIL PROTECTED]>
Date:
12/12/2007 09:16 AM
Subject:
RE: [Talk] Weird Behavior in Boston Workstation with Meditech Magic
Greetings,
I can barely see from your immediate window that your are determining some
variable called CurRow. I am guessing this is using the Row property (or
something else)? The screen shot doesn?t show the cursor being in the
spot you are pointing - so you may want to check what the value of CurRow
is.
Anyhow, also cc?ing Support here so someone is likely to be following up
with you soon.
Regards,
Thom
Thom C. Blackwell
Product Manager
Boston Software Systems
(866) 653-5105 ex 807
www.bossoft.com
Sign up for my weekly webinar!
LEGAL NOTICE Unless expressly stated otherwise, this message is
confidential and may be privileged. It is intended for the addressee(s)
only. Access to this E-mail by anyone else is unauthorized. If you are not
an addressee, any disclosure or copying of the contents of this E-mail or
any action taken (or not taken) in reliance on it is unauthorized and may
be unlawful. If you are not an addressee, please inform the sender
immediately, then delete this message and empty from your trash.
From: [EMAIL PROTECTED] [
mailto:[EMAIL PROTECTED] On Behalf Of Brian Van Grinsven
Sent: Wednesday, December 12, 2007 9:04 AM
To: [email protected]
Subject: [Talk] Weird Behavior in Boston Workstation with Meditech Magic
Hello Everyone,
Today I was scripting in a solution to fill in the contract module within
Meditech Magic.
trying to add new items into a contract, but It's pulling a number that
doesn't exist within the client.
It's easier to explain via a picture than anything else so here is the
picture.
Does anyone know how to force a refresh of the screen within BWS for a
Meditech Magic (5.5/5.6) connection?
Thank you for your help.
...................................
Brian Van Grinsven
Integrated Systems Specialist
Medbuy Corporation
mailto:[EMAIL PROTECTED]
http://www.medbuy.ca
T: 519.652.1688 ext. 114
F: 519.652.2788
Technical Support:
ext. 199 or [EMAIL PROTECTED]
Building Partnerships in Healthcare
**********************************************************************
This e-mail and any attachments may contain confidential and
privileged information. If you are not the intended recipient, please
notify the sender immediately by return e-mail, delete this e-mail and
destroy any copies. Any dissemination or use of this information by a
person other than the intended recipient is unauthorized and may be
illegal.
**********************************************************************
**********************************************************************
This e-mail and any attachments may contain confidential and
privileged information. If you are not the intended recipient, please
notify the sender immediately by return e-mail, delete this e-mail and
destroy any copies. Any dissemination or use of this information by a
person other than the intended recipient is unauthorized and may be
illegal.
**********************************************************************<<image/gif>>
