Index: vhUnitTest/DOM/PM/TestData.cls.xml
===================================================================
diff -u -r1074 -r1507
--- vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 1074)
+++ vhUnitTest/DOM/PM/TestData.cls.xml	(.../TestData.cls.xml)	(revision 1507)
@@ -12,6 +12,8 @@
 </Property>
 
 <Method name="CreeerTestData">
+<Description>
+Opmerking eventueel nog toevoegen een masterproduct met multiples (vb : PRNr : 64879)</Description>
 <Implementation><![CDATA[
 	#define ProductPrijs 10	
 
@@ -20,22 +22,42 @@
 	for PRNr = $$$PRNrStart:1:$$$PRNrStop {  
 		Set Nr = $translate($justify(PRNr - $$$PRNrStart,2)," ",0)
 	    for Node=1:1:5 set ^KPR(PRNr,Node)="\"
-	    set ^KPR(PRNr,0)="OL.UTPROD"_Nr_"\TEST PRODUCT "_Nr
+	   	 
+	    /// Kortteksten voor Auto's en masters instellen
+	    If (PRNr = 1018){ /// MASTER (vb PRNr : 579562 )
+			Set KortTekst = "OL.AO401018UNITTEST\TEST PRODUCT "_Nr
+			Set ^KPR(1018,"I1")="15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			
+		}ElseIf (PRNr = 1019){ /// AUTO (vb PRNr : 579149 )
+			Set KortTekst = "OL.AO271016UNITTEST\TEST PRODUCT "_Nr  
+			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+			
+		}ElseIf (PRNr = 1020){ /// AUTO (vb PRNr : 579246 )
+			Set KortTekst = "OL.AO271018UNITTEST\TEST PRODUCT "_Nr  
+			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+		}ElseIf (PRNr = 1021){ /// AUTO (vb PRNr : 579539 )
+			Set KortTekst = "OL.AO402716UNITTEST\TEST PRODUCT "_Nr  
+			Set ^KPR(PRNr,"I1") = "15OL \15OL25ABK \15OL25ABK01ABG/OL \1299\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\*\\"
+		}
+		/// Alle andere producten
+		Else{
+			set KortTekst = "OL.UTPROD"_Nr_"\TEST PRODUCT "_Nr	
+			set ^KPR(PRNr,"I1")="01CH \01CH04ACC \01CH04ACC01MPL/BL \374"
+		}
+		
+		Set ^KPR(PRNr,0) = KortTekst
 	    set $piece(^KPR(PRNr,2),"\",25)="0.123.45"_$extract(Nr,1)_"."_$extract(Nr,2)
 	    set $piece(^KPR(PRNr,0),"\",14)=PRNr	   ; fysische stock
 	    set $piece(^KPR(PRNr,2),"\",14)="BAR"_PRNr ; barcode 
 		set ^KPR(PRNr,"I")=""
-		set ^KPR(PRNr,"I1")="01CH \01CH04ACC \01CH04ACC01MPL/BL \374"
 		set ^KPR(PRNr,"J")=""
 		set ^KPR(PRNr,"J5005")="5005\ \"
 		set $piece(^KPR(PRNr,"J5005"),"\",16)= 1 			      ; grootverpakking
 		set $piece(^KPR(PRNr,"J5005"),"\",17)= "EUR"			  ; muntcode
 		set $piece(^KPR(PRNr,"J5005"),"\",19)= $$$ProductPrijs
 		
 		do BLDIND^PRODUKT2(PRNr) 
-		do ..SetKenmerkWaarden(PRNr)
-		;
-		
+		do ..SetKenmerkWaarden(PRNr)		
 	}
 	do ..AddGroepSleutelsToMetaDef()
 ]]></Implementation>
@@ -50,6 +72,9 @@
 	 	do ..DeleteKenmerkenViaPRNr(PRNr)
 		Kill ^KPR(PRNr) 
 		Kill ^PRSTOCK("D",PRNr)
+		Kill ^Prod.Ken.DataIndexD("OL","ProdMulti",PRNr)
+		Kill ^Prod.Ken.DataDefinitieD(PRNr)
+		For SubID=1:1:5 Kill ^Prod.Ken.DataDefinitieD(PRNr_"."_SubID)
 	}
 	do ..RemoveGroepSleutelsFromMetaDef()
 ]]></Implementation>
@@ -107,8 +132,10 @@
 	For i=1:1:$LL(lbUnIDs) { 
 		Set UnID=$LG(lbUnIDs,i)
 		Set sc=##class(Prod.Kenmerk.DataDefinitie).DeleteViaUnID(UnID)
+
 		If $$$ISERR(sc) write $$ParseStatus^vhLib(sc),!  ; throw error ofzo
 	}
+	For SubID = 1 : 1 : 5 Kill ^Prod.Ken.DataDefinitieD(PRNr_"."_SubID)
 	Quit
 ]]></Implementation>
 </Method>
@@ -126,28 +153,31 @@
 		Do $$$ProdKenmSetAt("<ICT_PROD_01>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_01>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey01","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Voorraad_Brood_Ontbijt"),"ZoneToepassing")
 		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
 	}
 
