sqlite and field before a variant field

mariomoretti · 2014-09-30 08:46:37

I've defined these tsqlrecord descendants :

    tSqlMyRecordSigned = class(tSqlRecordSigned)
    protected
             fCreated : tCreateTime;
             fModified : tModTime;
             fSyncState,        
             fState : byte;  
    published
             property Created : tCreateTime read fCreated write fCreated;
             property Modified : tModTime read fModified write fModified;
             property State : byte read fState write fState;
             property SyncState : byte read fSyncState write fSyncState;
    end;


    tSqlDominion = class(tSQLMyRecordSigned)
    public
          fDescription : RawUtf8;
          fLocDescription : RawUtf8;
    published
             property Description : RawUtf8 index 255 read fDescription write fDescription stored as_Unique;
             property LocDescription : RawUtf8 index 255 read fLocDescription write fLocDescription;
    end;


    tSqlEB_DocType = class(tSqlDominion)
    private
           fDocProps : Variant;
    published
             property DocProps : variant read fDocProps write fDocProps;
    end;

In the model i've added only tSqlEB_DocType , togheter with other objects.
The server is a restserverdb.
Adding or editing data with tRecordEditForm doesn't update the LocDescription field.
Also managing the sqlite db with SQliteSpy , isn't possible edit data in the field wich appears in a different color (the same of field DocProps).
As a workaround i've added a new dummy boolean property before DocProps : this solves the problem
I'm using 1.18 downloaded one month ago.

ab · 2014-09-30 10:06:48

And if you work at object level?

Try to debug TRecordEditForm to see what is happening.

mariomoretti · 2014-10-01 02:29:25

I've debugged and , client side , is all ok (json string contains correct values).
Owing to the refreshing mechanism of the ribbon it's a bit difficult for me to understand what is wrong on server side.
To reproduce this event , i've modified FileTabs in synfile project such a way (added a variant type after keywords):

  TSQLFile = class(TSQLRecordSigned)
  public
    fName: RawUTF8;
    fModified: TTimeLog;
    fCreated: TTimeLog;
    fPicture: TSQLRawBlob;
    fKeyWords: RawUTF8;
    fDocProps: variant;
  published
    property Name: RawUTF8 read fName write fName;
    property Created: TTimeLog read fCreated write fCreated;
    property Modified: TTimeLog read fModified write fModified;
    property Picture: TSQLRawBlob read fPicture write fPicture;
    property KeyWords: RawUTF8 read fKeyWords write fKeyWords;
    property DocPropr: variant read fDocProps write fDocProps;
    property SignatureTime;
    property Signature;
  end;

KeyWords is never saved in the db.

mariomoretti · 2014-10-07 08:05:48

Hi AB,

it isn't a varint issue, but a null field issue.

in mormotsqlite3 , line 644 :

result^.BindNull(i) else

should be :

result^.BindNull(i+1) else

ab · 2014-10-07 16:22:32

Should be fixed by http://synopse.info/fossil/info/b54ddc066c

Thanks a lot for the patch!

mORMot Open Source

#1 2014-09-30 08:46:37

sqlite and field before a variant field

#2 2014-09-30 10:06:48

Re: sqlite and field before a variant field

#3 2014-10-01 02:29:25

Re: sqlite and field before a variant field

#4 2014-10-07 08:05:48

Re: sqlite and field before a variant field

#5 2014-10-07 16:22:32

Re: sqlite and field before a variant field

Board footer