<div dir="ltr">Ahhh so you fire you rclerk and use -XI*index* then?... and then input whatever that index takes. That would also get me past the IUA menu. I like it! Using -XE doesnt seem to work for me or I am not using it right.<div><br></div><div>Does it matter if I put my value in @pm or @pw or @pz?</div><br><div class="gmail_quote"><div dir="ltr">On Fri, Jul 15, 2016 at 9:08 PM Scott Walker <<a href="mailto:scottwalker@ramsystemscorp.com" target="_blank">scottwalker@ramsystemscorp.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Jason,<br>
<br>
Maybe this will be of use:<br>
<br>
<br>
<br>
@MENU If: 'THIS SECTION RUNS JUST BEFORE WE GET TO THE SELECT BY MENU. IT<br>
Then: 'IS USED TO GO DIRECTLY TO A SPECIFIC QUOTE WHEN THIS PROGRAM<br>
535 ------- - - - - - - - - - - - - - - - -<br>
If: 'IS CALLED FROM WITHIN ANOTHER PROGRAM<br>
Then:<br>
536 ------- - - - - - - - - - - - - - - - -<br>
If:<br>
Then: 'show "@running @ Menu"<br>
537 ------- - - - - - - - - - - - - - - - -<br>
If: @pm ne "SC" 'Did not fire up this program from<br>
Then: end 'another program with a "system" call<br>
538 ------- - - - - - - - - - - - - - - - -<br>
If: iz ne "" 'If we have already been through here once,<br>
Then: exit 'then we don't want to position to initial order again<br>
539 ------- - - - - - - - - - - - - - - - -<br>
If: 'Set flag so we only run this once, on the initial<br>
Then: iz(1,*,g)="X" 'entry into this file<br>
540 ------- - - - - - - - - - - - - - - - -<br>
If:<br>
Then: pushkey "A"{(@pz) 'Select index.A (on SAOID#)<br>
541 ------- - - - - - - - - - - - - - - - -<br>
If:<br>
Then: end<br>
<br>
-----Original Message-----<br>
From: Filepro-list [mailto:<a href="mailto:filepro-list-bounces%2Bscottwalker" target="_blank">filepro-list-bounces+scottwalker</a>=<a href="mailto:ramsystemscorp.com@lists.celestial.com" target="_blank">ramsystemscorp.com@lists.celestial.com</a>] On Behalf Of Jason Garner via Filepro-list<br>
Sent: Friday, July 15, 2016 5:12 PM<br>
To: Kenneth Brody <<a href="mailto:kenbrody@spamcop.net" target="_blank">kenbrody@spamcop.net</a>>; <a href="mailto:filepro-list@lists.celestial.com" target="_blank">filepro-list@lists.celestial.com</a><br>
Subject: Re: Rclerk to a specific record<br>
<br>
Thanks Ken,<br>
<br>
I am almost there I start with<br>
<br>
pop_schþ If: 'pop_sch<br>
Then:<br>
429 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: declare recno(20,.0); recno=""<br>
430 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: lookup sched=(inf_file) k=(qb) i=G -nx<br>
431 ------- - - - - - - - - - - - - - - - -<br>
þ If: not sched<br>
Then: system "rclerk lz_ss_infcon -S4 -d -XIE"; return<br>
432 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: recno=sched(@rn)<br>
433 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: close sched<br>
434 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: cm="rclerk lz_ss_infcon -S1 -d -XE"<recno<br>
þ If:<br>
Then: system cm<br>
436 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: return<br>
<br>
<br>
Then upon entering the destination processing table<br>
<br>
@menu þ If:<br>
Then:<br>
104 ------- - - - - - - - - - - - - - - - -<br>
þ If: @PW ne ""<br>
Then: lookup - r=@PW<br>
105 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: display<br>
106 ------- - - - - - - - - - - - - - - - -<br>
þ If:<br>
Then: end<br>
<br>
What I get is the IUA menu, but behind it is the screen I want. So I am thinking my rclerk command isnt quite right still or no?<br>
<br>
Thanks so much for your help!<br>
<br>
<br>
On Fri, Jul 15, 2016 at 4:20 PM Kenneth Brody <<a href="mailto:kenbrody@spamcop.net" target="_blank">kenbrody@spamcop.net</a>> wrote:<br>
<br>
> On 7/15/2016 4:06 PM, Jason Garner via Filepro-list wrote:<br>
> > Good Afternoon Fileproians,<br>
> ><br>
> > I would like to setup a key for my users that rclerks them to a<br>
> > specific record in a different file.<br>
> ><br>
> > I was looking in the manual and didnt see an argument for rclerk<br>
> > that<br>
> would<br>
> > allow that.<br>
> ><br>
> > I did see that you could pass stuff in into "System Maintained"<br>
> > variables like @PM. I was thinking I could maybe do my lookup stuff<br>
> > to get the RN I wanted and then shove that inside one of these<br>
> > system maintained<br>
> variables<br>
> > and then write something in @once or @menu in the destination file<br>
> > processing table and then in my rclerk command, bypass inquire<br>
> > update and add and go directly to processing.<br>
> ><br>
> > But I thought I better ask for the "right way" to do it before I<br>
> > accidentally leveled Moscow. :)<br>
><br>
> There is no single "right way" to do something like that. However, a<br>
> very common way to do this is basically what you mention -- pass the<br>
> record number via one of the "-Px" command-line flags, and look at the<br>
> corresponding @Px system field in @MENU to do a lookup-dash to that<br>
> record number if specified. (And protect yourself from getting into<br>
> an infinite loop if the user goes back to the *clerk menu.)<br>
><br>
> Remember that this will only place the user on that record upon<br>
> starting *clerk. You'll need to do other things (perhaps in @ENTSEL)<br>
> to prevent the user from going to other records, should you wish to prevent such behavior.<br>
><br>
> --<br>
> Kenneth Brody<br>
><br>
--<br>
Jason Garner<br>
Systems Administrator<br>
1801 Oberlin Rd, Suite 204<br>
Middletown, PA 17057<br>
Work 717-985-1122 x 1139<br>
Mobile 717-645-3521<br>
<a href="mailto:jason.garner@evalsvs.com" target="_blank">jason.garner@evalsvs.com</a><br>
-------------- next part --------------<br>
An HTML attachment was scrubbed...<br>
URL: <<a href="http://mailman.celestial.com/pipermail/filepro-list/attachments/20160715/e106366a/attachment.html" rel="noreferrer" target="_blank">http://mailman.celestial.com/pipermail/filepro-list/attachments/20160715/e106366a/attachment.html</a>><br>
_______________________________________________<br>
Filepro-list mailing list<br>
<a href="mailto:Filepro-list@lists.celestial.com" target="_blank">Filepro-list@lists.celestial.com</a><br>
Subscribe/Unsubscribe/Subscription Changes <a href="http://mailman.celestial.com/mailman/listinfo/filepro-list" rel="noreferrer" target="_blank">http://mailman.celestial.com/mailman/listinfo/filepro-list</a><br>
<br>
</blockquote></div><div dir="ltr">-- <br></div><div data-smartmail="gmail_signature"><div dir="ltr"><div style="font-size:12.8px">Jason Garner<br></div><div style="font-size:12.8000001907349px">Systems Administrator<br>1801 Oberlin Rd, Suite 204</div><div style="font-size:12.8000001907349px">Middletown, PA 17057<br><span title="Call with Google Voice"><span title="Call with Google Voice"><span title="Call with Google Voice"><span title="Call with Google Voice"><span title="Call with Google Voice">Work <a href="tel:717-985-1122" value="+17179851122" style="color:rgb(17,85,204)" target="_blank">717-985-1122</a></span></span></span></span></span> x 1139</div><div style="font-size:12.8000001907349px">Mobile 717-645-3521</div><div style="font-size:12.8000001907349px"><a href="mailto:jason.garner@evalsvs.com" target="_blank">jason.garner@evalsvs.com</a></div></div></div></div>