Thema: Delphi Ersatz für DISTINCT ??

Einzelnen Beitrag anzeigen

Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.350 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Ersatz für DISTINCT ??

  Alt 3. Aug 2006, 18:04
Hi,

in einem Statement ist es wohl nicht zu machen.
Ich würde es etwa so lösen:
SQL-Code:
CREATE PROCEDURE ERMITTLE_ALLEMWSTSP (
    abdatum date)
returns (
    id_out integer,
    mwstsatz_out integer,
    abdatum_out date,
    mwstwert_out numeric(15,2))
as
begin
for
  select distinct(mwstsatz) from mwst
         order by mwstsatz
         into :mwstsatz_out do
  begin
    select max(abdatum) from mwst where
           mwstsatz = :mwstsatz_out and
           abdatum <= :abdatum
           into :abdatum_out;

    select id, mwstwert from mwst where
           mwstsatz = :mwstsatz_out and
           abdatum = :abdatum_out
           into :id_out, :mwstwert_out;
    suspend;
  end
end
Cu, Frank
Frank Reim
  Mit Zitat antworten Zitat