Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r1961 -r1973
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 1961)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 1973)
@@ -1607,11 +1607,23 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 #define IsMont   (..Gemonteerd["K")
+
+#define Za01okt2011            62365
+#define NogGeenNieuwePrijzen   (+$H<$$$Za01okt2011)
  
  New Verpakking,VerpakType,IsLosProf
  Set Verpakking=..Verpakking
- Set:($G(%SwitchVerpakkingExport))&&(Verpakking="K") 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) 
+ 
+ // Plaatselijke omzetting van Verpakking
+ If ($G(%SwitchVerpakkingExport)) {
+	 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) {
+	 // Tot za 01 okt 2011  zijn de nieuwe prijzen nog niet actief.  Zolang moet de Export-verpakking nog als Krimp gerekend worden.
+	 Set Verpakking="K"
+ }
+ 
  Set VerpakType=$LB($S($F("BEKL",Verpakking):Verpakking,1:"K"))
  Set IsLosProf=(..ProductieWijzeGetObjectId()="LPR")
  If (IsLosProf)&&(Verpakking="K") Do   ; LosProfiel KAN niet K(rimp) verpakt worden.