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;
Receive Header Net Packet out of orders
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
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