AW: Searching Schemas
Udo Sonnabend | WigaSoft AG
U.Sonnabend at wigasoft.ch
Wed Jan 27 07:29:54 UTC 2021
Hi, just for fun, as usual my unreadable but short two-liner ;-)
Do #L1.$define(#S1)
Do
$libs.$sendall($sendallref.$schemas.$sendall($sendallref.$objs.$sendall
(#L1.$add($sendallref.$class().$name),$sendallref.$name='ClientNo')))
Regards, Udo.
WigaSoft AG
Udo Sonnabend
Entwickler
Oberstrasse 222 | Postfach 51 | CH-9014 St. Gallen
Telefon +41 71 274 51 31 | [1]www.wigasoft.ch |
[2]U.Sonnabend at wigasoft.ch
Diese Mitteilung kann persönliche, vertrauliche oder rechtlich
geschützte Informationen enthalten und ist nur für die Verwendung durch
den beabsichtigten Empfänger bestimmt. Auf Vertraulichkeit oder Rechte
wird aufgrund von Fehlübertragungen nicht verzichtet. Wenn Sie nicht
der beabsichtigte Empfänger dieser Mitteilung sind, dürfen Sie diese in
keiner Form verwenden, verbreiten oder kopieren. Haben Sie diese
Mitteilung irrtümlich erhalten, dann löschen Sie diese und allfällige
Kopien und benachrichtigen Sie bitte unverzüglich den Absender â besten
Dank.
P Bitte denken Sie an die Umwelt, bevor Sie dieses Mail drucken. Think
before print!
-----Ursprüngliche Nachricht-----
Von: omnisdev-en [[3]mailto:omnisdev-en-bounces at lists.omnis-dev.com] Im
Auftrag von Kelly Burgess
Gesendet: Dienstag, 26. Januar 2021 22:38
An: OmnisList <omnisdev-en at lists.omnis-dev.com>
Betreff: Re: Searching Schemas
Hi Dawid,
Here's another approach - pass in pColumnName, get a list back. I'm
still wondering if you could flatten all that into a one-liner with a
$sendall...
Kelly
Do schemaList.$define(schemaName)
Do $clib.$schemas.$first() Returns schemaRef While schemaRef
Do schemaRef.$objs.$findname(pColumnName) Returns colRef
If colRef
Do schemaList.$add(schemaRef.$name)
End If
Do $clib.$schemas.$next(schemaRef) Returns schemaRef End While
Quit method schemaList
_____________________________________________________________
Manage your list subscriptions at [4]http://lists.omnis-dev.com Start a
new message -> [5]mailto:omnisdev-en at lists.omnis-dev.com
References
1. http://www.wigasoft.ch/
2. mailto:U.Sonnabend at wigasoft.ch
3. mailto:omnisdev-en-bounces at lists.omnis-dev.com
4. http://lists.omnis-dev.com/
5. mailto:omnisdev-en at lists.omnis-dev.com
More information about the omnisdev-en
mailing list