Lahav, (and Christian, and Keisuke Miyako)

THANK YOU!

David Ringsmuth

From: lists via 4D_Tech
Sent: Saturday, September 1, 2018 11:03 PM
To: 4D iNug Technical
Cc: lists
Subject: RE: Storage + New shared object

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
**********************************************************************

**********************************************************************
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
**********************************************************************

Reply via email to