Index: AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfConverter.cls.xml
===================================================================
diff -u -r47948 -r48049
--- AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfConverter.cls.xml	(.../LijstPrijsDixfConverter.cls.xml)	(revision 47948)
+++ AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfConverter.cls.xml	(.../LijstPrijsDixfConverter.cls.xml)	(revision 48049)
@@ -15,15 +15,15 @@
 	#dim GrootteOrdeVerkoop As %String = Product.Prijs.GrootteOrdeVerkoop
 	Set ..AxProduct = ##class(AXdixf.KostEnLijstPrijs.KostEnLijstPrijs).%New()
 	
-	Set ..AxProduct.FromDate = "01/12/2017"
+	Set ..AxProduct.FromDate = $Replace($$EXTDATE^vhLib.DataTypes(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),"DK4"),"-","/")
 	Set ..AxProduct.Price = ..BepaalPrice(Product, GrootteOrdeVerkoop)
 	Set ..AxProduct.PriceAllocateMarkup = "1"
 	Set ..AxProduct.PriceQty = "0"
 	Set ..AxProduct.PriceType = "2"
 	Set ..AxProduct.PriceUnit = ..BepaalPriceUnit(GrootteOrdeVerkoop)
 	Set ..AxProduct.UnitID = "STK"
 	Set ..AxProduct.ItemId = Product.Basis.IdentNummer
-	Set ..AxProduct.InventDimId = $$$If(Vestiging=##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"00000001","00000051")
+	Set ..AxProduct.InventDimId = "00000001"
 	Set ..AxProduct.VersionId = "std"
 	
 	Quit ..AxProduct
Index: AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfConverter.cls.xml
===================================================================
diff -u -r47724 -r48049
--- AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfConverter.cls.xml	(.../KostPrijsDixfConverter.cls.xml)	(revision 47724)
+++ AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfConverter.cls.xml	(.../KostPrijsDixfConverter.cls.xml)	(revision 48049)
@@ -14,15 +14,15 @@
 <Implementation><![CDATA[
 	Set ..AxProduct = ##class(AXdixf.KostEnLijstPrijs.KostEnLijstPrijs).%New()
 	
-	Set ..AxProduct.FromDate = "01/12/2017"
+	Set ..AxProduct.FromDate = $Replace($$EXTDATE^vhLib.DataTypes(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),"DK4"),"-","/")
 	Set ..AxProduct.Price = $Replace(($Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr,"N"),"\",6)*100),".",",")
 	Set ..AxProduct.PriceAllocateMarkup = "1"
 	Set ..AxProduct.PriceQty = "0"
 	Set ..AxProduct.PriceType = "0"
 	Set ..AxProduct.PriceUnit = "100"
 	Set ..AxProduct.UnitID = "STK"
 	Set ..AxProduct.ItemId = Product.Basis.IdentNummer
-	Set ..AxProduct.InventDimId = $$$If(Vestiging=##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),"00000001","00000051")
+	Set ..AxProduct.InventDimId = "00000001"
 	Set ..AxProduct.VersionId = "std"
 	
 	Quit ..AxProduct