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