Procedura-DecObjectRef

Popis:
Sníží počítadlo referencí (odkazů) objektu (věty) OID z tabulky TableName.

Parametry:

NázevPopisDatový typ
IN_TableIDInteger
IN_OIDChar(10)

Tělo:

BEGIN
  IF ((:IN_OID <> '0000000000') and (:IN_OID is not null) and (:IN_TableID is not null)) then BEGIN
    UPDATE SYS$REFCOUNT SET REFERENCE = REFERENCE - 1
      WHERE ID = :IN_OID AND TABLEID = :IN_TableID;
  END
END;

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