Thema: Delphi Procedur erzeugen

Einzelnen Beitrag anzeigen

Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
397 Beiträge
 
Delphi 10.4 Sydney
 
#1

Procedur erzeugen

  Alt 18. Nov 2022, 17:17
Hallo,

ich möchte eine Stored Procedur erzeugen bekomme aber einen Fehler in Zeile 14 Spalte 104. Was ist da falsch?

Delphi-Quellcode:
SET TERM ^ ;

create or alter procedure SP_PATBLATT (
    PATIENTNR integer,
    DIAGNOSE integer,
    DATUM date,
    SUCHWORT varchar(60),
    ANLAGE timestamp,
    ANLAGEBENUTZER varchar(35),
    DIAGNOSENR integer,
    REFERENZTABELLE varchar(2),
    REFERENZNR integer,
    ICD varchar(15))
as
begin
  if (not exits ('Select * from tbl_patdiagnose where suchwort = :SUCHWORT and patientnr = :PATIENTNR')) 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
  suspend;
end^

SET TERM ; ^
Bitte um Hilfe.
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat