[Firebird] Procedura ten sam wynik, Ciągle ten sam wynik Opcje

[icemanwlkp]

ello, to mój 1 post tutaj , jestem na etapie nauki , mam procedurę:

[SQL] pobierz, plaintext 
CREATE OR ALTER PROCEDURE ZAMKNIJ_DOKMAG (
    DID INTEGER
)
returns (
    aresult varchar(240)
    )
AS
DECLARE VARIABLE DDATA_ZAMK DATE;
BEGIN
SELECT DATA_ZAMK
FROM DOKMAG
WHERE ID=:DID
INTO :DDATA_ZAMK;
/* Sprawdzamy czy czasami dokument nie jest zamkniety */
IF (DDATA_ZAMK IS NOT NULL)
THEN ARESULT='Nie można zamknąć już zamkniętego dokumentu !';
ELSE
UPDATE DOKMAG SET DATA_ZAMK=current_date WHERE ID=:did;
ARESULT='OK';
SUSPEND;
END;
[SQL] pobierz, plaintext 

W odpowiedzi zawsze dostaje "OK" ,gdzie popełniłem błąd ? , pozdrawiam i liczę na pomoc