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
