Code: Select all
while not Daten.Q_Kunden.Eof do
begin
Daten.Q_MSSQL_Export.Locate('Kunden_Nr', Daten.Q_Kunden.FieldByName('Kunden_Nr').AsInteger, []);
if Daten.Q_MSSQL_Export.FieldByName('Changed_Last').AsDateTime < Daten.Q_Kunden.FieldByName('Changed_Last').AsDateTime then
begin
Daten.Q_MSSQL_Export.Edit;
for i := 0 to Daten.Q_MSSQL_Export.Fields.Count-1 do
begin
FieldName := Daten.Q_MSSQL_Export.Fields[i].FullName;
// Felder durchlaufen
if (Daten.Q_Kunden.FindField(FieldName) <> nil) then
begin
if Daten.Q_Kunden.FieldByName(FieldName).Value <> Daten.Q_MSSQL_Export.FieldByName(FieldName).Value then
Daten.Q_MSSQL_Export.FieldByName(FieldName).Value := Daten.Q_Kunden.FieldByName(FieldName).Value;
end;
end;
Daten.Q_MSSQL_Export.Post;
end;
Daten.Q_Kunden.Next;
end;
Code: Select all
Daten.Q_MSSQL_Export.Post;
What am I doing wrong?
I get this exception only on Android!