Index: WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml
===================================================================
diff -u -r54843 -r55906
--- WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(.../Service.cls.xml)	(revision 54843)
+++ WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(.../Service.cls.xml)	(revision 55906)
@@ -179,10 +179,7 @@
 	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = VanHoeckeOfferte.GeefDocumentReferenties()
 	Set DocumentReferenties.KlantOrderNummer=BestelReferentie
 
-	#dim BestelOpmerking As %String = BestelReferentie
-	If (VanHoeckeOfferte.GeefBestelOpmerking()'="") {
-		Set BestelOpmerking = BestelOpmerking_" - "_VanHoeckeOfferte.GeefBestelOpmerking()
-	}
+	#dim BestelOpmerking As %String = ..VoegToeZonderDuplicatie(BestelReferentie, VanHoeckeOfferte.GeefBestelOpmerking(), " - ")   ; BestelReferentie moet vooraan toegevoegd worden !!! 
 	Do VanHoeckeOfferte.ZetBestelOpmerking(BestelOpmerking)
 ]]></Implementation>
 </Method>
@@ -272,23 +269,29 @@
 	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = VanHoeckeOfferte.GeefDocumentReferenties()
 	
 	If $$$HasLength(OfferteVanHandel.GeefDocumentReferenties().CommissieReferentie) {
-		If $$$HasLength(DocumentReferenties.CommissieReferentie) {
-			Set DocumentReferenties.CommissieReferentie = DocumentReferenties.CommissieReferentie _ " - " _ OfferteVanHandel.GeefDocumentReferenties().CommissieReferentie
-		} Else {
-			Set DocumentReferenties.CommissieReferentie = OfferteVanHandel.GeefDocumentReferenties().CommissieReferentie
-		}
+		Set DocumentReferenties.CommissieReferentie = ..VoegToeZonderDuplicatie(DocumentReferenties.CommissieReferentie, OfferteVanHandel.GeefDocumentReferenties().CommissieReferentie, " - ")
 	}
 	If $$$HasLength(OfferteVanHandel.GeefDocumentReferenties().OrderReferentie) {
-		If $$$HasLength(DocumentReferenties.OrderReferentie) {
-			Set DocumentReferenties.OrderReferentie = DocumentReferenties.OrderReferentie _ " - " _ OfferteVanHandel.GeefDocumentReferenties().OrderReferentie
-		} Else {
-			Set DocumentReferenties.OrderReferentie = OfferteVanHandel.GeefDocumentReferenties().OrderReferentie
-		}
+		Set DocumentReferenties.OrderReferentie = ..VoegToeZonderDuplicatie(DocumentReferenties.OrderReferentie, OfferteVanHandel.GeefDocumentReferenties().OrderReferentie, " - ")
 	}
 	
 	Do VanHoeckeOfferte.ZetDocumentReferenties(DocumentReferenties)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeZonderDuplicatie">
+<FormalSpec>String1:%String,String2:%String,Delimiter:%String=" - "</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:(String1 = "") String2
+	Quit:(String2 = "") String1
+
+	Quit:(String1 [ String2) String1   ; String2 niet meer toevoeven, want is reeds aanwezig 
+	Quit:(String2 [ String1) String2   ; String1 niet meer toevoeven, want is reeds aanwezig 
+	
+	Quit String1 _ Delimiter _ String2
+]]></Implementation>
+</Method>
 </Class>