Procedura-IncObjectRef

Popis:

Zvýší počítadlo referencí (odkazů) objektu (věty) OID z tabulky TableName.

Parametry:

Název	Popis	Datový typ
IN_TableID		Integer
IN_OID		Char(10)

Tělo:

BEGIN
  IF ((:IN_OID <> '0000000000') and (:IN_OID is not null) and (:IN_TableID is not null)) then BEGIN
    TempReference = -1;
    SELECT Reference from SYS$REFCOUNT
      WHERE ID = :IN_OID AND TableID = :IN_TABLEID
      INTO :TempReference;
    IF (TempReference > -1) THEN
      /*Zvýšíme počítadlo odkazů*/
      BEGIN
        UPDATE SYS$REFCOUNT SET REFERENCE = REFERENCE + 1
          WHERE ID = :IN_OID AND TABLEID = :IN_TABLEID;
      END
    ELSE
      /*Založíme počítadlo odkazů pro dany objekt*/
      BEGIN
        INSERT INTO SYS$REFCOUNT(TABLEID, ID, REFERENCE)
          VALUES (:IN_TABLEID, :IN_OID, 1);
      END
  END
END;

Generated by ABRA Software a.s. 27.10.2021 16:34:16