Devart Forums

hi all.

Sql:
SELECT jo_nr_kreis Angebotsnr, max(jo_nrkreis_temp) PosNr, Count(*) Version, jo_erstelldatum Datum, jo_auftraggeber Auftraggeber, id_jo id, jo_auftragstyp typ, jo_status status, jp_kopiert_komplett verfolgung
FROM 001_journal
WHERE jo_auftragstyp = :auftragtyp
Group BY jo_nr_kreis
Order by jo_nr_kreis DESC;

Delphi:
OnCreate;

with mqr_liste_angebote do
begin
Close;
sql.Strings[1] := 'FROM '+g_journal;
ParamByName('auftragtyp').AsString := 'Angebot';
Open;
end;

procedure Tf_angebote.mqr_liste_angeboteAfterScroll(DataSet: TDataSet);
var i, versionnr: Integer;
nr: String;
begin
IF Tabelle.State dsBrowse Then exit;


nr := mqr_liste_angebote.Fieldbyname('PosNr').AsString;
showmessage(nr); // ((Receive Header Net Packet out of orders) or this,
ef[]dbname[]001_journal[]angebotsnr[]jo_nr_kreis[]?

What that? Why?

with Tabelle do
begin
Close;
ParamByName('nrkreis').AsString:= mqr_liste_angebote.fieldbyname('Angebotsnr').AsString;
ParamByName('auftragstyp').AsString:= mqr_liste_angebote.fieldbyname('typ').AsString;
Open;
end;


with mqr_liste_artikeln do
begin
Close;
ParamByName('nrkreis').AsString:= nr;
Open;
end;

We could not reproduce the problem.
Please send us (evgeniyD*crlab*com) a complete small sample to demonstrate it, including script to create and fill table.

Also supply us the following information
- Exact version of Delphi or Kylix
- Exact version of MyDAC. You can see it in the About sheet of TMyConnection Editor
- Exact version of MySQL server and MySQL client. You can see it in the Info sheet of TMyConnection Editor