Procedura-UpdateRelations

Parametry:

NázevPopisDatový typ
IN_IDChar(10)
IN_REL_DEFInteger
IN_LEFTSIDE_IDChar(10)
IN_RIGHTSIDE_IDChar(10)
IN_NUMVALUENumeric(15, 3)

Tělo:

BEGIN
  select ID from Relations
    where ID = :IN_ID
    into mID;
  if (mID is Null) then
    insert into Relations (ID, REL_DEF, LEFTSIDE_ID, RIGHTSIDE_ID, NUMVALUE)
      VALUES (:IN_ID, :IN_REL_DEF, :IN_LEFTSIDE_ID, :IN_RIGHTSIDE_ID, :IN_NUMVALUE);
  else
    UPDATE Relations
      SET REL_DEF= :IN_REL_DEF, LEFTSIDE_ID= :IN_LEFTSIDE_ID,
        RIGHTSIDE_ID= :IN_RIGHTSIDE_ID, NUMVALUE= :IN_NUMVALUE
      WHERE ID = :IN_ID;
END;

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