-	if PRNr="1002" { 
+	Elseif PRNr="1002" { 
 		Do $$$ProdKenmSetAt("<ICT_PROD_02>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_02>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey02","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing")
 		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
 	}
 	
-	If PRNr="1003" {
+	Elseif PRNr="1003" {
 		Set UnID = "1003.1"
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_03a>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_03a>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey03","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing")
@@ -166,14 +196,13 @@
 		Do $$$ProdKenmSetAt($LB("wit"),"KleurFilter")
 		
 		Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten")
-	}
 	
-	If PRNr="1003" {
 		Set UnID = "1003.2"	
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_03a>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_03b>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey03","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing")
@@ -194,10 +223,11 @@
 		Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten"),"BOWeten")
 	}
 	
-	If PRNr="1004"{
+	ElseIf PRNr="1004"{
 		Do $$$ProdKenmSetAt("<ICT_PROD_04>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_04>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey04","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing")
@@ -213,10 +243,11 @@
 		Do $$$ProdKenmSetAt("40","ProductHoogte") 
 	}
 	
-	If PRNr="1005" {
+	ElseIf PRNr="1005" {
 		Do $$$ProdKenmSetAt("<ICT_PROD_05>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_05>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey05","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing")
@@ -232,10 +263,11 @@
 		Do $$$ProdKenmSetAt("50","ProductHoogte") 
 	}
 	
-	If PRNr="1006" {
+	ElseIf PRNr="1006" {
 		Do $$$ProdKenmSetAt("<ICT_PROD_06>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_06>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey06","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing")
@@ -251,10 +283,11 @@
 		Do $$$ProdKenmSetAt("70","ProductHoogte") 
 	}
 	
-	If PRNr="1007" {
+	ElseIf PRNr="1007" {
 		Do $$$ProdKenmSetAt("<ICT_PROD_07>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_07>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey07","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Borden"),"ZoneToepassing")
@@ -272,11 +305,12 @@
 	}
 	
 
-	If PRNr="1008" {
+	ElseIf PRNr="1008" {
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_10a>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_10a>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey10","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing")
@@ -293,11 +327,12 @@
 		Do $$$ProdKenmSetAt($LB("TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten")
 	}
 	
-	If PRNr="1009" {
+	ElseIf PRNr="1009" {
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_10b>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_10b>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey10","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing")
@@ -315,11 +350,12 @@
 	}
 	
 	
-	If PRNr="1010" {
+	ElseIf PRNr="1010" {
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_10c>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_10c>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey10","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing")
@@ -338,10 +374,11 @@
 		Set $piece(^KPR(PRNr,"J5005"),"\",19)= 100 // ProductPrijs
 	}
 
-	If PRNr="1011" {
+	ElseIf PRNr="1011" {
 		Do $$$ProdKenmSetAt("<ICT_PROD_11>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_11>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey11","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing")
@@ -360,10 +397,11 @@
 		Set $piece(^KPR(PRNr,"J5005"),"\",19)= 100 // ProductPrijs
 	}
 	
-	If PRNr="1012" {
+	ElseIf PRNr="1012" {
 		Do $$$ProdKenmSetAt("<ICT_PROD_12>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_12>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey12","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("SpoelenEnAfval_Afvalscheiding"),"ZoneToepassing")
@@ -383,12 +421,13 @@
 	}
 	
 	
-	If PRNr="1013" {
+	ElseIf PRNr="1013" {
 		Set UnID = "1013.1"
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_13a>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_13a>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey13","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("KokenEnBakken_Potten_Pannen"),"ZoneToepassing")
@@ -407,14 +446,13 @@
 		Do $$$ProdKenmSetAt($LB("wit"),"KleurFilter")
 		
 		Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten")
-	}
-	
-	If PRNr="1013" {
+		
 		Set UnID = "1013.2"	
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_13a>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_13b>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey13","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("KokenEnBakken_Potten_Pannen"),"ZoneToepassing")
@@ -437,10 +475,11 @@
 
 	// 1014 en 1015 en 1016 (Added by WimV)
 	// Testen of producten geselecteerd worden indien kenmerk(en) niet aanwezig in product
-	If PRNr="1014" {
+	ElseIf PRNr="1014" {
 		Do $$$ProdKenmSetAt("<ICT_PROD_14>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_14>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey14","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Voorbereiden_Messen"),"ZoneToepassing")
@@ -459,10 +498,11 @@
 		Do $$$ProdKenmSetAt($LB("grijs"),"KleurFilter")
 	}
 	
-	If PRNr="1015" {
+	ElseIf PRNr="1015" {
 		Do $$$ProdKenmSetAt("<ICT_PROD_15>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_15>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey14","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Voorbereiden_Messen"),"ZoneToepassing")
@@ -473,14 +513,15 @@
 		Do $$$ProdKenmSetAt("grijs","Kleur")
 	}
 	
-	If PRNr="1016" {   // Voor deze producten zijn de kenmerken Website, MeubelToepassing, ZoneToepassing (resp.) niet aanwezig, de rest is zelfde als PRNr 1014 
+	ElseIf PRNr="1016" {   // Voor deze producten zijn de kenmerken Website, MeubelToepassing, ZoneToepassing (resp.) niet aanwezig, de rest is zelfde als PRNr 1014 
 		For idxSubID="1","2","3"
 		{
 			Set UnID = "1016"_"."_idxSubID
 			Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 			Do $$$ProdKenmSetAt("<ICT_PROD_16>","Sleutel")
 			Do $$$ProdKenmSetAt("<ICT_PROD_16>","InfoSleutel")
 			Do $$$ProdKenmSetAt("ICT_GrpKey14","GroepSleutel")
+			Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 			Do:(idxSubID'=1) $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 			Do:(idxSubID'=2) $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 			Do:(idxSubID'=3) $$$ProdKenmSetAt($LB("Voorbereiden_Messen"),"ZoneToepassing")
@@ -500,12 +541,13 @@
 		}
 	}
 	
-	If PRNr="1017" {
+	ElseIf PRNr="1017" {
 		Set UnID = "1017.1"
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_17a>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_17a>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey17a","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing")
@@ -524,14 +566,13 @@
 		Do $$$ProdKenmSetAt($LB("wit"),"KleurFilter")
 		
 		Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten","TIPS_Antislipmat_AanTeRaden_SepBestellen"),"BOWeten")
-	}
-	
-	If PRNr="1017" {
+		
 		Set UnID = "1017.2"	
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<ICT_PROD_17a>","Sleutel")
 		Do $$$ProdKenmSetAt("<ICT_PROD_17b>","InfoSleutel")
 		Do $$$ProdKenmSetAt("ICT_GrpKey17b","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Opbergen_Bestek","Voorbereiden_Snijplanken"),"ZoneToepassing")
@@ -552,12 +593,96 @@
 		Do $$$ProdKenmSetAt($LB("TIPS_Staaf_geschikt_voor_bordenplaten"),"BOWeten")
 	}
 	
-	If PRNr="1099" {
+	ElseIf PRNr="1018" {   
+		Do $$$ProdKenmSetAt("<ICT_PROD_18>","Sleutel")
+		Do $$$ProdKenmSetAt("<ICT_PROD_18>","InfoSleutel")
+		Do $$$ProdKenmSetAt("ICT_GrpKey18","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("MASTER"),"GeneratieType")
+		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
+		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
+		Do $$$ProdKenmSetAt($LB("Voorraad_Brood_Ontbijt"),"ZoneToepassing")
+		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
+		Do $$$ProdKenmSetAt($LB("275;300;400;450;500;550;600;700;800;900;1000;1100;1200;1300;1400"),"MasterVoorBreedtes")
+		Do $$$ProdKenmSetAt($LB("270;300;350;400"),"MasterVoorDieptes")
+		Do $$$ProdKenmSetAt($LB("16;18"),"MasterVoorWandDiktes")
+		Do $$$ProdKenmSetAt($LB("18"),"WandDikte")
+		Do $$$ProdKenmSetAt($LB("400"),"Diepte")
+		Do $$$ProdKenmSetAt($LB("1000"),"LadeBreedteMin")
+		
+	}
+
+	ElseIf PRNr="1019" { 
+		Do $$$ProdKenmSetAt("<ICT_PROD_19>","Sleutel")
+		Do $$$ProdKenmSetAt("<ICT_PROD_19>","InfoSleutel")
+		Do $$$ProdKenmSetAt("ICT_GrpKey19","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("AUTO"),"GeneratieType")
+		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
+		Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing")
+		Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing")
+		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
+	}
+	
+	ElseIf PRNr="1020" { 
+		Do $$$ProdKenmSetAt("<ICT_PROD_20>","Sleutel")
+		Do $$$ProdKenmSetAt("<ICT_PROD_20>","InfoSleutel")
+		Do $$$ProdKenmSetAt("ICT_GrpKey20","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("AUTO"),"GeneratieType")
+		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
+		Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing")
+		Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing")
+		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
+	}
+	
+	ElseIf PRNr="1021" { 
+		Do $$$ProdKenmSetAt("<ICT_PROD_21>","Sleutel")
+		Do $$$ProdKenmSetAt("<ICT_PROD_21>","InfoSleutel")
+		Do $$$ProdKenmSetAt("ICT_GrpKey21","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("AUTO"),"GeneratieType")
+		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
+		Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing")
+		Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing")
+		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
+		Do $$$ProdKenmSetAt($LB("400"),"Diepte")
+		Do $$$ProdKenmSetAt($LB("275"),"LadeBreedteAangeraden")
+		Do $$$ProdKenmSetAt($LB("275"),"LadeBreedteMin")
+		Do $$$ProdKenmSetAt($LB("275"),"LadeBreedteMax")
+		Do $$$ProdKenmSetAt($LB("Alle_TBX_geen_bevestigingen_nodig"),"LadeFamilie")
+		Do $$$ProdKenmSetAt($LB("Antislipmatten"),"ProductType")
+		Do $$$ProdKenmSetAt($LB("16"),"WandDikte")
+		Do $$$ProdKenmSetAt($LB("BS_ACC_antislipmat"),"GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("AOxx"),"InfoSleutel")
+	}
+	
+	Elseif PRNr="1022" { 
+		Do $$$ProdKenmSetAt("<ICT_PROD_22>","Sleutel")
+		Do $$$ProdKenmSetAt("<ICT_PROD_22>","InfoSleutel")
+		Do $$$ProdKenmSetAt("ICT_GrpKey22","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
+		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
+		Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing")
+		Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing")
+		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
+	}
+	
+	Elseif PRNr="1023" { 
+		Do $$$ProdKenmSetAt("<ICT_PROD_23>","Sleutel")
+		Do $$$ProdKenmSetAt("<ICT_PROD_23>","InfoSleutel")
+		Do $$$ProdKenmSetAt("ICT_GrpKey23","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
+		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
+		Do $$$ProdKenmSetAt($LB("Badkamer"),"MeubelToepassing")
+		Do $$$ProdKenmSetAt($LB("Voorraad_OngekoeldeDranken"),"ZoneToepassing")
+		Do $$$ProdKenmSetAt($LB("Set"),"SamenstellingsType")
+	}
+	
+	
+	ElseIf PRNr="1099" {
 		Set UnID = "1099.1"
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<AR6090xx>","Sleutel")
 		Do $$$ProdKenmSetAt("<ARxx>","InfoSleutel")
 		Do $$$ProdKenmSetAt("GS_ACC_antislipmat","GroepSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")
 		Do $$$ProdKenmSetAt($LB("Basisproducten_Antislipmatten"),"ZoneToepassing")
@@ -576,6 +701,7 @@
 		Set sc=..BLProdMulti.AddProdMultiKenmerk(UnID)
 		Do $$$ProdKenmSetAt("<AY6090xx>","Sleutel")
 		Do $$$ProdKenmSetAt("<AYxx>","InfoSleutel")
+		Do $$$ProdKenmSetAt($LB("SINGLE"),"GeneratieType")
 		Do $$$ProdKenmSetAt("GS_ACC_antislipmat","GroepSleutel")
 		Do $$$ProdKenmSetAt($LB("vhUnitTest.com"),"WebSites")
 		Do $$$ProdKenmSetAt($LB("Keuken"),"MeubelToepassing")