processing issue

[scooter6 at gmail.com]

I am trying to make a processing table that takes two pieces of information
from the end user - then counts and validates those records before
proceeding
For some reason that I can't find it goes 'backwards' (in my mind anyways -
I'm sure whoever may look at this and say it's not backwards it's your code
- I get it haha)
After it selects the first valid record, it does what it's supposed to do
but on the 2nd record it catches one of the 'validation' issues that I'm
filtering through first...if that makes sense
First record, it grabs data from client file if it passes and does
everything right, but the 2nd record it says a field is not empty (but it
is)
Here is my code:

:fa="":input fa(5,0RJ,g) "Enter Client Number ":
:fb="":input fb(8,mdy/,g) "Enter Placement Date ":
:fa="" or fb="":exit:
::goto valid:
::end:
valid::lookup yar = PDM  k=fb   i=E -nx:
yarloop:not yar:goto counted:
:yar(437) ne fa:goto counted:
:yar(431) ne fb:getnext yar;goto yarloop:
:yar(438) ne "":msgbox "Problem with"<14<15<"Number Already Assigned";exi
t:*    SECOND RECORD FOUND ERRORS HERE*
:yar(432)="":msgbox "Problem with"<14<15<"No DOO";exit:
:yar(435)="" or yar(435)=".00":msgbox "Problem with"<14<15<"No Balance or
Zero B
alance";exit:
:yar(14)="":msgbox "Problem with"<14<15<"No First Name";exit:
:yar(15)="":msgbox "Problem with"<14<15<"No Last Name";exit:
:yar(23)="":msgbox "Problem with"<14<15<"No Address";exit:
:yar(24)="":msgbox "Problem with"<14<15<"No City";exit:
:yar(25)="":msgbox "Problem with"<14<15<"No State";exit:
:yar(26)="":msgbox "Problem with"<14<15<"No Zip";exit:
:yar(439) ne "01" and yar(439) ne "66":msgbox "Problem with"<14<15<"Status
is"<y
ar(439);exit:
:yar(437)=fa and yar(431)=fb:x(10,.0,g)=x+"1":
::getnext yar;goto yarloop:
::end:
counted:x="0":msgbox "No Records Selected";exit:
:fc="":input popup fc(1,yesno,g)"I found"<x<"Accounts - Is this correct? ":
:fc ne "Y":exit:
::goto client:
::end:
client::lookup cli = client  k=437  i=A -nx:
:not cli:msgbox "Client"<437<"Not Found!";exit:
:cli(72)="90":msgbox "Client"<437<"is Inactive!";exit:
:cli and cli(72) ne
"90":438=cli(17);430=430{cli(17);cli(17)=cli(17)+"1";write:
::end:
::goto selectm:
selectm:437=fa and 431=fb and 438 ne "":select;end:

So everything works fine- it correctly finds 3 records that meet my
criteria
The first record it finds, it adds data from 'client' lookup, increments it
by 1 and does what it's supposed to - 2nd record (that has already passed
validation in my eyes) then says 'Problem with Mary Smith Number Already
assigned'
But after the error, if I go look at the record, that field is empty...?

Does anyone see an issue with what I'm doing in this processing table?

I'm running this as     rreport filename -f CoverSheet -u -a -v select
(the above code is in my select processing table - then it's supposed to
pass those records to CoverSheet)

Thanks

Scott
PDM
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.celestial.com/pipermail/filepro-list/attachments/20190227/82205474/attachment.html>