Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
397 Beiträge
Delphi 10.4 Sydney
|
Firebird SP
22. Apr 2023, 11:28
Datenbank: Firebird • Version: 2.5 • Zugriff über: IBO
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
Walter Landwehr Mfg
Walter
|