Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r39494 -r64011
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 39494)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 64011)
@@ -75,12 +75,24 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverAdresRepository">
+<Type>DOM.VKP.impl.LeverAdresRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantNummer:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..IsNieuweKlant = 1
 	Set ..KlantNummer = KlantNummer
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	Set ..LeverAdresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
 	do ..InitialiseerPartij()
 	Quit $$$OK
 ]]></Implementation>
@@ -223,7 +235,7 @@
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[
 	#dim BezoekAdres As DOM.common.Adres = ""
-	#dim BezoekAdressen As %ListOfObjects = ..GeefAdressen("B")
+	#dim BezoekAdressen As %ListOfObjects = ..GeefAdressenVolgensType("B")
 	If BezoekAdressen.Count() > 0 {
 		Set BezoekAdres = BezoekAdressen.GetAt(1)
 	}
@@ -285,7 +297,7 @@
 </Method>
 
 <Method name="GeefFacturatieEmailAdressen">
-<ReturnType>%String</ReturnType>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set EmailAdressenLijst = ##class(%ListOfDataTypes).%New()
 	
@@ -298,7 +310,7 @@
 		}
 	}
 		
-	Quit ##class(TECH.ListUtils).ListToPieces(EmailAdressenLijst,",")
+	Quit EmailAdressenLijst
 ]]></Implementation>
 </Method>
 
