Tweet
Delphi4 C/S, ZEOS Datenkomponenten, postgreSQL unter Linux
Hallo beisammen,
ich möchte zum Druck einer Bestellung zunächst einige Datensätze selektieren, dann die Bestellung mit diesen Datensätzen drucken und nach dem Druck diese Datensätze als gedruckt markieren.
Beim Markieren des Flags 'Bestellt' erhalte ich jedoch die Fehlermeldung "qyBestellPos: Das Feld 'entry' wurde nicht gefunden"
Das Feld 'entry' ist der Primary Key der Tabelle BestellPos.
Führe ich die SQL-Anweisung direkt unter postgreSQL aus, funktioniert sie - sie ist syntaktisch ja auch in Ordnung...
Folgender Code wird verwendet:
<PRE><CODE>
procedure TfmBestellungen.btBestellenClick(Sender: TObject);
begin
// relevante Datensätze selektieren
with dmGreenBase.qyBestellPos do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM bestellpos');
SQL.Add('WHERE lieferantnr = :SuchNr');
SQL.Add('AND NOT komplett AND NOT bestellt');
ParamByName('SuchNr').AsInteger := 12345;
Open;
end;
// Bestellung "drucken"
rpBestellung.Report.Preview;
// Buchungen vornehmen
with dmGreenBase.qyBestellPos do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE bestellpos');
SQL.Add('SET bestelldatum = CURRENT_TIMESTAMP, bestellt = True');
SQL.Add('WHERE lieferantnr = :SuchNr');
SQL.Add('AND NOT komplett AND NOT bestellt');
ParamByName('SuchNr').AsInteger := 12345;
Open;
end;
end;
</PRE></CODE>
Wer kann mir helfen?
Danke
Ralph
Hallo beisammen,
ich möchte zum Druck einer Bestellung zunächst einige Datensätze selektieren, dann die Bestellung mit diesen Datensätzen drucken und nach dem Druck diese Datensätze als gedruckt markieren.
Beim Markieren des Flags 'Bestellt' erhalte ich jedoch die Fehlermeldung "qyBestellPos: Das Feld 'entry' wurde nicht gefunden"
Das Feld 'entry' ist der Primary Key der Tabelle BestellPos.
Führe ich die SQL-Anweisung direkt unter postgreSQL aus, funktioniert sie - sie ist syntaktisch ja auch in Ordnung...
Folgender Code wird verwendet:
<PRE><CODE>
procedure TfmBestellungen.btBestellenClick(Sender: TObject);
begin
// relevante Datensätze selektieren
with dmGreenBase.qyBestellPos do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM bestellpos');
SQL.Add('WHERE lieferantnr = :SuchNr');
SQL.Add('AND NOT komplett AND NOT bestellt');
ParamByName('SuchNr').AsInteger := 12345;
Open;
end;
// Bestellung "drucken"
rpBestellung.Report.Preview;
// Buchungen vornehmen
with dmGreenBase.qyBestellPos do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE bestellpos');
SQL.Add('SET bestelldatum = CURRENT_TIMESTAMP, bestellt = True');
SQL.Add('WHERE lieferantnr = :SuchNr');
SQL.Add('AND NOT komplett AND NOT bestellt');
ParamByName('SuchNr').AsInteger := 12345;
Open;
end;
end;
</PRE></CODE>
Wer kann mir helfen?
Danke
Ralph
Comment