AAIT#19700

svn path=/Database/trunk/; revision=10573

BES/BES_PAC.SRC

@@ -1,7 +1,7 @@
 #ifdef  BES // 03-11-2000 PF
 /*  BES_PAC.SRC
- *  $Revision: 72 $
- *  $Modtime: 6-09-10 15:13 $
+ *  $Revision: 73 $
+ *  $Modtime: 25-01-11 13:26 $
  */
 
 -- STATUS: TESTEN
@@ -818,6 +818,7 @@ AS
    itemprijsmetkorting       NUMBER (12, 6);
    besopdrachtkorting        NUMBER (8, 2);
    besopdrachtkosten         NUMBER (8, 2);
+   bedrijfvolgnr             NUMBER (3);
 
    CURSOR tebestellen
    IS
@@ -845,6 +846,7 @@ AS
 BEGIN
    -- Maakt bestelopdrachten van bestelaanvragen
    current_leverancier_key := -1;
+   bedrijfvolgnr := 0;
 
    FOR rec1 IN tebestellen
    LOOP
@@ -938,6 +940,7 @@ BEGIN
 
            -- Op naar de volgende
            current_leverancier_key := rec1.prs_bedrijf_key;
+           bedrijfvolgnr := bedrijfvolgnr + 1;
 
            SELECT bes_s_bes_bestelopdr_key.NEXTVAL
              INTO lbord_key
@@ -945,7 +948,7 @@ BEGIN
 
            -- UWVA#13420, als zichtbaar opdrachtnummer wordt het aanvraagnummer gebruikt
            -- Indien dit ooit anders moet, bv bundeling, dan moet alleen dit anders:
-           lbord_id := TO_CHAR(rfo_key)||'/1';
+           lbord_id := TO_CHAR(rfo_key)||'/'|| bedrijfvolgnr;
 
            
            --DBMS_OUTPUT.put_line ('Bestelopdracht maken: ' || TO_CHAR (lbord_key));
@@ -1000,6 +1003,6 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision: 72 $')
+REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision: 73 $')
 
 #endif // BES