Index: AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml
===================================================================
diff -u -r39774 -r40518
--- AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml	(.../GenerateKlantPrijzen.cls.xml)	(revision 39774)
+++ AX/Uitgaand/EC/Prijzen/impl/GenerateKlantPrijzen.cls.xml	(.../GenerateKlantPrijzen.cls.xml)	(revision 40518)
@@ -222,14 +222,14 @@
 			Set TotAantal=$LG(lbAantallen,I+1)
 			Set PrijsRec=$$KlantPrijs^KPRIJS(..KLNr,PRNr,..NoSa,..RefDatum, VanAantal)
 			;Quit:'..IsUitzonderingsPrijs(PRNr,PrijsRec)
-			Do ..GenerateOne(PRNr,PrijsRec, VanAantal, TotAantal,GeneratedFrom)
+			Do ..GenerateOne(PRNr,PrijsRec, VanAantal, TotAantal, GeneratedFrom)
 		}
 	}
 	Else
 	{
 		Set PrijsRec=$$KlantPrijs^KPRIJS(..KLNr,PRNr,..NoSa,..RefDatum)
 		Quit:'..IsUitzonderingsPrijs(PRNr,PrijsRec)
-		Do ..GenerateOne(PRNr,PrijsRec ,,,GeneratedFrom)
+		Do ..GenerateOne(PRNr, PrijsRec, , , GeneratedFrom)
 	}
 ]]></Implementation>
 </Method>
@@ -262,7 +262,9 @@
 
 <Method name="GeefGeldigheidsDatum">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[	Quit $H+30
+<Implementation><![CDATA[
+  /* TODO : de datum moet bepaald worden vanuit de uitzonderingsrecord indien ingevuld anders de default*/
+	Quit ..ExportDefaults.PrijsDatum+30
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml
===================================================================
diff -u -r36472 -r40518
--- AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml	(.../GenerateCodexPrijzen.cls.xml)	(revision 36472)
+++ AX/Uitgaand/EC/Prijzen/impl/GenerateCodexPrijzen.cls.xml	(.../GenerateCodexPrijzen.cls.xml)	(revision 40518)
@@ -160,7 +160,7 @@
 
 <Method name="GeefGeldigheidsDatum">
 <FormalSpec>PRNr:%String</FormalSpec>
-<Implementation><![CDATA[	Quit $H+30
+<Implementation><![CDATA[	Quit ..ExportDefaults.PrijsDatum+30
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/EC/impl/ExportDefaults.cls.xml
===================================================================
diff -u -r39484 -r40518
--- AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(.../ExportDefaults.cls.xml)	(revision 39484)
+++ AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(.../ExportDefaults.cls.xml)	(revision 40518)
@@ -17,6 +17,10 @@
 <Type>%TimeStamp</Type>
 </Property>
 
+<Property name="PrijsDatum">
+<Type>%Date</Type>
+</Property>
+
 <Property name="TijdstipUTC">
 <Type>%String</Type>
 </Property>
@@ -41,6 +45,7 @@
 	Set ..BeperktAantal=$G(BeperktAantal,0)
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..TijdstipUTC=$zdt($H,-2)
+	Set ..PrijsDatum=+$H+1
 	Set ..OldGenerationID=..GeefOldGenerationID()
 	Set ..NewGenerationID=..GeefNewGenerationID()
 	Quit $$$OK
@@ -132,6 +137,9 @@
 <Value name="8">
 <Value>LastGenerationID</Value>
 </Value>
+<Value name="9">
+<Value>PrijsDatum</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml
===================================================================
diff -u -r39315 -r40518
--- WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 39315)
+++ WS/Vhisie4/KlantDocument/dto/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 40518)
@@ -92,7 +92,8 @@
 <Implementation><![CDATA[
 	Set blImageLink=##class(BL.Prod.ImageLink).Instantiate()
 	Set URL=blImageLink.GetProductImageURL(..ProductID,"" , "PB", $LB("W",$LB("JPG","GIF","TIF","BMP")), , , .ImgInfo)
-	Quit $P(URL,"/",$L(URL,"/"))
+	Set Image=$S($ZCVT(URL,"U")["GENERIEK/":$P(URL,"/",$L(URL,"/")-1,$L(URL,"/")),1:$P(URL,"/",$L(URL,"/")))
+	Quit Image
 ]]></Implementation>
 </Method>