1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

  Result := TRUE;
 try
  qrACK.Close;
  qrACK.SQL.Text := 'INSERT INTO '+sTable+
  ' (VSYS_ID, ALM_TAGNAME, ALM_DATELAST, ALM_TIMELAST, alm_timeduration, '+
  'alm_dateend, alm_timeend, alm_tagdesc, alm_descr, alm_msgtype, alm_almstatus, '+
  'alm_almarea, alm_almpriority, alm_value, alm_unit, alm_datein, alm_timein, '+
  'alm_lognodename, alm_physlnode, alm_opname, alm_opnode, alm_almextfld1, alm_almextfld2, '+
  'alm_nativetimein, alm_nativetimelast, alm_opfullname, alm_perfname, alm_perffullname, '+
  'alm_perfbycomment, alm_vername, alm_verfullname, alm_verbycomment, alm_msgid, alm_userfld1, '+
  'alm_userfld2, alm_userfld3, alm_userfld4'+
  ')VALUES('+
  ':sys, :tag, :datl, :timl, :dur, :date, :time, :tagd, :desc, :msgt, :alms, '+
  ':alma, :almp, :valu, :unit, :dati, :timi, :logn, :phys, :opna, :opno, '+
  ':ext1, :ext2, :natin, :natla, :opful, :perfn, :perff, :perfb, :vern, :verf, '+
  ':verb, :msgi, :user1, :user2, :user3, :user4)';
  qrACK.Parameters.ParamByName( 'sys' ).Value   := frmAlarmsAndMessages.GetSystemTime;
  qrACK.Parameters.ParamByName( 'tag' ).Value   := rec.sAlm_TagName;
  qrACK.Parameters.ParamByName( 'datl' ).Value  := rec.sAlm_DateLast;
  qrACK.Parameters.ParamByName( 'timl' ).Value  := rec.sAlm_TimeLast;
  qrACK.Parameters.ParamByName( 'dur' ).Value   := rec.sAlm_TimeDuration;
  qrACK.Parameters.ParamByName( 'date' ).Value  := rec.sAlm_DateEnd;
  qrACK.Parameters.ParamByName( 'time' ).Value  := rec.sAlm_TimeEnd;
  qrACK.Parameters.ParamByName( 'tagd' ).Value  := rec.sAlm_TagDesc;
  qrACK.Parameters.ParamByName( 'desc' ).Value  := rec.sAlm_Descr;
  qrACK.Parameters.ParamByName( 'msgt' ).Value  := rec.sAlm_MsgType;
  qrACK.Parameters.ParamByName( 'alms' ).Value  := rec.sAlm_AlmStatus;
  qrACK.Parameters.ParamByName( 'alma' ).Value  := rec.sAlm_AlmArea;
  qrACK.Parameters.ParamByName( 'almp' ).Value  := rec.sAlm_AlmPriority;
  qrACK.Parameters.ParamByName( 'valu' ).Value  := rec.sAlm_Value;
  qrACK.Parameters.ParamByName( 'unit' ).Value  := rec.sAlm_Unit;
  qrACK.Parameters.ParamByName( 'dati' ).Value  := rec.sAlm_DateIn;
  qrACK.Parameters.ParamByName( 'timi' ).Value  := rec.sAlm_TimeIn;
  qrACK.Parameters.ParamByName( 'logn' ).Value  := rec.sAlm_LogNodeName;
  qrACK.Parameters.ParamByName( 'phys' ).Value  := rec.sAlm_PhyslNode;
  qrACK.Parameters.ParamByName( 'opna' ).Value  := rec.sAlm_OpName;
  qrACK.Parameters.ParamByName( 'opno' ).Value  := rec.sAlm_OpNode;
  qrACK.Parameters.ParamByName( 'ext1' ).Value  := rec.sAlm_AlmExtFld1;
  qrACK.Parameters.ParamByName( 'ext2' ).Value  := rec.sAlm_AlmExtFld2;
  qrACK.Parameters.ParamByName( 'natin' ).Value := rec.sAlm_NativeTimeIn;
  qrACK.Parameters.ParamByName( 'natla' ).Value := rec.sAlm_NativeTimeLast;
  qrACK.Parameters.ParamByName( 'opful' ).Value := rec.sAlm_OPFullName;
  qrACK.Parameters.ParamByName( 'perfn' ).Value := rec.sAlm_PerfName;
  qrACK.Parameters.ParamByName( 'perff' ).Value := rec.sAlm_PerfFullName;
  qrACK.Parameters.ParamByName( 'perfb' ).Value := rec.sAlm_PerfByComment;
  qrACK.Parameters.ParamByName( 'vern' ).Value  := rec.sAlm_VerName;
  qrACK.Parameters.ParamByName( 'verf' ).Value  := rec.sAlm_VerFullName;
  qrACK.Parameters.ParamByName( 'verb' ).Value  := rec.sAlm_VerByComment;
  qrACK.Parameters.ParamByName( 'msgi' ).Value  := rec.sAlm_MsgID;
  qrACK.Parameters.ParamByName( 'user1' ).Value := rec.sAlm_UserFld1;
  qrACK.Parameters.ParamByName( 'user2' ).Value := rec.sAlm_UserFld2;
  qrACK.Parameters.ParamByName( 'user3' ).Value := rec.sAlm_UserFld3;
  qrACK.Parameters.ParamByName( 'user4' ).Value := rec.sAlm_UserFld4;
  qrACK.ExecSQL;
 Except
  Result := FALSE;
 End;