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