Index: cspBasis/GAProdDfls.cls.xml
===================================================================
diff -u -r580 -r620
--- cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 580)
+++ cspBasis/GAProdDfls.cls.xml	(.../GAProdDfls.cls.xml)	(revision 620)
@@ -566,11 +566,28 @@
 	Set Taal=..Taal
 	Set sc=$$$OK
 	If $L($G(pdlKleurDfl))&&($$$ISOK(sc)) Set sc=..SetKlantDefaults("KLR", DC, DS, pdlKleurDfl)
-	If $L($G(pdlMatenDfl))&&($$$ISOK(sc)) Set sc=..SetKlantDefaults("MTN", DC, DS, pdlMatenDfl)
+	If $L($G(pdlMatenDfl))&&($$$ISOK(sc)) Set sc=..SetKlantDefaults("MTN", DC, DS, ..GeefAangepasteTeBewarenDefaults(pdlMatenDfl))
 	Quit sc
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAangepasteTeBewarenDefaults">
+<FormalSpec>pdlMatenDfl:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define pcDefaultVPK   $P(pdlMatenDfl,"\",6)
+
+	Set NietBewarenV1Verpakking = 1
+	If (NietBewarenV1Verpakking) && ($$$pcDefaultVPK = "S") {
+		Set $$$pcDefaultVPK = ""
+	}
+	
+	Quit pdlMatenDfl
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /***   TEST METHOD (for development)    *** /