Hi David,
First Both, $DeleteRecord_ob and $DeleteRecord_PN_ob must be a shared objects.
Also, it seems that shared objects do not accept arrays. Convert the arrays to
shared collections instead.
This should work:
ARRAY TEXT($DeleteRecord;Get last table number)
ARRAY LONGINT($DeleteRecord_PN;Get last table number)
C_COLLECTION($t)
$t:=New shared collection
ARRAY TO
COLLECTION($t;$DeleteRecord;"DeleteRecord";$DeleteRecord_PN;"DeleteRecord_PN")
Use (Storage)
Storage.t:=$t
End use
Lahav
-----Original Message-----
From: 4D_Tech <4d_tech-boun...@lists.4d.com> On Behalf Of David Ringsmuth via
4D_Tech
Sent: Saturday, September 1, 2018 9:36 PM
To: 4D iNug Technical <4d_tech@lists.4d.com>
Cc: David Ringsmuth <davidi...@gmail.com>
Subject: Storage + New shared object
I’m trying to add an object array to Storage.
The documentation says that Objects can be a share storage value.
I keep getting the message “Not supported value type in a shared object or
shared collection.”
In the below code I broke apart the assignments for easiest debugging.
ARRAY TEXT($DeleteRecord;Get last table number) ARRAY
LONGINT($DeleteRecord_PN;Get last table number)
C_OBJECT($DeleteRecord_ob)
OB SET ARRAY($DeleteRecord_ob;"DeleteRecord";$DeleteRecord)
C_OBJECT($DeleteRecord_PN_ob)
OB SET ARRAY($DeleteRecord_PN_ob;"DeleteRecord_PN";$DeleteRecord_PN)
C_OBJECT($Delete_ob;$Delete_PN_ob)
Use (Storage)
Storage.t:=New shared
object("DeleteRecord";$Delete_ob;"DeleteRecord_PN";$Delete_PN_ob)
End use
Use (Storage.t)
Storage.t.DeleteRecord:=$DeleteRecord_ob // this line generated the
error message
Storage.t.DeleteRecord_PN:=$DeleteRecord _PN_ob// so does this line
error with same message End use
Please help!
David Ringsmuth
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
**********************************************************************
4D Internet Users Group (4D iNUG)
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
