1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

begin/* Procedure Text*/
  if (:p_firma = 'a')
  then
    begin /* daten */
      if (:p_art = '2')
      then
        begin /* Suche nach Typ und generischem Artikel  */
          for
          select distinct genartnr,bez
          from   p_suchbaum(:p_suchbaumnr,:p_node_id)
          into   :genartnr,:genartbez
          do
          begin /* Cursor über Suchbaum */
            for
            select t1.artnr,t1.einspnr,t1.lfdnr,t1.t400rest,
                   t4.bez,t4.vpe,t4.kzat,t4.artstat,t4.ean,t5.bez,t5.ay_gebrnr
            from  (tab400ay t1
                  left outer join tab200ay t4
                  on t1.artnr = t4.artnr and t1.einspnr = t4.einspnr)
                  left outer join tab040 t5
                  on t1.einspnr = t5.einspnr
            where (((kritwert = :p_ktypnr)or (kritwert is null))
            and   t1.genartnr = :genartnr)
            order by t1.einspnr,t1.artnr,t1.lfdnr
            into  :artnr,:einspnr,:lfdnr,:v_t400rest,
                  :artikelbez,:vpe,:kzat,:artstat,:ean,:lieferant,:gebrnr