Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
Delphi 8 Professional
|
Re: Join über 3 Tabellen
5. Mär 2004, 20:25
so siehts aus:
SQL-Code:
BEGIN
FOR SELECT ART.ID, ART.NR,ART.BEZ, SP.VP
FROM ART, SP
WHERE (ART.ID=SP.ID_ART ) AND
SP.ID_KUNDE = :ID_KUNDE
INTO :OUT_HARTID, :OUT_HNR, :OUT_HBEZ, :OUT_HPREIS
DO
begin
OUT_NR = :OUT_HNR;
OUT_BEZ = :OUT_HBEZ;
OUT_PREIS = :OUT_HPREIS;
/* ist der preis <> 0 dann gebe hilfsvariablen aus */
IF (OUT_HPREIS <> 0) THEN BEGIN
SUSPEND;
END
ELSE
BEGIN
/* preis = 0 -> hole preis von artpg direkt in ausgabevariable */
FOR SELECT ARTPG.PG FROM ARTPG
WHERE (ARTPG.ID_ART = :OUT_HARTID) AND (ARTPG
.PGNR = :PGNR) /* das ist die art.nr von oben */
INTO :OUT_PREIS
DO
SUSPEND;
END
end
END
Ich habe nicht viel gemacht.
Gruß
Hansa
|
|
Zitat
|