Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41190 -r41208
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41190)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41208)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LijnID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Klant">
 <Type>DOM.VKP.VanHoeckeKlant</Type>
 <Private>1</Private>
@@ -82,6 +87,9 @@
 	Set ..Meldingen = ##class(TECH.ExceptionList).%New()
 	Set ..Klant = Klant
 	Set ..Winkelkar = Winkelkar
+	Set ..LijnID = 0
+	Set ..GroepID = 0
+
 	Set ..KlantPrijsBepaler = ..VerkoopPrijsAPI.GeefKlantPrijsBepaler(Klant.GeefID())
 	
 	Do ..MaakVhisie4Winkelkar()
@@ -206,8 +214,10 @@
 <FormalSpec>IdentNr:%String,Aantal:%Integer,Referentie:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set ..LijnID = ..LijnID + 1
 	Try {
 		Set Vhisie4ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
+		Set Vhisie4ProductLijn.Id = ..Vhisie4Winkelkar.Id _##class(TECH.StringUtils).AddLeadingChar(..LijnID,"0",4)
 		Set Vhisie4ProductLijn.Aantal = Aantal
 		Set Vhisie4ProductLijn.ProductId = ..ProductBepaler.GeefProductNummer(IdentNr, ..Klant.GeefID())
 		Set Vhisie4ProductLijn.EenheidPrijs = ..KlantPrijsBepaler.GeefPrijsInformatie(Vhisie4ProductLijn.ProductId, Aantal).PrijsInEuro
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u -r41027 -r41208
--- vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 41027)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 41208)
@@ -60,6 +60,7 @@
 	Set Vhisie4Winkelkar.CommissieReferentie = ""
 	
 	Set ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
+	Set ProductLijn.Id = "64387353600001"
 	Set ProductLijn.Aantal = 10
 	Set ProductLijn.ProductId = "productnumber"
 	Set ProductLijn.EenheidPrijs = 5.60