O7 -> O$ prompted find
Hi,
I don’t use Prompted Find.
I have ivInsert,ivEdit,ivFind instance vars. Type short number. So, you know what the user is doing.
The Find method looks like this in pseudo code
Begin reversible block
Calculate $cinst.ivFind as 1
End reversible block
do …
Do $cwind.$redraw()
Enter data
If flag true
do find related records ..
Else
do clear data ..
End If
Do $cwind.$redraw()
In the field you have this pseudo code
On evAfter
If ivInsert|ivEdit
If AR_REF=”
OK message (Icon,Sound bell) {La referencia del artículo no puede estar en blanco !}
Quit event handler (Discard event)
Else If AR_REF<>MOD_REFAR
Do code method TestForAUniqueIndexValue (AR_REF)
If flag false
OK message (Icon,Sound bell) {Esta referencia ya existe !}
Quit event handler (Discard event)
End If
End If
Else If ivFind&pNextCode=evOK
Do code method Find (AR_REF;kFalse;kFalse)
If flag false
OK message (Icon,Sound bell) {Esta referéncia no existe !}
Quit event handler (Discard event)
End If
End If
> El 14/3/2018, a las 8:22, Paul Mulroney <pmulroney@logicaldevelopments.com.au> escribió:
>
> Hi Everyone,
>
> I’m converting an Omnis 7 app to Omnis Studio. I’ve discovered that if you have a “prompted find”, in Studio you get events now, whereas in Omnis 7 during prompted find you didn’t. This is causing some grief because all the validation code is complaining about fields missing values etc.
>
> Is there an easy way to say “during prompted find, don’t execute any events”? Can I even tell if I’m in prompted find mode using a built-in property or method? At the moment I’m resigned to setting an instance var that says “Hey, I’m in find mode”, and in every $event having a “if I’m not in Find mode…”. Some of these windows have a few fields…
>
> Regards,
> Paul.
>
>
>
> Q: What’s the best thing about elevator jokes?
> A: They work on so many levels.
> —
> Paul W. Mulroney We Don’t Do Simple Pty Ltd
> pmulroney@logicaldevelopments.com.au Trading as Logical Developments
> www.logicaldevelopments.com.au ACN 161 009 374
> Ph: +61 8 9458 3889 86 Coolgardie Street
> BENTLEY WA 6102
>
>
> _____________________________________________________________
> Manage your list subscriptions at lists.omnis-dev.com
> Start a new message -> mailto:omnisdev-en@lists.omnis-dev.com
_____________________________________________________________
Manage your list subscriptions at lists.omnis-dev.com
Start a new message -> mailto:omnisdev-en@lists.omnis-dev.com