Index: vhPowerTools/DOM/VKP/AxAdminLeverAdresTools.cls.xml
===================================================================
diff -u
--- vhPowerTools/DOM/VKP/AxAdminLeverAdresTools.cls.xml	(revision 0)
+++ vhPowerTools/DOM/VKP/AxAdminLeverAdresTools.cls.xml	(revision 48617)
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.DOM.VKP.AxAdminLeverAdresTools">
+<Description>
+Do ##class(vhPowerTools.DOM.VKP.AxAdminLeverAdresTools).%New().KoppelLeveradressen()
+Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("AXimpl.SqlGatewayConnection_ConnectionDataSourceName", "AX")</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxToAdminUtils">
+<Type>AXimpl.AxToAdminUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeveradresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	Set ..LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	Set ..SqlQueryConnection = ##class(AXimpl.SqlQueryConnection).%New()
+	Set ..AxToAdminUtils = ##class(AXimpl.AxToAdminUtils).%New()
+	Set ..VerkoopApi = ##class(DOM.VKP.impl.VerkoopAPI).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KoppelLeveradressen">
+<Implementation><![CDATA[
+	Do ..VoerUitQuery()
+	Do ..VerwerkAxLeveradressen()
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+
+	Set SqlStatement = "select custtable.ACCOUNTNUM As AxCustomerNr, LOCATIONID As AxLocationId, DirPartyPostalAddressView.ADUTRANSPORTERAUTH As Volmacht from custtable "
+		_ "join DirPartyPostalAddressView "
+       	_ "on DirPartyPostalAddressView.party = custtable.party "
+        _ "and DirPartyPostalAddressView.PARTITION = custtable.PARTITION "
+        _ "and custtable.DATAAREAID = 'vhbe' where custtable.ACCOUNTNUM='15535'"
+	
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAxLeveradressen">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	while (..ResultSet.Next()>0)
+	{
+		Do ..Next()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXimpl.Controle.Order.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		#dim AxCustomerNr = ..ResultSet.GetData(1)
+		#dim AxLocationId = ..ResultSet.GetData(2)
+		#dim Volmacht = ..ResultSet.GetData(3)
+		
+	
+		#dim CacheLeverAdresId As %String = ##class(TECH.StringUtils).LeftTrim($Extract($Piece(Volmacht,"$$##",2),1,*))	
+		Write CacheLeverAdresId, !
+		If ("" '= CacheLeverAdresId) {
+			
+			Write "MATCH: ", AxCustomerNr, " ", AxLocationId, " ",  CacheLeverAdresId, !
+			
+	
+			#dim KlantId As %String = ..AxToAdminUtils.ConvertCustomerID(AxCustomerNr)
+			#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantId)	
+		
+	
+			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)
+	
+			Do Adres.ZetAxLeveradresId(AxLocationId)
+	
+			Do ..LeveradresRepository.Bewaar(Klant, Adres)
+		
+			Do ..Logger.Debug("Koppelen leveradres gelukt", AxCustomerNr _ " " _ AxLocationId _ " " _ CacheLeverAdresId)
+		}
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString(), !
+		// Do ..Logger.LogExceptie( ##class(TECH.ExceptionHandler).Catch() )
+	}
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do:$IsObject(..ResultSet) ..SqlQueryConnection.Disconnect()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>