Firebird SP

[Walter Landwehr]

Hallo,
ich habe eine SP bei der in Zeile 2 immer der Fehler Parsing error auftritt. Was mache ich falsch?

Hier die SP

Delphi-Quellcode:

begin
    select DOPPELTE_DIAG from TBL_OPTIONEN into :DOPPELTE_DIAG
    if DOPPELTE_DIAG = 'N' then
    begin
      if (not exists (Select * from tbl_patdiagnose where suchwort = :SUCHWORT and patientnr = :PATIENTNR)) then
      begin
        if (patientnr is not null) then
        begin
           INSERT INTO TBL_PATDIAGNOSE(PATDIAGNOSENR, PATIENTNR, DATUM, DAUERDIAGNOSE, DIAGNOSE,
                     ANLAGE, ANLAGEBENUTZER, DIAGNOSENR, Suchwort, ReferenzTabelle, ReferenzNr,ICD)
           VALUES (Gen_ID(GEN_TBL_PATDIAGNOSE,1), :PATIENTNR, :DATUM, 'N', :Diagnose,
                     :Anlage, :ANLAGEBENUTZER, :DIAGNOSENR, :Suchwort, 'PB', :ReferenzNr,:ICD);
        end
        if (not exists (Select * from tbl_tpatdiagnose where suchwort = :SUCHWORT and Tierenr = :Tierenr)) then
        begin
        if (TiereNR is not null) then
          begin
           INSERT INTO TBL_TPATDIAGNOSE(TPATDIAGNOSENR, TIERENR, DATUM, DAUERDIAGNOSE, DIAGNOSE,
                     ANLAGE, ANLAGEBENUTZER, DIAGNOSENR, Suchwort, ReferenzTabelle, ReferenzNr,ICD)
           VALUES (Gen_ID(GEN_TBL_PATTDIAGNOSE,1), :TIERENR, :DATUM, 'N', :Diagnose,
                     :Anlage, :ANLAGEBENUTZER, :DIAGNOSENR, :Suchwort, 'PB', :ReferenzNr,:ICD);
          end
        end
      end
   end
   else
   begin
       if (patientnr is not null) then
     begin
       INSERT INTO TBL_PATDIAGNOSE(PATDIAGNOSENR, PATIENTNR, DATUM, DAUERDIAGNOSE, DIAGNOSE,
                     ANLAGE, ANLAGEBENUTZER, DIAGNOSENR, Suchwort, ReferenzTabelle, ReferenzNr,ICD)
       VALUES (Gen_ID(GEN_TBL_PATDIAGNOSE,1), :PATIENTNR, :DATUM, 'N', :Diagnose,
                     :Anlage, :ANLAGEBENUTZER, :DIAGNOSENR, :Suchwort, 'PB', :ReferenzNr,:ICD);
     end
     if (not exists (Select * from tbl_tpatdiagnose where suchwort = :SUCHWORT and Tierenr = :Tierenr)) then
     begin
       if (TiereNR is not null) then
         begin
                INSERT INTO TBL_TPATDIAGNOSE(TPATDIAGNOSENR, TIERENR, DATUM, DAUERDIAGNOSE, DIAGNOSE,
                     ANLAGE, ANLAGEBENUTZER, DIAGNOSENR, Suchwort, ReferenzTabelle, ReferenzNr,ICD)
           VALUES (Gen_ID(GEN_TBL_PATTDIAGNOSE,1), :TIERENR, :DATUM, 'N', :Diagnose,
                     :Anlage, :ANLAGEBENUTZER, :DIAGNOSENR, :Suchwort, 'PB', :ReferenzNr,:ICD);
        end
     end
   end      
  suspend;
end

[Delphi.Narium]

Fehlt eventuell am Ende der zweiten Zeile das Semikolon?

[punktl]

Moin,

also hier?: if DOPPELTE_DIAG = 'N' then

dann würde ich sagen, die Klammern fehlen.

if (DOPPELTE_DIAG = 'N') then ...

Peter

[Walter Landwehr]

Danke Euch beiden das war der Fehler Semikolon und Klammer.