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

upload failed when user save and then delete the QSO

Browse Source
This commit is contained in:
Petr Hlozek 2013-12-30 15:15:43 +01:00
parent d9ba057432
commit f36d0f6ca8
1 changed files with 49 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/dLogUpload.pas
View File

@ -54,6 +54,7 @@ type
procedure MarkAsUploaded(LogName : String);
procedure PrepareUserInfoHeader(where : TWhereToUpload; data : TStringList);
procedure PrepareInsertHeader(where : TWhereToUpload; id_cqrlog_main : Integer; data : TStringList);
procedure PrepareMinimalInsertHeader(where : TWhereToUpload; id_log_changes : Integer; data : TStringList);
procedure PrepareDeleteHeader(where : TWhereToUpload; id_log_changes : Integer; data : TStringList);
procedure MarkAsUploaded(LogName : String; id_log_changes : Integer);
end;
@ -393,7 +394,7 @@ begin
for i := 1 to Length(band) do
begin
if (band[i] in ['0'..'9']) then
Result := Result + band
Result := Result + band[i]
end
end;
@ -477,6 +478,49 @@ begin
end //case
end;
procedure TdmLogUpload.PrepareMinimalInsertHeader(where : TWhereToUpload; id_log_changes : Integer; data : TStringList);
const
C_SEL_LOG_CHANGES = 'select * from log_changes where id = %d';
var
adif : String;
qsodate : String;
time_on : String;
begin
if trQ2.Active then trQ2.RollBack;
try
Q2.SQL.Text := Format(C_SEL_LOG_CHANGES,[id_log_changes]);
Q2.Open;
if Q2.Fields[0].IsNull then exit; //this shouldn't happen
qsodate := Q2.FieldByName('qsodate').AsString;
qsodate := copy(qsodate,1,4) + copy(qsodate,6,2) + copy(qsodate,9,2);
time_on := Q2.FieldByName('time_on').AsString;
time_on := copy(time_on,1,2) + copy(time_on,4,2);
adif := GetAdifValue('QSO_DATE',qsodate)+GetAdifValue('TIME_ON',time_on)+
GetAdifValue('CALL',Q2.FieldByName('callsign').AsString)+
GetAdifValue('BAND',Q2.FieldByName('band').AsString)+
GetAdifValue('MODE',Q2.FieldByName('mode').AsString)+'<EOR>';
case where of
upHamQTH : begin
data.Add('adif='+adif);
data.Add('cmd=INSERT')
end;
upClublog : begin
data.Add('adif='+adif)
end;
upHrdLog : begin
data.Add('ADIFData='+adif)
end
end //case
finally
Q2.Close;
trQ2.RollBack
end
end;
procedure TdmLogUpload.PrepareDeleteHeader(where : TWhereToUpload; id_log_changes : Integer; data : TStringList);
const
C_SEL_LOG_CHANGES = 'select * from log_changes where id = %d';
@ -585,6 +629,10 @@ begin
500 : begin
Result := 'Internal error';
FatalError := True
end;
404 : begin
Result := Response;
FatalError := True
end
end //case
end;