Procedura-UpdateObjectRef

Popis:

Upraví počítadla referencí (odkazů) objektů (vět) OLDOID a NEWOID z tabulky TableName.

Parametry:

Název	Popis	Datový typ
OldTableID		Integer
NewTableID		Integer
OldID		Char(10)
NewID		Char(10)

Závislosti:

Název	Popis	Třída
DecObjectRef	Sníží počítadlo referencí (odkazů) objektu (věty) OID z tabulky TableName.	Procedures
IncObjectRef	Zvýší počítadlo referencí (odkazů) objektu (věty) OID z tabulky TableName.	Procedures

Tělo:

BEGIN
  if ((NewID <> OldID) or (OldTableID <> NewTableID) or
     (NewID is null and OldID is not null) or
     (NewID is not null and OldID is null)) then begin
    execute procedure DecObjectRef(OldTableID, OldID);
    execute procedure IncObjectRef(NewTableID, NewID);
  end
END;

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