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

Added Ignore QSL feature to Labelprint and Automark QSL

Browse Source
This commit is contained in:
OH1KH 2020-09-09 17:52:12 +03:00
parent 7958437f17
commit 498fada9f0
3 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/cqrlog.lpi
View File

@ -163,6 +163,7 @@
<Filename Value="fMarkQSL.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmMarkQSL"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit8>
<Unit9>

10
src/fExLabelPrint.pas
View File

@ -62,7 +62,7 @@ var
implementation
{$R *.lfm}
uses dUtils, dData, uMyIni, fQSLExpPref, dDXCC,fMain;
uses dUtils, dData, uMyIni, fQSLExpPref, dDXCC,fMain, dLOgUpload;
{ TfrmExLabelPrint }
procedure TfrmExLabelPrint.edtQSOsToLabelExit(Sender: TObject);
@ -427,6 +427,9 @@ begin
exit
end;
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
dmLogUpload.DisableOnlineLogSupport;
FieldCount := GetExpFieldCount;
if dmData.DebugLevel >= 1 then Writeln('Field count: ', FieldCount);
dmData.CreateQSLTmpTable;
@ -511,7 +514,10 @@ begin
dmData.DropQSLTmpTable;
lblProgress.Caption := 'Complete!';
CloseFile(f);
dmData.RefreshMainDatabase()
dmData.RefreshMainDatabase();
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
dmLogUpload.EnableOnlineLogSupport;
end
end;

11
src/fMarkQSL.pas
View File

@ -46,7 +46,7 @@ var
implementation
{$R *.lfm}
uses dUtils, dData, dDXCC;
uses dUtils, dData, dDXCC, UMyIni, dLogUpload;
procedure TfrmMarkQSL.FormShow(Sender: TObject);
begin
@ -76,6 +76,10 @@ begin
Application.MessageBox('First, you must filter QSO which you want to mark!','Info...',mb_ok+mb_IconInformation);
exit
end;
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
dmLogUpload.DisableOnlineLogSupport;
if Pos('WHERE',tmp) = 0 then exit;
tmp := copy(tmp,Pos('WHERE',tmp)+5,Length(tmp) - Pos('WHERE',tmp));
if pos('ORDER',tmp) > 0 then
@ -245,7 +249,10 @@ begin
end;
dmData.qCQRLOG.Next
end;
lblProg.Caption := 'Complete!'
lblProg.Caption := 'Complete!';
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
dmLogUpload.EnableOnlineLogSupport;
end;
procedure TfrmMarkQSL.cmbTypeChange(Sender: TObject);