AW: Searching Schemas

[Udo Sonnabend | WigaSoft AG]

Hi Kelly

The REAL - One Liner ;-))))

Quit method pick(#L1.$define(#S1)+$libs.$sendall($sendallref.$schemas.$sendall($sendallref.$objs.$sendall(#L1.$add($sendallref.$class().$name),$sendallref.$name='ClientNo')))>0,'',#L1)

Greetings from Switzerland
Udo.

PS: I sent this to him private, but intended to see this "academic" approach for the list too. Weird Omnis.... 😉

WigaSoft AG
Udo Sonnabend
Entwickler

Oberstrasse 222 | Postfach 51 | CH-9014 St. Gallen
Telefon +41 71 274 51 31 | www.wigasoft.ch<http://www.wigasoft.ch/> | U.Sonnabend at wigasoft.ch<mailto: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!

________________________________
Von: omnisdev-en <omnisdev-en-bounces at lists.omnis-dev.com> im Auftrag von Mike Matthews - Omnis <omnis at lineal.co.uk>
Gesendet: Mittwoch, 27. Januar 2021 10:42
An: OmnisDev List - English <omnisdev-en at lists.omnis-dev.com>
Betreff: Re: Searching Schemas

Beautiful work!

Now what does it mean? It's like being back at school, it’s not the answer that is important, it’s the working out that gets you 90% of the marks. :)

Mike Matthews

Lineal Software Solutions
Commercial House, The Strand<x-apple-data-detectors://1/1> Barnstaple, Devon, EX31 1EU<x-apple-data-detectors://1/1>

omnis at lineal.co.uk<mailto:mike.matthews at lineal.co.uk>

www.lineal.co.uk<http://www.lineal.co.uk/>

www.sqlworks.co.uk<http://www.sqlworks.co/>



On 27 Jan 2021, at 09:09, Kelly Burgess <kellyb at montana.com<mailto:kellyb at montana.com>> wrote:

A one-liner version just for exercise.

Do schemaList.$define(schemaName)
+$clib.$schemas.$sendall(schemaName.$assign($sendallref.$name)
  +$ref.$objs.$sendall(schemaList.$add(schemaName),$ref.$name=pColumnName))
Quit method schemaList

Kelly

On Jan 26, 2021, at 2:37 PM, Kelly Burgess <kellyb at montana.com<mailto:kellyb at montana.com>> wrote:

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 https://linkprotect.cudasvc.com/url?a=http%3a%2f%2flists.omnis-dev.com&c=E,1,5VeIlOo5XrXdmY4CvidZp_To3ljG3u8Q6HrksTV6Ol5TUyITgXfB4Ww23ap0Hcnsh0RlRA9bDFZ9jIuGYtiWg662OIplFED03NGDGZQJrKZ6-0s0DhPgSZcEXg,,&typo=1
Start a new message -> mailto:omnisdev-en at lists.omnis-dev.com

_____________________________________________________________
Manage your list subscriptions at http://lists.omnis-dev.com
Start a new message -> mailto:omnisdev-en at lists.omnis-dev.com