@@ -354,7 +366,7 @@
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[
 	#dim Adres As %String = ""
-	#dim Adressen As %ListOfObjects = ..GeefAdressen("F")
+	#dim Adressen As %ListOfObjects = ..GeefAdressenVolgensType("F")
 	If Adressen.Count() > 0 {
 		Set Adres = Adressen.GetAt(1)
 	}
@@ -394,27 +406,53 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAdressen">
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="DOM.common.Adres"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#Dim Adressen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#Dim LijnNr As %Integer = 1
+	#Dim Node As %String = "L" _ $$$LeftPadding(LijnNr, 3, " ")
+	#Dim IndexKKL As %String = ..GeefKlantIndexKKL()
+	#Dim AdresKey As %String = "L"
+	
+	Set AdresKey = $Order(^KKL(IndexKKL, AdresKey))
+	
+	While ($Extract(AdresKey) = "L") {
+		#Dim AdresGegevens As %String = ^KKL(..GeefKlantIndexKKL(), AdresKey)	
+		Do Adressen.Insert(..GeefSpecifiekAdres(AdresKey))
+		Set AdresKey = $Order(^KKL(IndexKKL, AdresKey))
+	}
+	Quit Adressen
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdresIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..GeefAdressen())
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverAdressen">
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="DOM.common.Adres"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set LeverAdressen = ##class(%ListOfObjects).%New()
-	Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressen("L"),LeverAdressen)
+	Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressenVolgensType("L"),LeverAdressen)
 	If LeverAdressen.Count() = 0 {
-		Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressen(""),LeverAdressen)
+		Do ##class(TECH.ListUtils).CopyListOfObjects(..GeefAdressenVolgensType(""),LeverAdressen)
 	}
 	Quit LeverAdressen
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAdressen">
+<Method name="GeefAdressenVolgensType">
 <Description>
 AdresType 
 - "L" of "" 	= LeverAdres
 - "B" 			= BezoekAdres
 - "F"			= FacturatieAdres</Description>
 <FormalSpec>AdresType:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="DOM.common.Adres"</ReturnTypeParams>
 <Implementation><![CDATA[
@@ -442,9 +480,12 @@
 
 <Method name="GeefSpecifiekAdres">
 <FormalSpec>Node:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>DOM.common.Adres</ReturnType>
 <Implementation><![CDATA[
+	If $ISVALIDNUM(Node) {
+		Set Node = "L" _ ##class(TECH.StringUtils).AddLeadingSpace(Node, 3)
+	}
+	
 	#dim Adres As DOM.common.Adres = ""
 	#dim Data As %String = ^KKL(..GeefKlantIndexKKL(),Node)
 	
@@ -725,16 +766,15 @@
 </Method>
 
 <Method name="VoegToeLeverAdres">
-<FormalSpec>LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<Description>
+WEET WAT JE DOET MET PARAMETER ADRESNR !!! DEZE KAN LEIDEN TOT HET OVERSCHRIJVEN VAN EEN BESTAAND ADRES
+GEEF LIEFST GEEN 2e PARAMETER MEE OM NIEUW NUMMER TE LATEN GEBRUIKEN of GEBRUIK MINIMAAL...
+##class(DOM.VKP.impl.LeverAdresRepository).BestaatViaKlantIdEnKlantAdresNr(KlantId, KlantAdresNr)
+... OM TE WETEN OF HET NUMMER AL IN GEBRUIK IS
+DEZE EXTRA PARAMETER WAS NODIG VOOR DE VHIP900 KLANTSYNC AX2ADMIN VOOR BEHANDELING VAN PrimaryDlvAddr INDIEN HET NIEUW BINNENKOMT</Description>
+<FormalSpec>LeverAdres:DOM.VKP.LeverAdres,AdresNr:%Integer=""</FormalSpec>
 <Implementation><![CDATA[
-	#dim LaasteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"L999"), -1)
-	#dim VolgendNummer As %Integer = ""
-	If $Extract(LaasteAdresKey,1) = "L" {
-		#dim LaatsteNummer As %Integer = $Number($Extract(LaasteAdresKey,2,4),0)
-		Set VolgendNummer = LaatsteNummer + 1
-	}Else{
-		Set VolgendNummer = 1
-	}
+	#dim VolgendNummer As %Integer = $$$If(($$$HasLength(AdresNr)), AdresNr, ..GeefVolgendVrijKlantAdresNr())
 	#dim AdresNode As %String = ""
 	Set $Piece(AdresNode,"\",1) = VolgendNummer
 	Set $Piece(AdresNode,"\",2) = LeverAdres.GeefNaam()
@@ -746,11 +786,13 @@
 	Set $Piece(AdresNode,"\",8) = LeverAdres.GeefLand().GeefID()
 	Set $Piece(AdresNode,"\",9) = LeverAdres.GeefTaal()
 	Set $Piece(AdresNode,"\",13) = LeverAdres.GeefTelefoon()
+	Set $Piece(AdresNode,"\",23) = LeverAdres.GeefVolmacht()
 	Set $Piece(AdresNode,"\",24) = LeverAdres.GeefOpmerking1()
 	Set $Piece(AdresNode,"\",25) = LeverAdres.GeefOpmerking2()
 	Set $Piece(AdresNode,"\",26) = LeverAdres.GeefVerzendingWijze()	
 	Set $Piece(AdresNode,"\",12) = "L"
 	Set $Piece(AdresNode,"\",19) = "."
+	Set $Piece(AdresNode,"\",29) = LeverAdres.GeefAxLeveradresId()
 	#dim AdresId As %String = $I(^KKL.AdresD)
 	Set $Piece(AdresNode,"\",28) = AdresId
 	#dim Node As %String = "L"_$$$LeftPadding(VolgendNummer,3," ")
@@ -763,6 +805,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendVrijKlantAdresNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim IsVolgendVrijKlantAdresNrGevonden As %Boolean = $$$False
+	#dim VolgendVrijKlantAdresNr As %Integer = ""
+	#dim LaasteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"L999"), -1)
+	#dim EersteAdresKey As %String = $Order(^KKL(..GeefKlantIndexKKL(),"K"))
+	#dim TweedeAdresKey As %String
+	#dim EersteAdresNummer As %Integer
+	#dim TweedeAdresNummer As %Integer
+	
+	If (($$$Not($$$HasLength(EersteAdresKey))) || (($Number($Extract(EersteAdresKey,2,4),0)) > 1)) {
+		Set VolgendVrijKlantAdresNr = 1
+	} Else {
+		While ($$$Not(IsVolgendVrijKlantAdresNrGevonden)) {
+			Set TweedeAdresKey = $Order(^KKL(..GeefKlantIndexKKL(),EersteAdresKey))
+			Set EersteAdresNummer = $Number($Extract(EersteAdresKey,2,4),0)
+			Set TweedeAdresNummer = $Number($Extract(TweedeAdresKey,2,4),0)
+			If (($$$Not($$$HasLength(TweedeAdresKey))) || ((TweedeAdresNummer - EersteAdresNummer) > 1)) {
+				Set VolgendVrijKlantAdresNr = EersteAdresNummer + 1
+				Set IsVolgendVrijKlantAdresNrGevonden = $$$True
+			} ElseIf (TweedeAdresNummer = $Number($Extract(LaasteAdresKey,2,4),0)) {
+				Set VolgendVrijKlantAdresNr = TweedeAdresNummer + 1
+				Set IsVolgendVrijKlantAdresNrGevonden = $$$True
+			} Else {
+				Set EersteAdresKey = TweedeAdresKey
+			}
+		}
+	}
+	
+	#dim AantalVrijeKlantAdresPlaatsen As %Integer = ..LeverAdresRepository.GeefAantalVrijeKlantAdresPlaatsen(..GeefID())
+	
+	If (AantalVrijeKlantAdresPlaatsen <= 10) {
+		Do ..Logger.Error("VolgendVrijKlantAdresNr", "Voor klant '"_..GeefID()_"' werd KlantAdresNr '"_VolgendVrijKlantAdresNr_"' correct toegekend, maar er zijn nu slechts '"_AantalVrijeKlantAdresPlaatsen_"' nummers meer over voor volgende adressen! Gelieve ASAP aan bidi te vragen adressen op te kuisen!")
+	}
+	
+	Quit VolgendVrijKlantAdresNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefAdresObjectVanData">
 <FormalSpec>AdresData:%String</FormalSpec>
 <Private>1</Private>
@@ -833,7 +915,7 @@
 	
 	#dim DisplayWaarde As %String = Waarde
 	if $length(DMAInfo.RubriekID) {
-		new ExecCode , B , U2 , K, QTU
+		new ExecCode , B , U2 , K, QTU , i , Node , U3 
 		Set QTU = 1 // QTU : Nummer taalcode van de gebruiker : 1 = Nederlands
 		#dim ExecCode As %String = ""
 		set ExecCode = $get(^DMA("LVH1","KL",DMAInfo.SchermID,DMAInfo.RubriekID,8))
@@ -1185,7 +1267,9 @@
 	#dim InterneVerantwoordelijke As DOM.common.VanHoeckeGebruiker = ..GeefInterneVerantwoordelijke()
 	If $IsObject(InterneVerantwoordelijke) {
 		#dim InitsBIDI As %String = InterneVerantwoordelijke.GeefInitialen()
-		If $$$aHasData(^vhUSER("S","EMAILKLOPV"_InitsBIDI)) {
+		If $$$aHasData(^vhUSER("S","EMAILKLOPV"_InitsBIDI_..GeefRegio())) {
+			Set EmailGroep = "EMAILKLOPV"_InitsBIDI_..GeefRegio()
+		} ElseIf $$$aHasData(^vhUSER("S","EMAILKLOPV"_InitsBIDI)) {
 			Set EmailGroep = "EMAILKLOPV"_InitsBIDI
 		}
 	}
@@ -1221,6 +1305,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HeeftFactuurVerzendingViaPost">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Verzendwijze As %String = ..Node1.GeefPiece(2)
+	Quit $$$Not(##class(TECH.StringUtils).Contains(Verzendwijze,"@","F","M"))
+]]></Implementation>
+</Method>
+
 <Method name="Node0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -1355,6 +1447,77 @@
 <Implementation><![CDATA[	Quit ..Node1.GeefPiece(3)
 ]]></Implementation>
 </Method>
+
+<Method name="ZetTaal">
+<FormalSpec>Taal:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Node0.ZetPiece(9,Taal)
+]]></Implementation>
+</Method>
+
+<Method name="ZetDubieus">
+<FormalSpec>Dubieus:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Do ..Node3.ZetPiece(8,$Select(Dubieus:"1",1:""))
+]]></Implementation>
+</Method>
+
+<Method name="ZetKredietLimietIn1000Eur">
+<Description>
+Leeg betekent geen limiet.</Description>
+<FormalSpec>KredietLimietIn1000Eur:%Float</FormalSpec>
+<Implementation><![CDATA[	Do ..Node2.ZetPiece(7,KredietLimietIn1000Eur)
+]]></Implementation>
+</Method>
+
+<Method name="ZetVooruitbetaling">
+<FormalSpec>Vooruitbetaling:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Do ..Node3.ZetPiece(2,$Select(Vooruitbetaling:"1",1:""))
+]]></Implementation>
+</Method>
+
+<Method name="ZetIncasso">
+<FormalSpec>Incasso:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Do ..Node0.ZetPiece(23,$Select(Incasso:"1",1:""))
+]]></Implementation>
+</Method>
+
+<Method name="ZetRembours">
+<FormalSpec>Rembours:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Do ..Node3.ZetPiece(1,$Select(Rembours:"1",1:""))
+]]></Implementation>
+</Method>
+
+<Method name="ZetBetalingTermijn">
+<FormalSpec>BetalingTermijn:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Node0.ZetPiece(18,BetalingTermijn)
+]]></Implementation>
+</Method>
+
+<Method name="ZetBetalingwijze">
+<FormalSpec>Betalingwijze:DOM.VKP.enu.Betalingwijze</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ZetRembours($$$False)
+	Do ..ZetIncasso($$$False)
+	Do ..ZetVooruitbetaling($$$False)
+	
+	If ($$$Not(Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())) {
+		Do ..ZetBetalingTermijn("")
+	}
+	
+	If (Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Rembours()) {
+		Do ..ZetRembours($$$True)
+	} ElseIf (Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Incasso()) {
+		Do ..ZetIncasso($$$True)
+	} ElseIf (Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling()) {
+		Do ..ZetVooruitbetaling($$$True)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetActiviteit">
+<FormalSpec>Activiteit:DOM.VKP.enu.KlantActiviteit</FormalSpec>
+<Implementation><![CDATA[	Do ..Node1.ZetPiece(11,Activiteit)
+]]></Implementation>
+</Method>
 </Class>