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

fix: editing QSO from NewQSO window

Browse Source 
After editing QSO directly from the NewQSO window, it always
replaced the latest QSO in the log.
This commit is contained in:
Petr Hlozek 2024-06-01 08:47:42 +02:00
parent 7d30da63a3
commit 043329ce82
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/fNewQSO.pas
View File

@ -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,6 +6489,7 @@ begin
EditViewMyLoc := dmData.qQSOBefore.FieldByName('my_loc').AsString;
end
else begin
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;