Index: cspBasis/KadQuotation.cls.xml
===================================================================
diff -u -r1074 -r2149
--- cspBasis/KadQuotation.cls.xml	(.../KadQuotation.cls.xml)	(revision 1074)
+++ cspBasis/KadQuotation.cls.xml	(.../KadQuotation.cls.xml)	(revision 2149)
@@ -142,6 +142,7 @@
  Set KLNr=KlantID
  Set Korting=+$P(sData, "\", 5)
  Set KadObj=..BuildKadObj(.ProfType,.Hoogte,.Breedte,.Beslag,.QtyBeslag,.QtyGlasBoor,.QtyProf1,.QtyProf2,.QtyProf3,.QtyProf4,.Vulling,.VullingExtra)
+ Do KadObj.SetKlantSpecifiekeDefaults(KLNr)
  Set Prijs=..CalcPrijsOnly(KadObj,Aantal,MuntCode,Korting,KLNr)
    Do WL^vhDBG("CalcPrijsViaSoap finished. Returns Prijs="_Prijs)
  Quit Prijs
Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r2045 -r2149
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 2045)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 2149)
@@ -17,7 +17,7 @@
 
 </UL>]]></Description>
 <ClassType>persistent</ClassType>
-<IncludeCode>vhLib.Macro</IncludeCode>
+<IncludeCode>vhLib.Macro,BL.Derde.KlantSpecifiek</IncludeCode>
 <Super>Prod.GADef.AfgeleidDef,%VHSys.Library</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -742,6 +742,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SetKlantSpecifiekeDefaults">
+<Description>
+Vult klantspecifieke settings in </Description>
+<FormalSpec>KLNr:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	If KLNr=$$$KlantHein {
+		Set:(..Verpakking?1(1"",1"K",1"L"))&&(..NogGeenNieuwePrijzen()=0) ..Verpakking="E"
+	}
+	Quit
+]]></Implementation>
+</Method>
+
 <Method name="FillObjectViaList">
 <Description>
 Creatie van een kaderdeur door het ingeven van de parameters nodig voor de prijsberekening.
@@ -789,8 +802,8 @@
  ;Set ^Dump("NewViaParam",$O(^Dump("NewViaParam",""),-1)+1)="Na invullenProfafw"
  Set caObj.Hoogte=Hoogte
  Set caObj.Breedte=Breedte
- Set caObj.Gemonteerd=$S($G(IsGemonteerd)'=""&("K;KV;L"[$G(IsGemonteerd)):IsGemonteerd,$G(Vulling)'=""&(caObj.ProfType.VulCode'="A"):"KV",1:"L")
- Set:caObj.Gemonteerd="KV"&$G(Vulling)="" caObj.Gemonteerd="K" ; Gemonteerd met vulling maar er is geen vulling
+ Set caObj.Gemonteerd=$S(($G(IsGemonteerd)'="")&&("K;KV;L"[$G(IsGemonteerd)):IsGemonteerd,$G(Vulling)'=""&(caObj.ProfType.VulCode'="A"):"KV",1:"L")
+ Set:caObj.Gemonteerd="KV"&&($G(Vulling)="") caObj.Gemonteerd="K" ; Gemonteerd met vulling maar er is geen vulling
  Set:caObj.ProfType.VulCode="A" caObj.Gemonteerd="L" ; Afboordingsprofieel nooit gemonteerd
  Set Verpakking=$G(Verpakking)
  Set:Verpakking=""!("BLKE"'[Verpakking) Verpakking=$S(caObj.Gemonteerd'["K":"L",1:"K") ; Default naar LOS en KRIMP
@@ -1601,16 +1614,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="NogGeenNieuwePrijzen">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#define Za01okt2011            62365
+	
+	Quit (+$H < $$$Za01okt2011)
+]]></Implementation>
+</Method>
+
 <Method name="VerpakkingsType">
 <FormalSpec>Staffel:%Library.Integer=1</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 #define IsMont   (..Gemonteerd["K")
 
-#define Za01okt2011            62365
-#define NogGeenNieuwePrijzen   (+$H<$$$Za01okt2011)
- 
  New Verpakking,VerpakType,IsLosProf
  Set Verpakking=..Verpakking
  
@@ -1619,7 +1639,7 @@
 	 Set:(Verpakking?1(1"K",1"L")) Verpakking="E"
  	 Do:($G(%SwitchVerpakkingExport)) WLIP^vhDBG(97,"Verpakking="_Verpakking_"  KLNr="_$G(KLNr)_"  blnSchaduw="_$G(blnGADataSchaduw))   ; Added by WimV on 31/08/2011  - prijsberekening voor VPK=E(xport) 
  }
- If (Verpakking="E")&&($$$Not($G(blnGADataSchaduw,0)))&&($$$NogGeenNieuwePrijzen) {
+ If (Verpakking="E")&&($$$Not($G(blnGADataSchaduw,0)))&&(..NogGeenNieuwePrijzen()) {
 	 // Tot za 01 okt 2011  zijn de nieuwe prijzen nog niet actief.  Zolang moet de Export-verpakking nog als Krimp gerekend worden.
 	 Set Verpakking=$S(..Gemonteerd="L":"L", 1:"K")
  }