Hallo Zusammen,
ich glaube ich habe es gelöst...
Hier meine Procedure:
Delphi-Quellcode:
Query.SQL.Clear;
Query.SQL.Add('
UPDATE as400temp SET as400temp.OARMDA = ');
Query.SQL.Add('
(SELECT OARMDA FROM as400 ');
Query.SQL.Add('
WHERE as400.WAAUNR=as400temp.WAAUNR AND ');
//Primary Key
Query.SQL.Add('
as400.WAAUPO=as400temp.WAAUPO AND ');
//Primary Key
Query.SQL.Add('
as400.OAAGNR=as400temp.OAAGNR AND ');
//Primary Key
Query.SQL.Add('
as400.OARMDA<> :Datum) ');
//0-Datum aus as400 nicht berücksichtigen
Query.SQL.Add('
where as400temp.OARMDA= :Datum ');
//Nur die 0-Datums aus as400temp updaten
Query.ParamByName('
Datum').AsString:='
0000-00-00';
Query.Execute;
Gruß
Patrick