Esempi sui package

package/PACKAGE_3.sql

@@ -0,0 +1,45 @@
+--Esempio Creazione Package Articolato
+
+CREATE OR REPLACE PACKAGE GestArt
+AS
+
+    TYPE articoli_type IS RECORD
+    (CodArt ARTICOLI.CODART%TYPE,
+    Descrizione ARTICOLI.DESCRIZIONE%TYPE,
+    Um ARTICOLI.UM%TYPE,
+    PzCart  ARTICOLI.PZCART%TYPE,
+    CodStat ARTICOLI.CODSTAT%TYPE,
+    PesoNetto  ARTICOLI.PESONETTO%TYPE,
+    Iva  ARTICOLI.IDIVA%TYPE,
+    Stato  ARTICOLI.IDSTATOART%TYPE,
+    IdFamAss ARTICOLI.IDFAMASS%TYPE,
+    Reparto FAMASSORT.DESCRIZIONE%TYPE,
+    QtaMag NUMBER
+    );
+    
+    TYPE Info_Articolo IS REF CURSOR RETURN articoli_type;
+     
+    PROCEDURE Sp_SelArticolo(CODART_I IN ARTICOLI.CODART%TYPE, 
+        ARTICOLO_O OUT Info_Articolo);
+        
+    PROCEDURE Sp_SelArticolo(Parametro IN ARTICOLI.DESCRIZIONE%TYPE, Tipo IN NUMBER,
+        RECORDSET_P OUT SYS_REFCURSOR);
+        
+    PROCEDURE Sp_DelArticolo(CODART_I IN ARTICOLI.CODART%TYPE);
+        
+    PROCEDURE Sp_InsArticolo(CODART_I IN ARTICOLI.CODART%TYPE, 
+        DESCRIZIONE_I IN ARTICOLI.DESCRIZIONE%TYPE, UM_I IN ARTICOLI.UM%TYPE,
+        CODSTAT_I IN ARTICOLI.CODSTAT%TYPE, PZCART_I IN ARTICOLI.PZCART%TYPE,
+        PESONETTO_I IN ARTICOLI.PESONETTO%TYPE, IDIVA_I IN ARTICOLI.IDIVA%TYPE,
+        IDSTATO_I IN ARTICOLI.IDSTATOART%TYPE, IDFAMASS_I IN ARTICOLI.IDFAMASS%TYPE);
+        
+    FUNCTION Uf_GetQtaMag(CODART_I IN ARTICOLI.CODART%TYPE)
+        RETURN NUMBER;
+    
+    FUNCTION IsArtPresent(CODART_I IN ARTICOLI.CODART%TYPE)
+        RETURN BOOLEAN;
+        
+    FUNCTION Uf_GetVenMese(CODART_I IN ARTICOLI.CODART%TYPE, MeseRif_I NUMBER, AnnoRif_I NUMBER)
+        RETURN NUMBER;
+        
+END GestArt;