Never mind.
I figured it out
If any interested, here is the code
C_TEXT($Rep_txt)
C_LONGINT($Table_l;$Field_L;$OneField_L;$OneTable_L)
For ($Table_l;1;Get last table number)
If (Is table number valid($Table_l))
For ($Field_L;1;Get last field number($Table_l))
If (Is field number valid($Table_l;$Field_L))
GET RELATION
PROPERTIES($Table_l;$Field_L;$OneTable_L;$OneField_L)
If ($OneTable_L>0)
$Rep_txt:=$Rep_txt+Table
name($OneTable_L)+","+Table name($Table_l)+Char(Carriage return)+Char(Line feed)
End if
End if
End for
End if
End for
c_time($Doc_tm)
$Doc_tm:=Create document("")
SEND PACKET($Doc_tm;$Rep_txt)
CLOSE DOCUMENT($Doc_tm)
------------------------------------------------------------------------------------------------
Chuck Miller Voice: (617) 739-0306
Informed Solutions, Inc. Fax: (617) 232-1064
mailto:cjmiller<AT SIGN>informed-solutions.com
Brookline, MA 02446 USA Registered 4D Developer
Providers of 4D and Sybase connectivity
http://www.informed-solutions.com
------------------------------------------------------------------------------------------------
This message and any attached documents contain information which may be
confidential, subject to privilege or exempt from disclosure under applicable
law. These materials are intended only for the use of the intended recipient.
If you are not the intended recipient of this transmission, you are hereby
notified that any distribution, disclosure, printing, copying, storage,
modification or the taking of any action in reliance upon this transmission is
strictly prohibited. Delivery of this message to any person other than the
intended recipient shall not compromise or waive such confidentiality,
privilege or exemption from disclosure as to this communication.
> On Apr 17, 2020, at 3:03 PM, Chuck Miller via 4D_Tech <[email protected]>
> wrote:
>
> Hi All,
> 4D v 17.4
>
> has anyone written code to report on all table relations in a structure. I am
> looking at doing this but can not see the command I would use. I am sure I
> simply can not see the forest for the trees
>
> Thanks and regards
>
> Chuck
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
