Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2692 connectés 

  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  [PL/SQL] Collection

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[PL/SQL] Collection

n°1251605
lapartdomb​re
Posté le 23-11-2005 à 16:05:35  profilanswer
 

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???

mood
Publicité
Posté le 23-11-2005 à 16:05:35  profilanswer
 

n°1252084
lapartdomb​re
Posté le 24-11-2005 à 10:46:04  profilanswer
 

Est ce que cela semble cohérent
 

Code :
  1. CREATE OR REPLACE PACKAGE PKG_TB IS
  4. -- Record --
  5. TYPE T_REC_ECO IS RECORD (
  6. libelleCTC Varchar2(20),
  7. resteCoupure INTEGER,
  8. stock INTEGER,
  9. traficTrie INTEGER,
  10. tauxReste number);
  11. -- Table de records --
  12. TYPE TAB_T_REC_ECO IS TABLE OF T_REC_ECO index by binary_integer ;
  15. PROCEDURE GetResteCoupureStock  (  PCI_CODE_CATEGORIE  IN CHAR,
  16.                                    PNI_CODE_NIVEAU_TRI  IN NUMBER,
  17.           PTO_RES OUT TAB_T_REC_ECO);
  19. END PKG_TB;
  20. /
  22. CREATE OR REPLACE PACKAGE BODY PKG_TB AS
  25. PROCEDURE GetResteCoupureStock  (  PCI_CODE_CATEGORIE  IN CHAR,
  26.                                    PNI_CODE_NIVEAU_TRI IN NUMBER,
  27.           PTO_RES OUT TAB_T_REC_ECO) IS
  31. codeCTC INTEGER;
  32. resteCoupure INTEGER;
  33. stock INTEGER;
  34. traficTrie INTEGER;
  35. fileHandler UTL_FILE.FILE_TYPE;
  36. indice INTEGER;
  37. codeZT INTEGER;
  38. traficTraite INTEGER;
  39. traficDefinitif INTEGER;
  41. -- Record --
  42. TYPE T_REC_ECO IS RECORD (
  43. libelleCTC Varchar2(20),
  44. resteCoupure INTEGER,
  45. stock INTEGER,
  46. traficTrie INTEGER,
  47. tauxReste number);
  48. -- Table de records --
  49. TYPE TAB_T_REC_ECO IS TABLE OF T_REC_ECO index by binary_integer ;
  50. t_rec TAB_T_REC_ECO ; -- variable tableau d'enregistrements
  53. BEGIN
  55.     -- Ouverture du fichier de log
  56.    fileHandler := UTL_FILE.FOPEN('TRC_DIR', 'eco_depart.log', 'w');
  57.    stock := 0 ;
  58.    resteCoupure := 0 ;
  59.    traficTrie := 0;
  60.    indice := 1;
  62.    FOR r IN (
  63.         -- recuperation de la liste des etablissement
  64.         select distinct(ctc.code_ctc ),
  65.                ctc.libelle_ctc,
  66.                ctc.id_ctc
  67.         from ctc, stock_etablissement se, stock_macro_pt smp
  68.         where ctc.id_ctc = se.id_ctc
  69.           and (smp.stock != 0 or smp.reste_en_coupure != 0)
  70.           and smp.id_stock_etablissemen = se.id_stock_etablissemen
  71.           and se.journee_postale = '15/11/2005'
  72.           and ctc.date_suppression is null
  73.           and se.date_suppression is null
  75.    )
  76.    LOOP
  80.     UTL_FILE.PUT_LINE(fileHandler, 'code : ' || r.libelle_ctc);
  81.     t_rec(indice).libelleCTC := r.libelle_ctc;
  83.     for s in (
  84.         select smp.reste_en_coupure,
  85.                smp.stock,
  86.                mp.id_macro_pt,
  87.                zt.code_zt
  88.         from ctc, stock_etablissement se, stock_macro_pt smp, macro_pt mp, categorie cat, niveau_tri nt, zt
  89.         where ctc.id_ctc = se.id_ctc
  90.           and (smp.stock != 0 or smp.reste_en_coupure != 0)
  91.           and smp.id_stock_etablissemen = se.id_stock_etablissemen
  92.           and se.journee_postale = '15/11/2005'
  93.           and mp.id_macro_pt = smp.id_macro_pt
  94.           and mp.id_categorie = cat.id_categorie
  95.           and mp.id_niveau_tri = nt.id_niveau_tri
  96.           and cat.code_categorie = PCI_CODE_CATEGORIE
  97.           and nt.code_nt = PNI_CODE_NIVEAU_TRI
  98.           and ctc.date_suppression is null
  99.           and se.date_suppression is null
  100.           and mp.date_suppression is null
  101.           and cat.date_suppression is null
  102.           and nt.date_suppression is null
  103.           and ctc.id_ctc = r.id_ctc
  104.           and zt.id_zt = mp.id_zt
  106.     )
  107.     LOOP
  109.         resteCoupure := resteCoupure + s.reste_en_coupure;
  110.         stock := stock + s.stock;
  111.          UTL_FILE.PUT_LINE(fileHandler, 'macrpt : ' || s.id_macro_pt);
  112.          UTL_FILE.PUT_LINE(fileHandler, 'code zt : ' || s.code_zt);
  116.     -- recuperation trafic trié
  118.     if (s.code_zt = '2') then
  120.       select sum(t.trafic_traite) into traficTraite
  121.       from  macro_pt mp, categorie cat, niveau_tri nt, chaine ch, trafic t, zt
  122.       where cat.date_suppression is null
  123.         and nt.date_suppression is null
  124.         and zt.date_suppression is null
  125.         and t.date_suppression is null
  126.         and mp.id_macro_pt = s.id_macro_pt
  127.         and mp.id_categorie = cat.id_categorie
  128.         and mp.id_niveau_tri = nt.id_niveau_tri
  129.         and cat.code_categorie = PCI_CODE_CATEGORIE
  130.         and nt.code_nt = PNI_CODE_NIVEAU_TRI
  131.         and ch.id_macro_pt = s.id_macro_pt
  132.         and t.id_chaine = ch.id_chaine
  133.         and t.journee_postale = '15/11/2005'
  134.         and zt.id_zt = mp.id_zt
  135.         and zt.code_zt = 2;
  137.       if traficTraite > 0 then
  138.          traficTrie := traficTrie + traficTraite;
  139.       end if;
  141.        UTL_FILE.PUT_LINE(fileHandler, 'traficTraite : ' || traficTraite);
  142.     end if;
  144.     if   (s.code_zt = 1)  then
  146.       select sum(trafic_definitif) into traficDefinitif
  147.       from ctc, stock_etablissement se, stock_macro_pt smp, macro_pt mp, categorie cat, niveau_tri nt, chaine ch, trafic t, zt
  148.       where cat.date_suppression is null
  149.         and nt.date_suppression is null
  150.         and zt.date_suppression is null
  151.         and t.date_suppression is null
  152.         and mp.id_macro_pt = s.id_macro_pt
  153.         and mp.id_categorie = cat.id_categorie
  154.         and mp.id_niveau_tri = nt.id_niveau_tri
  155.         and cat.code_categorie = PCI_CODE_CATEGORIE
  156.         and nt.code_nt = PNI_CODE_NIVEAU_TRI
  157.         and ch.id_macro_pt = s.id_macro_pt
  158.         and t.id_chaine = ch.id_chaine
  159.         and t.journee_postale = '15/11/2005'
  160.         and zt.id_zt = mp.id_zt
  161.         and zt.code_zt = 1;
  164.       UTL_FILE.PUT_LINE(fileHandler, 'traficDefinitif : ' || traficDefinitif);
  166.       if traficDefinitif > 0 then
  167.          traficTrie := traficTrie + traficDefinitif;
  168.       end if;
  170.      end if;
  172.     END LOOP;
  175.     t_rec(indice).resteCoupure := resteCoupure;
  176.     t_rec(indice).stock := stock;
  177.     t_rec(indice).traficTrie := traficTrie;
  179.     if traficTrie != 0 then
  180.        t_rec(indice).tauxReste := stock / traficTrie;
  181.     end if;
  183.      UTL_FILE.PUT_LINE(fileHandler, 'reste : ' || resteCoupure);
  184.      UTL_FILE.PUT_LINE(fileHandler, 'stock : ' || stock);
  185.     UTL_FILE.PUT_LINE(fileHandler, 'traficTrie : ' || traficTrie);
  186.     UTL_FILE.PUT_LINE(fileHandler, 'tauxReste : ' || t_rec(indice).tauxReste);
  187.     indice := indice + 1;
  189.    END LOOP;
  191.   -- PTO_RES :=t_rec;
  193.    -- Fermeture du fichier de log
  194.    UTL_FILE.FCLOSE(fileHandler);
  198. EXCEPTION
  199.    WHEN utl_file.invalid_path THEN
  200.      RAISE_APPLICATION_ERROR(-20000, 'Erreur: répertoire / nom de fichier invalide');
  201.    WHEN OTHERS THEN
  202.       RAISE;
  207. END GetResteCoupureStock;
  208. END PKG_TB;
  209. /



Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  SQL/NoSQL

  [PL/SQL] Collection

 

Sujets relatifs
[SQL] Questions basiques sur SQL[SQL Server/ADO/ASP] ADO et procédures stockées distribuées
[SQL] aide pour une requete contenant MIN,MAX et COUNT[PL/SQL] traitement de date
SQL en local chez soi?[SQL] Nombre de champs, optimisation
Site web perso et modification de freeware : SQL ok ? (PHP+SQL)[SQL] Disctinct sur plusieurs champs
création de base SQL Serveur en visual basic.net[Oracle/SQL] recuperer l'heure GMT
Plus de sujets relatifs à : [PL/SQL] Collection

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.082 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)