Procedura-SaveCentralData

Parametry:

NázevPopisDatový typ
IN_User_IDChar(10)
IN_PathVarChar(180)
IN_DataBinaryBlob(0)

Tělo:

begin
  mPath = Null;
  if (:IN_User_ID is not Null) then
    mUserID = :IN_User_ID;
  select Path from CentralStorage
    where :mUserID = ComputedUser and :IN_Path = Path
    into mPath;
  if (mPath is Null) then
    insert into CentralStorage (User_ID, Path, Data, ComputedUser) VALUES (:IN_User_ID, :IN_Path, :IN_Data, :mUserID);
  else
    update CentralStorage set Data = :IN_Data
      where :mUserID = ComputedUser and :IN_Path = Path;
end;

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