hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 10:27:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

issue #214 AutoMark QSL now always rollback transaction

Browse Source 
user did have 'transaction already active' error when
        using auto mark. now, when starting a new query, the transaction
        is reset by a rollback.
This commit is contained in:
Andreas Puschendorf 2019-10-24 22:01:47 +02:00
parent 8d720e495a
commit e8e8892d66
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/fMarkQSL.pas
View File

@ -116,6 +116,7 @@ begin
if (dmData.Q.Fields[0].AsInteger = 0) then
begin
dmData.Q.Close;
dmData.trQ.Rollback;
dmData.Q.SQL.Text := 'update cqrlog_main set qsl_s=' + QuotedStr(cmbQSLS.Text) + ' where id_cqrlog_main = ' + IntToStr(id);
if dmData.DebugLevel >= 1 then WriteLn(dmData.Q.SQL.Text);
dmData.trQ.StartTransaction;
@ -192,6 +193,7 @@ begin
if (dmData.Q.Fields[0].AsInteger = 0) then
begin
dmData.Q.Close;
dmData.trQ.Rollback;
dmData.Q.SQL.Text := 'update cqrlog_main set qsl_s=' + QuotedStr(cmbQSLS.Text) + ' where id_cqrlog_main = ' + IntToStr(id);
if dmData.DebugLevel >= 1 then WriteLn(dmData.Q.SQL.Text);
dmData.trQ.StartTransaction;
@ -228,6 +230,7 @@ begin
if (dmData.Q.Fields[0].AsInteger = 0) then
begin
dmData.Q.Close;
dmData.trQ.Rollback;
dmData.Q.SQL.Text := 'update cqrlog_main set qsl_s=' + QuotedStr(cmbQSLS.Text) + ' where id_cqrlog_main = ' + IntToStr(id);
if dmData.DebugLevel >= 1 then WriteLn(dmData.Q.SQL.Text);
dmData.trQ.StartTransaction;