Index: APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml
===================================================================
diff -u -r67139 -r67873
--- APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 67139)
+++ APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 67873)
@@ -67,6 +67,8 @@
 	Do ..BewaarProgramma(..ProgrammaNaam.PVC13, $$$False)
 	Do ..BewaarProgramma(..ProgrammaNaam.PVC13G, $$$False)
 	Do ..BewaarProgramma(..ProgrammaNaam.PVC9, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.PVCW713, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.PVCW713G, $$$False)
 	Do ..BewaarProgramma(..ProgrammaNaam.SY13, $$$False)
 	Do ..BewaarProgramma(..ProgrammaNaam.SY13G, $$$False)
 	Do ..BewaarProgramma(..ProgrammaNaam.SY9, $$$False)
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml
===================================================================
diff -u -r67139 -r67873
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 67139)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 67873)
@@ -4,7 +4,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>W7_13;W7_9;W7_13_G;BI_W7_13;BI_W7_13_G;GF_13;GF_9;GF_13_G;BI_GF_13;BI_GF_13_G;SE_13;SE_9;SE_13_G;BI_SE_13;BI_SE_13_G;CA_13;CA_9;CA_13_G;BI_CA_13;BI_CA_13_G;NE_13;ZY_13;NN_13;BE_13;SY_13;MB_13;XE_13;PVC_13;X_PVC_13;NE_9;ZY_9;NN_9;BE_9;SY_9;MB_9;XE_9;PVC_9;X_PVC_9;NE_13_G;ZY_13_G;NN_13_G;BE_13_G;SY_13_G;MB_13_G;XE_13_G;PVC_13_G;X_PVC_13_G;BI_NE_13;BI_ZY_13;BI_NN_13;BI_BE_13;BI_SY_13;BI_MB_13;BI_XE_13;BI_NE_13_G;BI_ZY_13_G;BI_NN_13_G;BI_BE_13_G;BI_SY_13_G;BI_MB_13_G;BI_XE_13_G;SCHIELE;TRANSFER</Default>
+<Default>W7_13;W7_9;W7_13_G;BI_W7_13;BI_W7_13_G;GF_13;GF_9;GF_13_G;BI_GF_13;BI_GF_13_G;SE_13;SE_9;SE_13_G;BI_SE_13;BI_SE_13_G;CA_13;CA_9;CA_13_G;BI_CA_13;BI_CA_13_G;NE_13;ZY_13;NN_13;BE_13;SY_13;MB_13;XE_13;PVC_13;X_PVC_13;NE_9;ZY_9;NN_9;BE_9;SY_9;MB_9;XE_9;PVC_9;X_PVC_9;NE_13_G;ZY_13_G;NN_13_G;BE_13_G;SY_13_G;MB_13_G;XE_13_G;PVC_13_G;X_PVC_13_G;BI_NE_13;BI_ZY_13;BI_NN_13;BI_BE_13;BI_SY_13;BI_MB_13;BI_XE_13;BI_NE_13_G;BI_ZY_13_G;BI_NN_13_G;BI_BE_13_G;BI_SY_13_G;BI_MB_13_G;BI_XE_13_G;PVCW7_13;PVCW7_13_G;SCHIELE;TRANSFER</Default>
 </Parameter>
 
 <Method name="W713">
@@ -434,6 +434,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PVCW713">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "PVCW7_13"
+]]></Implementation>
+</Method>
+
+<Method name="PVCW713G">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "PVCW7_13_G"
+]]></Implementation>
+</Method>
+
 <Method name="Schiele">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml
