Index: AX/Uitgaand/VKP/Port/impl/PortPrijzenBuildCache.cls.xml
===================================================================
diff -u -r48558 -r48572
--- AX/Uitgaand/VKP/Port/impl/PortPrijzenBuildCache.cls.xml	(.../PortPrijzenBuildCache.cls.xml)	(revision 48558)
+++ AX/Uitgaand/VKP/Port/impl/PortPrijzenBuildCache.cls.xml	(.../PortPrijzenBuildCache.cls.xml)	(revision 48572)
@@ -4,15 +4,9 @@
 <IncludeCode>BL.Derde.LevSpecifiek,Prod.Product,vhLib.Macro</IncludeCode>
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Method name="%OnNew">
+<Method name="BuildAll">
 <Description>
 d ##class(AX.Uitgaand.VKP.Port.impl.PortPrijzenBuildCache).%New().BuildAll()</Description>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[		Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="BuildAll">
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
@@ -23,13 +17,13 @@
 	While LandID'=""
 	{
 		Set LandCode=$$LAND^vhRtn1(LandID,1,1)
-		Set Gewicht=$O(^KPORT(0,LandID,""))*1000
+		Set Gewicht=$O(^KPORT(0,LandID,""))
 		While Gewicht'=""
 		{
 			Set PortKost=$P(^KPORT(0,LandID,Gewicht),"\")
 			If PortKost
 			{
-				Write *9,LandCode, *9,$$$ExcelNum(Gewicht),*9, $$$ExcelNum(PortKost),!
+				Write *9,LandCode, *9,$$$ExcelNum(Gewicht*1000),*9, $$$ExcelNum(PortKost),!
 			}
 			Set Gewicht=$O(^KPORT(0,LandID,Gewicht))
 		}