Sortierung klappt nicht korrekt (SQL)

[Gandimann]

Dear Friends,
vielen lieben Dank !
für eure Hilfe und Ansätze. Nach fast 8 Tassen Kaffe / 5 Stunden habe ich nun endlich Fehler gefunden. Hier ist

aktuell Ausschnitt der Code:

HOD1 := DateToStr(dtp1.date);
HOD2 := DateToStr(dtp1.date + 1);
HOD3 := DateToStr(dtp1.date + 2);
HOD4 := DateToStr(dtp1.date + 3);
HOD5 := DateToStr(dtp1.date + 4);
HOD6 := DateToStr(dtp1.date + 5);
HOD7 := DateToStr(dtp1.date + 6);

begin
for i := 1 to lstItems.Items.Count do begin

Emply := lstItems.Items.Strings[i - 1];
qry_RPT_PO.Close;
qry_RPT_PO.SQL.Text := 'select * from Posium where PO_FBEGIN_TIME >='
+ QuotedStr(datetostr(tt_D1_dt)) + 'and PO_FBEGIN_TIME <='
+ QuotedStr(datetostr(tt_D1_dt + 6)) + 'and PO_ADID ='
+ QuotedStr(Emply) + 'order by Po_Fbegin_Time ASC';
qry_RPT_PO.Open;

for L := 1 to qry_RPT_PO.RecordCount do begin

if HOD1 = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then begin

Emply := qry_RPT_PO.FieldByName('PO_ADID').asstring;
qry_RPT_DP.Locate('HO_ADID', Emply, []);
qry_RPT_DP.Edit;
qry_RPT_DP.FieldByName('HO_D1').Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
qry_RPT_DP.ApplyUpdates;
end;
if HOD2 = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then
begin

Emply := qry_RPT_PO.FieldByName('PO_ADID').asstring;
qry_RPT_DP.Locate('HO_ADID', Emply, []);
qry_RPT_DP.Edit;
qry_RPT_DP.FieldByName('HO_D2').Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
qry_RPT_DP.ApplyUpdates;
end;
if HOD3 = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then
begin

Emply := qry_RPT_PO.FieldByName('PO_ADID').asstring;
qry_RPT_DP.Locate('HO_ADID', Emply, []);
qry_RPT_DP.Edit;
qry_RPT_DP.FieldByName('HO_D3').Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
qry_RPT_DP.ApplyUpdates;
end;
if HOD4 = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then
begin

Emply := qry_RPT_PO.FieldByName('PO_ADID').asstring;
qry_RPT_DP.Locate('HO_ADID', Emply, []);
qry_RPT_DP.Edit;
qry_RPT_DP.FieldByName('HO_D4').Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
qry_RPT_DP.ApplyUpdates;
end;
if HOD5 = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then
begin

Emply := qry_RPT_PO.FieldByName('PO_ADID').asstring;
qry_RPT_DP.Locate('HO_ADID', Emply, []);
qry_RPT_DP.Edit;
qry_RPT_DP.FieldByName('HO_D5').Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
qry_RPT_DP.ApplyUpdates;
end;
if HOD6 = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then
begin

Emply := qry_RPT_PO.FieldByName('PO_ADID').asstring;
qry_RPT_DP.Locate('HO_ADID', Emply, []);
qry_RPT_DP.Edit;
qry_RPT_DP.FieldByName('HO_D6').Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
qry_RPT_DP.ApplyUpdates;
end;

if HOD7 = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then
begin

Emply := qry_RPT_PO.FieldByName('PO_ADID').asstring;
qry_RPT_DP.Locate('HO_ADID', Emply, []);
qry_RPT_DP.Edit;
qry_RPT_DP.FieldByName('HO_D7').Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
qry_RPT_DP.ApplyUpdates;
end;
qry_RPT_PO.Next;
end;
end;
end;
end;

__________________________________________________ ____________

May God bless you all

[hoika]

Hallo
bitte Delphi-Tags benutzen.

Und wo war das Problem?

[TigerLilly]

Gandimann,

du hast da sehr viel doppelten Code.

Du könntest das auch so machen:

Code:

for j:=0 to 6 do begin
  HODj := DateToStr(dtp1.date + j);
  ...
  if HODj = qry_RPT_PO.FieldByName('PO_FBEGIN_TIME').asstring then begin
    ...
    qry_RPT_DP.FieldByName('HO_D'+inttostr(j)).Value := qry_RPT_PO.FieldByName('PO_MEMO').asstring;
    ...

[haentschman]

Moin...

Delphi-Quellcode:

qry_RPT_PO.SQL.Text := 'select * from Posium where PO_FBEGIN_TIME >='
+ QuotedStr(datetostr(tt_D1_dt)) + 'and PO_FBEGIN_TIME <='
+ QuotedStr(datetostr(tt_D1_dt + 6)) + 'and PO_ADID ='
+ QuotedStr(Emply) + 'order by Po_Fbegin_Time ASC';

...da rollen sich mir die Fußnägel hoch.
Bitte benutze in Zukunft Parameter.

Delphi-Quellcode:

qry_RPT_PO.SQL.Text := 'select * from Posium where PO_FBEGIN_TIME >= :STA and PO_FBEGIN_TIME <= :ENT and PO_ADID = :EMP order by Po_Fbegin_Time ASC'
qry_RPT_PO.SQL.ParamByName('STA').AsString := datetostr(tt_D1_dt); // !!! besser mit Datefeldern arbeiten 
qry_RPT_PO.SQL.ParamByName('ENT').AsString := datetostr(tt_D1_dt + 6); // !!! besser mit Datefeldern arbeiten 
qry_RPT_PO.SQL.ParamByName('EMP').AsString := Emply;

PS:
Du benutzt eine etwas eigenwillige Formatierung und Benamsung der Variablen. Neulinge, die Delphi lernen wollen, sollten besser mit der Codeformatierung arbeiten.