Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r37248 -r37358
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 37248)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 37358)
@@ -79,6 +79,9 @@
 		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTBX)
 	}
 	ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.VoorgedefinieerdProduct).%ClassName($$$True)) {
+		If ($$$HasLength(Product.Korttekst) && $$$HasLength(Product.PakketReferentie)) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Zowel <ProductCodeVendor> als <ProductCodeCustomer> zijn ingevuld"))
+		}
 		Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
 		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct)
 	}	
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml
===================================================================
diff -u -r37356 -r37358
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37356)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/OrderConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 37358)
@@ -84,6 +84,7 @@
 	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeVoorgedefinieerdProduct(Orderlijnen)
+	Set Orderlijnen.GetAt(1).Product.Korttekst = "OllekeBolleke"
 	
 	Set TeConverterenOrder.Lijnen = Orderlijnen
 	
@@ -93,6 +94,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: 1 voorgedefinieerd product met zowel &lt;ProductCodeCustomer&gt; als &lt;ProductCodeVendor&gt; ingevuld -&gt; error raisen">
+<Implementation><![CDATA[
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
+	
+	Set ObjectConverterStub = ##class(vhTest.Mock.TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Do ObjectConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New(ObjectConverterStub,AanvraagHeader)
+	Set TeConverterenOrder = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%New()
+	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
+	Do ..VoegToeVoorgedefinieerdProduct(Orderlijnen)
+	Set Orderlijnen.GetAt(1).Product.Korttekst = "OllekeBolleke"
+	Set Orderlijnen.GetAt(1).Product.PakketReferentie = "Knol"
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Zowel <ProductCodeVendor> als <ProductCodeCustomer> zijn ingevuld")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	Set TeConverterenOrder.Lijnen = Orderlijnen
+	
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = OrderConverter.Converteer(TeConverterenOrder)
+]]></Implementation>
+</Method>
+
 <Method name="Test: niets te verwerken -&gt; 0 lijnen in resultaat">
 <Implementation><![CDATA[
 	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()