=?iso-8859-1?Q?R=E9f=2E?= : Re: =?iso-8859-1?Q?R=E9f=2E?= : QUICK Screen OccurrenceChecking

[Carol Kaffenberger]

THANK YOU!  It works like a champ!

zafrir.amitai@bnpparibas.com wrote:

> Sorry,
> I forgot that t-zip should occ 17 as well.
> Hope it will work now,
> Bye.
>
> Internet
> kaffenbe@karmanos.org@cube.swau.edu - 23/10/2001 04:10
>
> Envoyé par :   powerh-l-admin@cube.swau.edu
>
> Pour :    Zafrir AMITAI, powerh-l
>
> cc :
>
> ccc :
>
> Objet :   Re: Réf. : QUICK Screen Occurrence Checking
>
> 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.
> >
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l@lists.swau.edu
> Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
> Unsubscribe: "unsubscribe" in message body to
> powerh-l-request@lists.swau.edu
> http://lists.swau.edu/mailman/listinfo/powerh-l
> This list is closed, thus to post to the list you must be a subscriber.
>
> This message and any attachments (the "message") is
> intended solely for the addressees and is confidential.
> If you receive this message in error, please delete it and
> immediately notify the sender. Any use not in accord with
> its purpose, any dissemination or disclosure, either whole
> or partial, is prohibited except formal approval. The internet
> can not guarantee the integrity of this message.
> BNP PARIBAS (and its subsidiaries) shall (will) not
> therefore be liable for the message if modified.
>
>                 ---------------------------------------------
>
> Ce message et toutes les pieces jointes (ci-apres le
> "message") sont etablis a l'intention exclusive de ses
> destinataires et sont confidentiels. Si vous recevez ce
> message par erreur, merci de le detruire et d'en avertir
> immediatement l'expediteur. Toute utilisation de ce
> message non conforme a sa destination, toute diffusion
> ou toute publication, totale ou partielle, est interdite, sauf
> autorisation expresse. L'internet ne permettant pas
> d'assurer l'integrite de ce message, BNP PARIBAS (et ses
> filiales) decline(nt) toute responsabilite au titre de ce
> message, dans l'hypothese ou il aurait ete modifie.

--
Carol Kaffenberger
Karmanos Cancer Institute
Detroit, Michigan