===================================================================
diff -u -r67139 -r67873
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67139)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 67873)
@@ -310,6 +310,20 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="PVCW713">
+<Type>%String</Type>
+<InitialExpression>"PVCW7_13"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="PVCW713G">
+<Type>%String</Type>
+<InitialExpression>"PVCW7_13_G"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="SE13">
 <Type>%String</Type>
 <InitialExpression>"SE_13"</InitialExpression>
Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Front.cls.xml
===================================================================
diff -u -r67139 -r67873
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Front.cls.xml	(.../Front.cls.xml)	(revision 67139)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Front.cls.xml	(.../Front.cls.xml)	(revision 67873)
@@ -61,7 +61,7 @@
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.Linnen, ..Kleur.Linnen, ..ProgrammaNaam.XPVC9, ..ProgrammaNaam.XPVC9))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.Lakdraagfolie, ..Kleur.Lakdraagfolie, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.OudZwart, ..Kleur.OudZwart, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
-	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.WalnutMediumBrown, ..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.WalnutMediumBrown, ..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVCW713))
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Rug.cls.xml
===================================================================
diff -u -r67139 -r67873
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Rug.cls.xml	(.../Rug.cls.xml)	(revision 67139)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Rug.cls.xml	(.../Rug.cls.xml)	(revision 67873)
@@ -107,7 +107,7 @@
 	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Lakdraagfolie, ..ProgrammaNaam.PVC13)
-	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVCW713)
 ]]></Implementation>
 </Method>
 
@@ -123,7 +123,7 @@
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
-	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713G))
 	
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BardolinoEik, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
@@ -133,7 +133,7 @@
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
-	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713G))
 ]]></Implementation>
 </Method>
 
@@ -177,7 +177,7 @@
 	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Lakdraagfolie, ..ProgrammaNaam.PVC13)
-	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVCW713)
 	
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.BardolinoEik, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.NebraskaEikenhout, ..ProgrammaNaam.PVC13)
@@ -187,7 +187,7 @@
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Lakdraagfolie, ..ProgrammaNaam.PVC13)
-	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVCW713)
 ]]></Implementation>
 </Method>
 
@@ -203,7 +203,7 @@
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
-	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713G))
 ]]></Implementation>
 </Method>
 
@@ -219,7 +219,7 @@
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
-	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713G))
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml
===================================================================
diff -u -r67139 -r67873
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 67139)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 67873)
@@ -108,7 +108,7 @@
 	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Lakdraagfolie, ..ProgrammaNaam.PVC13)
-	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVCW713)
 ]]></Implementation>
 </Method>
 
@@ -124,7 +124,7 @@
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
-	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713))
 	
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BardolinoEik, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
@@ -134,7 +134,7 @@
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
 	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
-	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713))
 ]]></Implementation>
 </Method>
 
@@ -178,7 +178,7 @@
 	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Lakdraagfolie, ..ProgrammaNaam.PVC13)
-	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVCW713)
 	
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.BardolinoEik, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.NebraskaEikenhout, ..ProgrammaNaam.PVC13)
@@ -188,7 +188,7 @@
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Lakdraagfolie, ..ProgrammaNaam.PVC13)
-	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.WalnutMediumBrown, ..ProgrammaNaam.PVCW713)
 ]]></Implementation>
 </Method>
 
@@ -204,7 +204,7 @@
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
-	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713))
 ]]></Implementation>
 </Method>
 
@@ -220,7 +220,7 @@
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
 	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Lakdraagfolie, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
-	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.WalnutMediumBrown, ProgrammaNaamBoven, ..ProgrammaNaam.PVCW713))
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml
===================================================================
diff -u -r67139 -r67873
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67139)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 67873)
@@ -98,6 +98,10 @@
 		Do ..VerwerkPVC13G()
 	} ElseIf ProgrammaNaam = "PVC_9" {
 		Do ..VerwerkPVC9()
+	} ElseIf ProgrammaNaam = "PVCW7_13" {
+		Do ..VerwerkPVCW713()
+	} ElseIf ProgrammaNaam = "PVCW7_13_G" {
+		Do ..VerwerkPVCW713G()
 	} ElseIf ProgrammaNaam = "SE_13" {
 		Do ..VerwerkSE13()
 	} ElseIf ProgrammaNaam = "SE_13_G" {
@@ -403,6 +407,18 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkPVCW713">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkPVCW713G">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkSE13">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhDeploy/Deploy20220523xUpdateKantenbandPassageDefinities.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20220523xUpdateKantenbandPassageDefinities.cls.xml	(revision 0)
+++ vhDeploy/Deploy20220523xUpdateKantenbandPassageDefinities.cls.xml	(revision 67873)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20220523xUpdateKantenbandPassageDefinities">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update Kantenband Passage Definities</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(APPS.Halux.Machine.Kantenband.ProgrammaDefinitieDefinieerder).%New().Definieer()
+	Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder).%New().Definieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>