Index: vhPowerTools/DOM/VKP/AxAdminLeverAdresTools.cls.xml
===================================================================
diff -u -r48617 -r48698
--- vhPowerTools/DOM/VKP/AxAdminLeverAdresTools.cls.xml	(.../AxAdminLeverAdresTools.cls.xml)	(revision 48617)
+++ vhPowerTools/DOM/VKP/AxAdminLeverAdresTools.cls.xml	(.../AxAdminLeverAdresTools.cls.xml)	(revision 48698)
@@ -68,7 +68,7 @@
 		_ "join DirPartyPostalAddressView "
        	_ "on DirPartyPostalAddressView.party = custtable.party "
         _ "and DirPartyPostalAddressView.PARTITION = custtable.PARTITION "
-        _ "and custtable.DATAAREAID = 'vhbe' where custtable.ACCOUNTNUM='15535'"
+        _ "and custtable.DATAAREAID = 'vhbe' where custtable.ACCOUNTNUM='15535' and DirPartyPostalAddressView.VALIDTO = '2154-12-31 23:59:59.000' "
 	
 	
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
@@ -94,7 +94,7 @@
 		#dim Volmacht = ..ResultSet.GetData(3)
 		
 	
-		#dim CacheLeverAdresId As %String = ##class(TECH.StringUtils).LeftTrim($Extract($Piece(Volmacht,"$$##",2),1,*))	
+		#dim CacheLeverAdresId As %String = $Piece(Volmacht,"$$##",2)
 		Write CacheLeverAdresId, !
 		If ("" '= CacheLeverAdresId) {
 			
@@ -107,8 +107,7 @@
 	
 			Do ..Logger.Debug("Start koppelen leveradres", AxCustomerNr _ " " _ AxLocationId _ " " _ CacheLeverAdresId)
 		
-			#Dim Node As %String = "L"_##class(TECH.StringUtils).AddLeadingSpace(CacheLeverAdresId,3)
-			#dim Adres As DOM.VKP.LeverAdres = Klant.GeefSpecifiekAdres(Node)
+			#dim Adres As DOM.VKP.LeverAdres = Klant.GeefSpecifiekAdres(CacheLeverAdresId)
 	
 			Do Adres.ZetAxLeveradresId(AxLocationId)