Browse lookup problem
Richard Kreiss
rkreiss at verizon.net
Fri Jun 3 12:24:35 PDT 2011
> -----Original Message-----
> From: filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com
> [mailto:filepro-list-bounces+rkreiss=verizon.net at lists.celestial.com] On
> Behalf Of Kenneth Brody
> Sent: Friday, June 03, 2011 3:02 PM
> To: rkreiss at gccconsulting.net
> Cc: filepro-list at lists.celestial.com
> Subject: Re: Browse lookup problem
>
> On 6/3/2011 12:53 PM, Richard Kreiss wrote:
> [...]
> >>> This works on my system but fails on their system.
>
> What's different in the file you have versus the one they have?
>
> >>> I changed ba,bb,& bc to h,I,j and the browse worked as it should.
> >>>
> >>> Ba,bb, and bc are on used in input processing. They are not defined
> >>> in auto
> >> processing and the is no @entsel processing.
> >>>
> >>> Can anyone see why this should suddenly fail?
> >>>
> >>> The box that came up was square, had the three .00's and no header
> >>> or XXXX
> >>
> >> Pure guess:
> >>
> >> Fields ba, bb, and bc were defined with something not compatible with
> >> your usage, causing them to not contain what you thought they should.
> >>
> >> What if, just before the lookup statement, you put:
> >>
> >> mesgbox "ba='"& ba& "'\nbb='"& bb& "'\nbc='"& bc& "'"
> >>
> > Tested this with debug and checked the values of ba, bb& bc. They we as
> they should be.
>
> But you didn't actually try the message box.
>
> > Once I saw that they held the correct values, I recreated the browse and
> then split it apart using h,I,j and then commented out the original code and
> test it. The new code worked.
>
> What do you mean by "split it apart"?
Use the wizard to define the browse and then separate what the wizard created into it parts Ba, BB & BC.
>
> > I then replaced the ba, bb, and bc with h, I, and J and adjusted the browse
> command. This worked fine.
>
> So, you say that this fails:
>
> ba="(brw=10 xkey=xdeu show=pkeep prc=nocard fill=desc,top)"
> bb="[\b5 Master Code Tp Last Four Expires \a-]"
> bc="*3<16 *5 XXXX*18 *6"
> lookup card = l_card k=4 i=B -nxm b=(ba&bb&bc)
>
> But this works:
>
> h="(brw=10 xkey=xdeu show=pkeep prc=nocard fill=desc,top)"
> i="[\b5 Master Code Tp Last Four Expires \a-]"
> j="*3<16 *5 XXXX*18 *6"
> lookup card = l_card k=4 i=B -nxm b=(h&i&j)
>
> With nothing else in the processing being changed?
>
> In that case, something is different between the definitions of ba/bb/bc and
> h/i/j.
>
> However, you say that you "split it apart" when you changed it to h/i/j.
> Can you show the actual code that "works"?
See above h= i= j= - those are the values
See line 62, 683 & 684 - these is where the problem was.
Full old code from my system:
678 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: lv="CC"&master_code
679 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: lookup card = l_card k=lv i=F -nx
680 ------- - - - - - - - - - - - - - - - -
◄ If: NOT card
Then: MSGBOX "No Credit Cards On File for\n\r"<pn<"\r";END
681 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: SHOW "\r E \r-Update Expiration Date, \r U \r-Update Card, \r D \r
682 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: ba="(brw=10 xkey=xdeu show=pkeep prc=nocard fill=desc,top)"
683 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: bb="[\b5 Master Code Tp Last Four Expires \a-]"
684 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: bc="*3 <16 *5 XXXX*18 *6"
685 ------- - - - - - - - - - - - - - - - -
dokeyA ◄ If:
Then: lookup card = l_card k=4 i=B -nxm b=(ba&bb&bc)
686 ------- - - - - - - - - - - - - - - - -
◄ If: @sk = "BRKY" or @bk = "x"
Then: CLEARB;END
687 ------- - - - - - - - - - - - - - - - -
◄ If: @bk = "U"
Then: rn(len(@rn),edit(@rn))=card(@rn);CLEARB;close card;GOTO do_upc
688 ------- - - - - - - - - - - - - - - - -
◄ If: @bk = "E"
Then: rn=card(@rn);ro(2,.0)=@br+"9";GOTO up_expd
688 ------- - - - - - - - - - - - - - - - -
◄ If: @bk = "E"
Then: rn=card(@rn);ro(2,.0)=@br+"9";GOTO up_expd
689 ------- - - - - - - - - - - - - - - - -
◄ If: @bk = "D"
Then: ro=@br+"8";card_number=card(4);is_nonce=card(24);GOTO docrypt
690 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: SHOW "";CLEARB;END
691 ------- - - - - - - - - - - - - - - - -
nocard ◄ If: card(3) lt master_code
Then: DROP all before
692 ------- - - - - - - - - - - - - - - - -
◄ If: card(3) gt master_code
Then: DROP all after
693 ------- - - - - - - - - - - - - - - - -
◄ If: card(20) ne "CC"
Then: DROP
694 ------- - - - - - - - - - - - - - - - -
◄ If:
Then: END
As I indicated, I cannot get into their system as their communication server is still down. Once I can get in, I will test the msgbox as you suggested.
Richard
>
> --
> Kenneth Brody
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> Subscribe/Unsubscribe/Subscription Changes
> http://mailman.celestial.com/mailman/listinfo/filepro-list
More information about the Filepro-list
mailing list