[PL/SQL] Collection

Marsh Posté le 23-11-2005 à 16:05:35

Bonjour,

je cherche à faire une procédure PL/SQL qui me renvoit une collection pour afficher ensuite cette collection dans une page aspx.

Il s'agirait d'une collection contenant 5 champs que j'alimenterai via des requetes. En fait une requete pour le premier champ et en fonction de la valeur de retour de ce champ, je dois faire des requetes différentes pour alimenter les autres champs.

Comment faire cette collection???

Marsh Posté le 23-11-2005 à 16:05:35

Marsh Posté le 24-11-2005 à 10:46:04

Est ce que cela semble cohérent

Code :

CREATE OR REPLACE PACKAGE PKG_TB IS
-- Record --
TYPE T_REC_ECO IS RECORD (
libelleCTC Varchar2(20),
resteCoupure INTEGER,
stock INTEGER,
traficTrie INTEGER,
tauxReste number);
-- Table de records --
TYPE TAB_T_REC_ECO IS TABLE OF T_REC_ECO index by binary_integer ;
PROCEDURE GetResteCoupureStock ( PCI_CODE_CATEGORIE IN CHAR,
PNI_CODE_NIVEAU_TRI IN NUMBER,
PTO_RES OUT TAB_T_REC_ECO);
END PKG_TB;
/
CREATE OR REPLACE PACKAGE BODY PKG_TB AS
PROCEDURE GetResteCoupureStock ( PCI_CODE_CATEGORIE IN CHAR,
PNI_CODE_NIVEAU_TRI IN NUMBER,
PTO_RES OUT TAB_T_REC_ECO) IS
codeCTC INTEGER;
resteCoupure INTEGER;
stock INTEGER;
traficTrie INTEGER;
fileHandler UTL_FILE.FILE_TYPE;
indice INTEGER;
codeZT INTEGER;
traficTraite INTEGER;
traficDefinitif INTEGER;
-- Record --
TYPE T_REC_ECO IS RECORD (
libelleCTC Varchar2(20),
resteCoupure INTEGER,
stock INTEGER,
traficTrie INTEGER,
tauxReste number);
-- Table de records --
TYPE TAB_T_REC_ECO IS TABLE OF T_REC_ECO index by binary_integer ;
t_rec TAB_T_REC_ECO ; -- variable tableau d'enregistrements
BEGIN
-- Ouverture du fichier de log
fileHandler := UTL_FILE.FOPEN('TRC_DIR', 'eco_depart.log', 'w');
stock := 0 ;
resteCoupure := 0 ;
traficTrie := 0;
indice := 1;
FOR r IN (
-- recuperation de la liste des etablissement
select distinct(ctc.code_ctc ),
ctc.libelle_ctc,
ctc.id_ctc
from ctc, stock_etablissement se, stock_macro_pt smp
where ctc.id_ctc = se.id_ctc
and (smp.stock != 0 or smp.reste_en_coupure != 0)
and smp.id_stock_etablissemen = se.id_stock_etablissemen
and se.journee_postale = '15/11/2005'
and ctc.date_suppression is null
and se.date_suppression is null
)
LOOP
UTL_FILE.PUT_LINE(fileHandler, 'code : ' || r.libelle_ctc);
t_rec(indice).libelleCTC := r.libelle_ctc;
for s in (
select smp.reste_en_coupure,
smp.stock,
mp.id_macro_pt,
zt.code_zt
from ctc, stock_etablissement se, stock_macro_pt smp, macro_pt mp, categorie cat, niveau_tri nt, zt
where ctc.id_ctc = se.id_ctc
and (smp.stock != 0 or smp.reste_en_coupure != 0)
and smp.id_stock_etablissemen = se.id_stock_etablissemen
and se.journee_postale = '15/11/2005'
and mp.id_macro_pt = smp.id_macro_pt
and mp.id_categorie = cat.id_categorie
and mp.id_niveau_tri = nt.id_niveau_tri
and cat.code_categorie = PCI_CODE_CATEGORIE
and nt.code_nt = PNI_CODE_NIVEAU_TRI
and ctc.date_suppression is null
and se.date_suppression is null
and mp.date_suppression is null
and cat.date_suppression is null
and nt.date_suppression is null
and ctc.id_ctc = r.id_ctc
and zt.id_zt = mp.id_zt
)
LOOP
resteCoupure := resteCoupure + s.reste_en_coupure;
stock := stock + s.stock;
UTL_FILE.PUT_LINE(fileHandler, 'macrpt : ' || s.id_macro_pt);
UTL_FILE.PUT_LINE(fileHandler, 'code zt : ' || s.code_zt);
-- recuperation trafic trié
if (s.code_zt = '2') then
select sum(t.trafic_traite) into traficTraite
from macro_pt mp, categorie cat, niveau_tri nt, chaine ch, trafic t, zt
where cat.date_suppression is null
and nt.date_suppression is null
and zt.date_suppression is null
and t.date_suppression is null
and mp.id_macro_pt = s.id_macro_pt
and mp.id_categorie = cat.id_categorie
and mp.id_niveau_tri = nt.id_niveau_tri
and cat.code_categorie = PCI_CODE_CATEGORIE
and nt.code_nt = PNI_CODE_NIVEAU_TRI
and ch.id_macro_pt = s.id_macro_pt
and t.id_chaine = ch.id_chaine
and t.journee_postale = '15/11/2005'
and zt.id_zt = mp.id_zt
and zt.code_zt = 2;
if traficTraite > 0 then
traficTrie := traficTrie + traficTraite;
end if;
UTL_FILE.PUT_LINE(fileHandler, 'traficTraite : ' || traficTraite);
end if;
if (s.code_zt = 1) then
select sum(trafic_definitif) into traficDefinitif
from ctc, stock_etablissement se, stock_macro_pt smp, macro_pt mp, categorie cat, niveau_tri nt, chaine ch, trafic t, zt
where cat.date_suppression is null
and nt.date_suppression is null
and zt.date_suppression is null
and t.date_suppression is null
and mp.id_macro_pt = s.id_macro_pt
and mp.id_categorie = cat.id_categorie
and mp.id_niveau_tri = nt.id_niveau_tri
and cat.code_categorie = PCI_CODE_CATEGORIE
and nt.code_nt = PNI_CODE_NIVEAU_TRI
and ch.id_macro_pt = s.id_macro_pt
and t.id_chaine = ch.id_chaine
and t.journee_postale = '15/11/2005'
and zt.id_zt = mp.id_zt
and zt.code_zt = 1;
UTL_FILE.PUT_LINE(fileHandler, 'traficDefinitif : ' || traficDefinitif);
if traficDefinitif > 0 then
traficTrie := traficTrie + traficDefinitif;
end if;
end if;
END LOOP;
t_rec(indice).resteCoupure := resteCoupure;
t_rec(indice).stock := stock;
t_rec(indice).traficTrie := traficTrie;
if traficTrie != 0 then
t_rec(indice).tauxReste := stock / traficTrie;
end if;
UTL_FILE.PUT_LINE(fileHandler, 'reste : ' || resteCoupure);
UTL_FILE.PUT_LINE(fileHandler, 'stock : ' || stock);
UTL_FILE.PUT_LINE(fileHandler, 'traficTrie : ' || traficTrie);
UTL_FILE.PUT_LINE(fileHandler, 'tauxReste : ' || t_rec(indice).tauxReste);
indice := indice + 1;
END LOOP;
-- PTO_RES :=t_rec;
-- Fermeture du fichier de log
UTL_FILE.FCLOSE(fileHandler);
EXCEPTION
WHEN utl_file.invalid_path THEN
RAISE_APPLICATION_ERROR(-20000, 'Erreur: répertoire / nom de fichier invalide');
WHEN OTHERS THEN
RAISE;
END GetResteCoupureStock;
END PKG_TB;
/

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *