mORMot Open Source

function write_TodayHQ_batch(fContent: variant): boolean;
var
  aTodayHQ: TSQLTTodayHQ;
  aBatch: TSQLRestBatch;
  iLoop : Integer;
  v: Variant;
begin
  Result := False;
  with _safe(fContent)^ do
  begin
    aBatch := TSQLRestBatch.Create(aRestServer, TSQLTTodayHQ, 200); //200 will error, change to 1000 everything ok
    try
      for iLoop := 0 to Count - 1 do
      begin
        v := Values[iLoop];
        with _safe(v)^ do
        begin
          aTodayHQ := TSQLTTodayHQ.Create(aRestServer, 'FCode=?', [U['Code']]);
          try
            aTodayHQ.FCode := U['Code'];
            aTodayHQ.FPClose := D['PClose'];
            aTodayHQ.FOpen := D['Open'];
            aTodayHQ.FClose := D['Close'];
            aTodayHQ.FHigh := D['High'];
            aTodayHQ.FLow := D['Low'];
            aTodayHQ.FVolume := I['Volume'];
            aTodayHQ.FAmount := D['Amount'];
            if aTodayHQ.ID > 0 then
              aBatch.Update(aTodayHQ)
            else
              aBatch.Add(aTodayHQ, True);
          finally
            aTodayHQ.Free;
          end;
        end;
      end;
      Result := (aRestServer.BatchSend(aBatch) = HTTP_SUCCESS);
    finally
      aBatch.Reset;
      aBatch.Free;
    end;
  end;
end;

20210225 03082838 trace mORMotSQLite3.TSQLRestServerDB(7faccc592c10) BatchSend {"TSQLRestBatch(7faccc5ca140)":{"Count":594,"SizeBytes":83991}}
20210225 03082838  +    mORMotSQLite3.TSQLRestServerDB(7faccc592c10).EngineBatchSend TSQLTTodayHQ inlen=83992
20210225 03082838  +            SynDBZeos.TSQLDBZEOSConnection(7faccc5c9dc0).StartTransaction
20210225 03082838  -            00.000.351
20210225 03082838 DB            SynDBZeos.TSQLDBZEOSStatement(7faccc529520) Prepare 968us update TTodayHQ set FCode=?,FPClose=?,FOpen=?,FClose=?,FHigh=?,FLow=?,FVolume=?,FAmount=? where ID=?
20210225 03082843 SQL           SynDBZeos.TSQLDBZEOSStatement(7faccc529520) ExecutePrepared 79.58ms wr=200 update TTodayHQ set FCode='SZ300326',FPClose=11.25,FOpen=11.2,FClose=11.33,FHigh=11.64,FLow=11.09,FVolume=0,FAmount=208098038 where ID=3116
20210225 03082844  +            SynDBZeos.TSQLDBZEOSConnection(7faccc5c9dc0).StartTransaction
20210225 03082844  -            00.000.034
20210225 03082845 SQL           SynDBZeos.TSQLDBZEOSStatement(7faccc529520) ExecutePrepared 14.06ms wr=200 update TTodayHQ set FCode='SZ300530',FPClose=18.34,FOpen=18.3,FClose=18.54,FHigh=19.28,FLow=18.06,FVolume=0,FAmount=28962745 where ID=3316
20210225 03082847  +            SynDBZeos.TSQLDBZEOSConnection(7faccc5c9dc0).StartTransaction
20210225 03082847  -            00.000.033
20210225 03082847 EXC           EZSQLException ("SQL Error: Dynamic SQL ErrorSQL error code = -104Unexpected end of command - line 1, column 27. Error Code: -104. Invalid token The SQL: EXECUTE BLOCK(P0_0 VARCHAR(; ") [] at   $0000000000841AB8  CHECKINTERBASE6ERROR,  line 902 of ../FPC/zeoslib7.2/src/dbc/ZDbcInterbase6Utils.pas  $0000000000841EED  PREPARESTATEMENT,  line 956 of ../FPC/zeoslib7.2/src/dbc/ZDbcInterbase6Utils.pas  $0000000000853670  PREPARE,  line 344 of ../FPC/zeoslib7.2/src/dbc/ZDbcInterbase6Statement.pas  $000000000050F44B  INTERNALBATCHSTOP,  line 1153 of ../FPC/mORMot/SQLite3/mORMotDB.pas  $0000000000669B5F  PERFORMAUTOMATICCOMMIT,  line 42979 of ../FPC/mORMot/SQLite3/mORMot.pas
20210225 03082860 EXC           EORMException {"Message":"TSQLRestStorageExternal.InternalBatchStop(TSQLTTodayHQ).BatchMethod=mNone"} [] at   $000000000050EB3D  INTERNALBATCHSTOP,  line 1057 of ../FPC/mORMot/SQLite3/mORMotDB.pas  $000000000066967F  ENGINEBATCHSEND,  line 43225 of ../FPC/mORMot/SQLite3/mORMot.pas
20210225 03082862 trace         mORMotSQLite3.TSQLRestServerDB(7faccc592c10) EngineBatchSend json=82 KB add=0 update=594 delete=0 TSQLTTodayHQ