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