Pages: 1

#1 Re: mORMot 1 » null value is forced convert to 0 in json » 2017-02-22 00:52:57

sonadorje

Hi ab master!
    I traced into the procedure "Check(cqrsSuccess = cmd.Commit)"  which in the DDDPersistenceMain.pas once again,
Its traceflow is:
TDDDRepositoryRestCommand.Commit->InternalCommit->TSQLRest.BatchSend->TSQLRestServer.EngineBatchSend
->TSQLRestStorageExternal.InternalBatchStop

in the procedure, I add the code after 

case Occasion of
            soInsert: // mPost=INSERT with the supplied fields and computed ID
if (fEngineAddForcedID > 0)  then
                  Decode.Decode(P,nil,pQuoted,0,true) else
...

Now the issue is resolved!

I found that fEngineAddForcedID is only in the function TSQLRestStorageExternal.ExecuteFromJSON.

#2 Re: mORMot 1 » null value is forced convert to 0 in json » 2017-02-21 06:10:36

sonadorje

Hi ab master!
    I have modified uian2000\DDDPersistence sample for test.
I added a member to TSomeEntity.

type
  TSomeEntity = class(TSynPersistent)
  protected
    fSomeID: int64;
    fCaption: RawUTF8;
  published
    property SomeID: int64 read fSomeID write fSomeID;
    property Caption: RawUTF8 read fCaption write fCaption;
  end; 

  //then mapped field as:
  aModel := TSQLModel.Create([TSQLRecordSomeEntity],'ROOT');
  vProperties := TOleDBMSSQL2012ConnectionProperties.Create('.','3MIS','','');
  VirtualTableExternalRegister(aModel,TSQLRecordSomeEntity,vProperties,'SomeEntity');
  aModel.Props[TSQLRecordSomeEntity].ExternalDB.MapField('ID', 'SomeID');
  RestServer := TSQLRestServerDB.Create(aModel, ':memory:', false);
  RestServer.CreateMissingTables;

when run the project, it create a table named SomeEntity, and everything is ok.
but where I alter SomeID to a auto-increment field :
"CREATE TABLE [dbo].[SomeEntity](
    [SomeID] [bigint] IDENTITY(1,1) NOT NULL,
    [Caption] [nvarchar](50) NULL,
