AAFM#34758 opdrachtnotities ontbraken nog in xml

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

FAC/FAC_PACX.SRC

@@ -3379,8 +3379,36 @@ AS
    END;
 
    -- *
-   -- * MLD OPDRACHT kenmerken
+   -- * MLD OPDRACHT stuff
    -- *
+   PROCEDURE create_mld_opdr_note_node (p_key IN NUMBER)
+   AS
+      CURSOR c1
+      IS
+           SELECT mld_opdr_note_key,
+                  mld_opdr_note_aanmaak,
+                  prs_perslid_key,
+                  mld_opdr_note_omschrijving
+             FROM mld_opdr_note
+            WHERE mld_opdr_key = p_key
+         ORDER BY mld_opdr_note_key;
+   BEGIN
+      IF p_key IS NOT NULL
+      THEN
+         createopentag ('notes');
+         FOR rec1 IN c1
+         LOOP
+            createopentag ('note');
+            createxmltagvalue ('key', rec1.mld_opdr_note_key);
+            mydatetochar ('aanmaak', rec1.mld_opdr_note_aanmaak);
+            createxmltagvalue ('omschrijving',
+                               rec1.mld_opdr_note_omschrijving);
+            create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
+            createclosetag ('note');
+         END LOOP;
+         createclosetag ('notes');
+      END IF;
+   END;
 
    PROCEDURE create_mld_opdr_kenmerken (p_key IN NUMBER)
    AS
@@ -4701,6 +4729,7 @@ AS
          END IF;
 
          create_fac_activiteit_node (v_activiteit_key);
+         create_mld_opdr_note_node (p_key);
          create_fac_tracking_node ('opdracht', p_key);
          createclosetag ('opdracht');
       END IF;