Progress Code Question

Yahoo Archive
1
Its probably just me but select statements look so simple compaired to 4GL.

-----Original Message-----
From: othyghost [mailto:Eric@...]
Sent: Monday, April 05, 2004 10:41 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Progress Code Question


I am trying to pull a record that we enter into the partopr table
into a text field on a vbform on the jobopr table. I keep getting a
partopr record could not be found and have several different ways to
get at it. We are running Vantage 5.1. Here is my code any help
would be appreciated.

Eric

{vbp/vb.i}
DEF VAR PartNumber like joboper.partnum NO-UNDO.
DEF VAR OprSeqs like joboper.oprseq NO-UNDO.
Find Joboper where rowid(JobOper) = GetCurrentROWID() NO-LOCK.
Assign PartNumber = Partnum.
Assign OprSeqs = OprSeq.
Find PartOpr where (PartOpr.Partnum = PartNumber) and
(PartOpr.oprseq = OprSeqs) no-lock no-error.
setStringValue("text_1.scrvalue",PartOpr.Character01).
RETURN.





Useful links for the Yahoo!Groups Vantage Board are: ( Note: You must have already linked your email address to a yahoo id to enable access. )
(1) To access the Files Section of our Yahoo!Group for Report Builder and Crystal Reports and other 'goodies', please goto: http://groups.yahoo.com/group/vantage/files/.
(2) To search through old msg's goto: http://groups.yahoo.com/group/vantage/messages
(3) To view links to Vendors that provide Vantage services goto: http://groups.yahoo.com/group/vantage/links
Yahoo! Groups Links
2
I am trying to pull a record that we enter into the partopr table
into a text field on a vbform on the jobopr table. I keep getting a
partopr record could not be found and have several different ways to
get at it. We are running Vantage 5.1. Here is my code any help
would be appreciated.

Eric

{vbp/vb.i}
DEF VAR PartNumber like joboper.partnum NO-UNDO.
DEF VAR OprSeqs like joboper.oprseq NO-UNDO.
Find Joboper where rowid(JobOper) = GetCurrentROWID() NO-LOCK.
Assign PartNumber = Partnum.
Assign OprSeqs = OprSeq.
Find PartOpr where (PartOpr.Partnum = PartNumber) and
(PartOpr.oprseq = OprSeqs) no-lock no-error.
setStringValue("text_1.scrvalue",PartOpr.Character01).
RETURN.