mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-22 02:47:19 +00:00
upload failed when user save and then delete the QSO
This commit is contained in:
parent
d9ba057432
commit
f36d0f6ca8
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user