=?iso-8859-1?Q?R=E9f=2E?= : QUICK Screen Occurrence Checking

[Carol Kaffenberger]

I tried your suggestion and was really hopeful, but it does not work.  I
checked it with debugger and it fails the "if zip = t-zip and occurrence <>
t-occ" every time.  The values are:

ZIP            = 48101 (This record already exists in the CITYZIP file.  It
is occurrence 1)
T-ZIP        = 44444 (The new value I added on the screen.  It is occurrence
2)
T-OCC     = 2

I did a DISPLAY PREDEFINED and got the following values:

FIELDTEXT = 44444
OCCURRENCE = 1
ACCESSOK = FALSE

I'm not exactly sure what it's doing, but it should not fail that statement
because ZIP is not = T-ZIP for occurrence 1.

zafrir.amitai@bnpparibas.com wrote:

> Hello,
> If the problem is that you can enter the same ZIP more then once on the
> screen you can try this.
>
> temp t-zip
> temp t-occ
>
> procedure edit zip
> begin
> let t-zip = fieldtext
> let t-occ = occurence
> for 17
> begin
>   if zip = t-zip and occurrence <> t-occ
>     then error "already enterd"
>  end
> validations
> end.
>
> Hope this will help.
> Bye & have fun.
>