cur-job & cur-suffix

Chris Kelleher

Chris Kelleher

Administrator
Staff member
SL 4.00.01

I'm attempting to apply an old Symix V4 mod to SL4 within the job posting
program (job/job-p.p). cur-job and cur-suffix where used to default the
appropriate fields on the interface. Doesn't work in SL. Anyone else have
a similar modification that works?

Douglas Hicks
Manager - Information Systems
Trans-Tech, Inc.
dbhicks@alphaind.com
Phone 301-874-6475
Fax 301-695-7065
 
Cur-job and cur-suffix are a problem now, because
there is no good way to share them between windows.
(e.g., which cur-item do you mean, the one set up
in item maintenance or job order screen ?). Try activating
a window with job order and running the program from that
menu and see if it helps. Generally you can address
a cur-var from the window it was set. Running it from
the main menu usually provides blanks.

Patrick T. Gordon
Senior Software Engineer
Software Services
Symix Computer Systems, Inc.
Columbus, OH 43231
Phone: 614/523-7000
Fax: 614/895-1195
 
Instead of setting s-job to cur-job, etc, set &default11=cur-job, etc.

Patrick T. Gordon
Senior Software Engineer
Software Services
Symix Computer Systems, Inc.
Columbus, OH 43231
Phone: 614/523-7000
Fax: 614/895-1195
 
I tried navigating to the modified job/job-p.p from the Job Orders, Job
Operations and Job Materials windows (these 3 windows appear to 'remember'
cur-job and cur-suffix amongst themselves), and none of them seem to pass
the values. Here's some the code I used in job-p.p:

<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>
/* TRANS-TECH */
def shared var cur-job like symix.job.job.
def shared var cur-suffix like symix.job.suffix.
assign
s-job = cur-job
s-suffix = cur-suffix
e-job = cur-job
e-suffix = cur-suffix.
/* End Trans-TECH */


{lib/rpt-opt.i
&opt1=t-post-complete &type1=lo &at1="colon 50"
&const2="skip(1)"
&named-const3="symtext.sys-text.txt[1] format 'x(78)' no-label view-as
text"
&const4="skip(1)"
&named-const5="c-starting at 29 no-label c-ending at 50 no-label"

/* TRANS-TECH *******
&opt11=symex.ex-hbeg.job &type11=ch &at11="colon 28"
&const12="space(0)" &named-const12="hyphen1 no-label view-as text size 1
by 1"
&const13="space(0)"
&opt14=symex.ex-hbeg.suffix &type14=in &at14="no-label"
&when14=symix.parms.suffix
&opt15=symex.ex-end.job &type15=ch &at15="at 50 no-label"
&const16="space(0)" &named-const16="hyphen2 no-label view-as text size 1
by 1"
&const17="space(0)"
&opt18=symex.ex-end.suffix &type18=in &at18="no-label"
&when18=symix.parms.suffix
*******************/

&opt11=s-job &type11=ch &at11="colon 28"
&const12="space(0)" &named-const12="hyphen1 no-label view-as text size 1
by 1"
&const13="space(0)"
&opt14=s-suffix &type14=in &at14="no-label"
&when14=symix.parms.suffix
&opt15=e-job &type15=ch &at15="at 50 no-label"
&const16="space(0)" &named-const16="hyphen2 no-label view-as text size 1
by 1"
&const17="space(0)"
&opt18=e-suffix &type18=in &at18="no-label"
&when18=symix.parms.suffix

/* End Trans-Tech */
[/code]

Thanks for your help, Patrick.
 
You must log in or register to reply here.
Back
Top