From 043329ce82bb1e9cb2ddf5a057b5333bbf49b202 Mon Sep 17 00:00:00 2001
From: Petr Hlozek <petr@ok2cqr.com>
Date: Sat, 1 Jun 2024 08:47:42 +0200
Subject: [PATCH] fix: editing QSO from NewQSO window

After editing QSO directly from the NewQSO window, it always
replaced the latest QSO in the log.
---
 src/fNewQSO.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/fNewQSO.pas b/src/fNewQSO.pas
index ce18a4d..f9c53a1 100644
--- a/src/fNewQSO.pas
+++ b/src/fNewQSO.pas
@@ -643,6 +643,8 @@ type
     eQSLcfm,
     LoTWcfm    : String;
     UsrAssignedProfile : String;
+    editedQSOId : Integer;
+
     procedure showDOK(stat:boolean);
     procedure ShowDXCCInfo(ref_adif : Word = 0);
     procedure ShowFields;
@@ -3301,10 +3303,6 @@ begin
 
   if fEditQSO then
   begin
-    if fromNewQSO then
-      id := dmData.qQSOBefore.FieldByName('id_cqrlog_main').AsInteger
-    else
-      id := dmData.qCQRLOG.FieldByName('id_cqrlog_main').AsInteger;
     dmData.EditQSO(dmUtils.StrToDateFormat(edtDate.Text),
                    edtStartTime.Text,
                    edtEndTime.Text,
@@ -3337,7 +3335,7 @@ begin
                    dmSatellite.GetPropShortName(cmbPropagation.Text),
                    dmSatellite.GetSatShortName(cmbSatellite.Text),
                    RxFreq,
-                   id,
+                   editedQSOId,
                    edtContestSerialReceived.Text,
                    edtContestSerialSent.Text,
                    edtContestExchangeMessageReceived.Text,
@@ -6435,6 +6433,7 @@ begin
 
   if fromNewQSO then
   begin
+    editedQSOId       := dmData.qQSOBefore.FieldByName('id_cqrlog_main').AsInteger;
     cmbProfiles.Text  := dmData.GetProfileText(dmData.qQSOBefore.FieldByName('profile').AsInteger);
     edtDate.Text      := dmData.qQSOBefore.FieldByName('qsodate').AsString;
     edtStartTime.Text := dmData.qQSOBefore.FieldByName('time_on').AsString;
@@ -6490,7 +6489,8 @@ begin
     EditViewMyLoc :=  dmData.qQSOBefore.FieldByName('my_loc').AsString;
   end
   else begin
-    cmbProfiles.Text := dmData.GetProfileText(dmData.qCQRLOG.FieldByName('profile').AsInteger);
+    editedQSOId       := dmData.qCQRLOG.FieldByName('id_cqrlog_main').AsInteger;
+    cmbProfiles.Text  := dmData.GetProfileText(dmData.qCQRLOG.FieldByName('profile').AsInteger);
     edtDate.Text      := dmData.qCQRLOG.FieldByName('qsodate').AsString;
     edtStartTime.Text := dmData.qCQRLOG.FieldByName('time_on').AsString;
     edtEndTime.Text   := dmData.qCQRLOG.FieldByName('time_off').AsString;