Index: VerpakkingsDefinitie/WS/ProductsAgent.pas
===================================================================
diff -u -r574 -r578
--- VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 574)
+++ VerpakkingsDefinitie/WS/ProductsAgent.pas	(.../ProductsAgent.pas)	(revision 578)
@@ -154,10 +154,16 @@
     // Deze instantie toevoegen aan de lijst.
     for Lijn in Lijnen do
     begin
-      LijnenProduct.Add(Lijn);
       if ContainsStr(Lijn, '</Select>') then
       begin
-        // Er zit een volledig item in de lijst
+        // Product blok afgerond
+
+        // De eindtag zit geplakt aan de tag voor het nieuwe product. Bv </Select><Select xmlns="">
+        // Deze lijn gaan we dus manueel moeten opsplitsen in eindtag voor ene en begintag voor volgend product
+
+        // Sluitende XML tag zelf toevoegen
+        LijnenProduct.Add('</Select>');
+        // Er zit een volledig item in de lijst nu
         TempStr := LijnenProduct.Text;
         XMLDoc := LoadXMLData(TempStr); // XML document van maken
         // Elementen uit XML laden, toewijzen en instantie toevoegen aan lijst.
@@ -169,7 +175,14 @@
         NieuwProduct.Kol3 := XMLDoc.DocumentElement.ChildValues['Kol3'];
         NieuwProduct.Kol4 := XMLDoc.DocumentElement.ChildValues['Kol4'];
         ProductsContext.Producten.Add(NieuwProduct);
-      end;
+
+        // klaarzetten voor (mogelijks) volgend product
+        LijnenProduct.Clear();
+        LijnenProduct.Add('<Select xmlns="">'); // Begin XML tag zelf toevoegen
+      end
+      else
+      // Standaard productlijnen toevoegen
+        LijnenProduct.Add(Lijn);
     end;
   finally
     Lijnen.Free();