-- C:\mish_cvs\misH_skripte\pra_t_brojaci.pkb
--
-- Generated for Oracle 10g on Mon Oct 21  13:36:18 2024 by Server Generator 6.5.96.5.6
 

PROMPT Creating Package Body 'PRA_T_BROJACI'
CREATE OR REPLACE PACKAGE BODY PRA_T_BROJACI IS

PROCEDURE PROVJERI_MT_ID
 (MT_ID_P IN m_mt.id%TYPE
 ,VRSTA_DOKUMENTA_P IN T_BROJACI.VRSTA_DOKUMENTA%TYPE
 )
 IS
id_L   m_mt.id%TYPE;
/* MT_ID MORA POSTOJATI U M_MT/M_OJ ILI BITI NULA AKO SE RADI O TABLICI T_RNKASE */
BEGIN
  IF mt_id_P <> 0  AND vrsta_dokumenta_p NOT IN ('C', 'N', 'R') THEN
    SELECT id INTO id_L
      FROM m_mt
     WHERE id = mt_id_P;
  ELSIF mt_id_P <> 0 AND vrsta_dokumenta_p IN ('C', 'N', 'R') THEN
    SELECT id INTO id_L
      FROM m_oj
     WHERE id = mt_id_P;
  END IF;
END;
PROCEDURE ZABRANI_IZMJENE
 (VRSTA_DOKUMENTA_NEW_P IN t_brojaci.vrsta_dokumenta%TYPE
 ,VRSTA_DOKUMENTA_OLD_P IN t_brojaci.vrsta_dokumenta%TYPE
 ,GODINA_NEW_P IN t_brojaci.godina%TYPE
 ,GODINA_OLD_P IN t_brojaci.godina%TYPE
 ,MT_ID_NEW_P IN t_brojaci.mt_id%TYPE
 ,MT_ID_OLD_P IN t_brojaci.mt_id%TYPE
 ,OZN_VDOKUMENTA_NEW_P IN t_brojaci.ozn_vdokumenta%TYPE
 ,OZN_VDOKUMENTA_OLD_P IN t_brojaci.ozn_vdokumenta%TYPE
 )
 IS
/* ZABRANA IZMJENE STUPACA, OSIM RBR */
BEGIN
  IF vrsta_dokumenta_new_P <> vrsta_dokumenta_old_P 
    OR godina_new_P <> godina_old_P 
    OR mt_id_new_P <> mt_id_old_P 
    OR ozn_vdokumenta_new_P <> ozn_vdokumenta_old_P 
  THEN
    gas_zaj.vrati_poruku (-20069);
  END IF;
END;
PROCEDURE ZABRANI_BRISANJE
 IS
/* ZABRANA BRISANJA REDAKA */
BEGIN
  gas_zaj.vrati_poruku (-20070);
END;

END PRA_T_BROJACI;
/
SHOW ERROR