CONSTRAINT [PK_SomeEntity] PRIMARY KEY CLUSTERED
(
    [SomeID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]"
the above same problem occur.
I traced into ORMAdd,at the code
soInsert: // mPost=INSERT with the supplied fields and computed ID
              Decode.Decode(P,...);
It seem that the framework don't know the field is a auto-increment,so the function return a SQL:
SQL := JSONDecodedPrepareToSQL(Decode,ExternalFields,Types,Occasion,[]);
'insert into dbo.SomeEntity (SomeID,Caption) values (?,?)'

In many database, a table has a auto-increment field,how to resolve the issue?

#3 Re: mORMot 1 » null value is forced convert to 0 in json » 2017-02-20 10:03:52

sonadorje

Hi AB Master!

   I have traced into "ORMAdd" function by debugger.
I found that SQL is generated by framework:

insert into dbo.Customer (CustomerID,PersonID,StoreID,TerritoryID,AccountNumber,rowguid,ModifiedDate) values (?,?,?,?,?,?,?)

How to generated properly sql? i.e
insert into dbo.Customer (PersonID,StoreID,TerritoryID,AccountNumber,rowguid,ModifiedDate) values (?,?,?,?,?,?)

#4 Re: mORMot 1 » Memory usesed by mormot Server increasing all time when client runing » 2017-02-17 07:56:13

sonadorje

you should upload your full code to a public web eg. http://code.google.com
so we can analyze it together!

#5 Re: mORMot 1 » null value is forced convert to 0 in json » 2017-02-17 03:17:07

sonadorje

Hi AB Master:
    I have another question.I'v defined a function "Add"  by following dddDomUser***.pas sample

function TInfraRepoCustomer.Add(const aAggregate: TCustomer): TCQRSResult;
begin
  result := ORMAdd(aAggregate);
end;

In the table [Sales.Customer],  CustomerID Field is Auto-increment
I write the code to test

   vCustomer := TCustomer.Create;
    try
      vCustomer.PersonID := 888;
      vCustomer.StoreID := 888;
      vCustomer.TerritoryID := 999;
      vCustomer.AccountNumber := 'sonadorje';
      vCustomer.rowguid := '{BC106C0A-964F-4FC1-BD77-6C978B70A531}';
      vCustomer.ModifiedDate := Now;
      if vCmd.Add(vCustomer) = cqrsSuccess then
         Caption := 'S_OK';
    finally
      vCustomer.Free;
    end;

on the server side, log is:
IDomCustomerCommand.Add[{CustomerID:0,PersonID:888,StoreID:888,TerritoryID:999,AccountNumber:"sonadorje",rowguid:"{BC106C0A-964F-4FC1-BD77-6C978B70A531}",ModifiedDate:"2017-02-17T10:32:14"}]

and the data not really be inserted into the database.
Have I lost some mainly process?

#6 Re: mORMot 1 » null value is forced convert to 0 in json » 2017-02-16 01:02:43

sonadorje

@AB Thank master!
now its json data is null.

#7 mORMot 1 » null value is forced convert to 0 in json » 2017-02-15 09:29:23

sonadorje
Replies: 9

in my REST server, I'v defined a function,it will return a T*ObjArray.
My Database is AdventureWorks2008R2, the mapping table is Sales.Customer

type
TSQLCustomer = class(TSQLRecord)
  protected
    fCustomerID: Int64;
    fPersonID: Int64;
    fStoreID: Int64;
    fTerritoryID: Int64;
    fAccountNumber: RawUTF8;
    frowguid: RawUTF8;
    fModifiedDate: TDateTime;
...
end

function TInfraRepoCustomer.GetCustomerByID(aID: int64): TCustomerObjArray;
begin
  //result := ORMGetAllAggregates(aAggregates);
  ServiceContext.Factory.Rest.RetrieveListObjArray(Result, TSQLCustomer, 'CustomerID = ?', [aID]);
end;

on the client ,I call the function,and use ObjectToJSON retrieve a JSON data:

{"CustomerID":11,"PersonID":0,"StoreID":1022,"TerritoryID":6,"AccountNumber":"AW00000011","rowguid":"{750F3495-59C4-48A0-80E1-E37EC60E77D9}","ModifiedDate":"2008-10-13T11:15:07"}

PersonID is null in database,now it is forced convert to 0.
but NULL is diffrent from 0,How to get real value "PersonID":null?

#8 Re: mORMot 1 » Serializing a Dynamic Array in Interfaced based services » 2017-02-13 13:26:05

sonadorje

@warleyalex thank you explain the detail of it!

#9 Re: mORMot 1 » Serializing a Dynamic Array in Interfaced based services » 2017-02-13 09:44:53

sonadorje
willo wrote:

while Res.Step do begin
    Supplier := TSupplier.Create;
    GetSupplier(Res['SUPPLIER_ID'], Supplier);
    ObjArrayAdd( Suppliers, Supplier );
  end;

The Array of Supplier,  could be auto free memory by the framework?
if not,when the Array of Supplier should be free by manul?

#10 Re: mORMot 1 » Using Database View's instead of Database Table's » 2017-02-13 01:07:18

sonadorje

@jbroussia Good work!

#11 Re: mORMot 1 » Newbie mormot question. Getting data from a public REST server » 2017-02-12 04:50:59

sonadorje

in the RESTful server, which service is provide?
Is  v1 a service'name in the link http://avoindata.prh.fi/tr/v1/0897464-3 ?

if you use TRESTClient can get json data from the link,maybe use mORMot no problem!

#12 Re: mORMot 1 » Mormot Restfull Authorization handshake » 2017-02-10 07:28:18

sonadorje

var ClientNonce's length must great then 32 .
Now we can create a GUID by:

function GetGUID: string;        
var
  LTep: TGUID;
begin
  CreateGUID(LTep);
  Result := GUIDToString(LTep);
end;

ClientNonce := GetGUID;

result will be like this:
2017-02-10 15:29:35  -  JSONContent >>> {"result":"1217222202+DC28B0E7941311C870624AB83E4BC7ECD5E462940A8F218F78CDDD567ED4B396","logonid":3,"logonname":"User","logondisplay":"User","logongroup":3,"server":"Project14ServerExternal","version":"0.0.0.0"}

Pages: 1

Board footer

Powered by FluxBB