Index: AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml
===================================================================
diff -u -r48676 -r48726
--- AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 48676)
+++ AX/Uitgaand/VKP/Klant/impl/KlantDixfConverter.cls.xml	(.../KlantDixfConverter.cls.xml)	(revision 48726)
@@ -40,7 +40,6 @@
 	Set ..ADUPriceGroupIdConverter = $$$Inject(ADUPriceGroupIdConverter,##class(AX.Uitgaand.VKP.Klant.impl.ADUPriceGroupIdConverter).%New())
 	Set ..Formatter = ##class(AXimpl.Formatter).%New()
 	Set ..LandRepository = ##class(DOM.common.Locatie.impl.LandRepository).%New()
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -51,35 +50,111 @@
 <Implementation><![CDATA[
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantData.GeefID())
 	#dim Adres As DOM.common.Adres = Partij.GeefAdres()
+	
 	Set AxKlant = ##class(AXdixf.Klant.Klant).%New()
 	
-	Set AxKlant.ADUPriceGroupId = ..ADUPriceGroupIdConverter.ConvertAdminNaarAx(KlantData.GeefActiviteit())
+	// Identificatiegegevens
 	Set AxKlant.AccountNum = ..Formatter.FormatAccountNumber(Partij.GeefCode())
+	Set AxKlant.Name = ..Formatter.FormatPartyName(Partij)
+	Set AxKlant.NameAlias = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(AxKlant.Name)
+	Set AxKlant.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
+	
+	// Adresgegevens
+	Set AxKlant.CountryRegionId = KlantData.GeefAdres().GeefLand().GeefIso3()
+	Set AxKlant.ZipCode = ##class(DOM.common.impl.AdresUtils).CorrigeerPostcode(Adres.GeefPostcode(),Adres.GeefLandNr())
+	Set AxKlant.City = Adres.GeefGemeente()
+	Set AxKlant.Street = Adres.GeefStraat()
 	Set AxKlant.AddressEmail = $Translate(Partij.GeefEmail(),"$#~","")
 	Set AxKlant.AddressName = ..Formatter.FormatPartyName(Partij)
-	Set AxKlant.Blocked = $$$If(KlantData.GeefCommercieleStatus()=##class(DOM.CRM.enu.CommercieleStatus).Actief(),"0","1")
+	
+	// Contactinfo
+	Do ..ConvertPhone(Partij, AxKlant)
+	Set:$$$HasLength(Partij.GeefEmail()) AxKlant.EmailName = "E-mail adres"
+	Set AxKlant.Email = Partij.GeefEmail()
+	Set:$$$HasLength(Partij.GeefTelefax()) AxKlant.TeleFaxName = "Fax"
+	Set AxKlant.TeleFax = $$$Trim(Partij.GeefTelefax())
 	Set AxKlant.CellularPhone = Partij.GeefGsm()
-	Set AxKlant.CountryRegionId = KlantData.GeefAdres().GeefLand().GeefIso3()
+	
+	#dim FacturatieAdressen As %ListOfObjects = KlantData.GeefAdressenVolgensType("F")
+	#dim AantalFacturatieadressen As %Integer = FacturatieAdressen.Count()
+	If (AantalFacturatieadressen = 0) {
+		Set AxKlant.LocationRole = "Invoice"
+	} Else {
+		Set AxKlant.LocationRole = "Business"
+		Write "Klant: ", KlantData.GeefNaam()
+		Write ", aantal facturatieadressen: ", AantalFacturatieadressen,!
+		#dim AdresIterator = ##class(TECH.ListIterator).%New(FacturatieAdressen)
+		#dim KlantAdres As AX.Uitgaand.VKP.KlantAdres.impl.KlantAdres
+		While (AdresIterator.HasNext()) {
+			Set KlantAdres = AdresIterator.Next()
+			Write KlantAdres.ID, ", ", KlantAdres.GeefAdresKey(), ", ", KlantAdres.GeefAdresType(),!
+		}
+	}
+
+	
+	// Bedrijfsgegevens
+	Set AxKlant.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
+	Set AxKlant.VATNum = ..Formatter.FormatVATNumVoorDIXF(Partij.GeefBTWNr())
 	Set AxKlant.Currency = "EUR"
+	//Set AxKlant.Currency = Partij.GeefMunt()
+	Set AxKlant.PaymMode = ..ConvertPaymentMode(Partij)
+	Set AxKlant.InclTax = "0"
+	Set AxKlant.CashDisc = ..Formatter.FormatCashDiscount(KlantData.GeefKortingContantPercentage(),KlantData.GeefKortingContantTermijn())
+	Set:$$$Not(AxKlant.CashDisc="") AxKlant.UseCashDisc = "0"
+	
+	// Varia
+	Set AxKlant.ADUPriceGroupId = ..ADUPriceGroupIdConverter.ConvertAdminNaarAx(KlantData.GeefActiviteit())
+	Set AxKlant.Blocked = $$$If(KlantData.GeefCommercieleStatus()=##class(DOM.CRM.enu.CommercieleStatus).Actief(),"0","1")
 	Set AxKlant.CustClassificationId = ..ConvertCustClassificationId(KlantData)
 	Set AxKlant.CustGroup = ..ConvertCustGroup(Partij,KlantData)
-	Set AxKlant.LanguageId = ..Formatter.FormatLanguageId(Partij.GeefTaal())
-	Set AxKlant.Name = ..Formatter.FormatPartyName(Partij)
-	Set AxKlant.NameAlias = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(AxKlant.Name)
 	Set AxKlant.ADUConsumer = ..ConvertBusinessType(KlantData.GeefBusinessType())
 	Set AxKlant.ADUInvoicingFrequencyId = ..ConvertFacturatieFrequentie(KlantData.GeefFacturatieFrequentie())
 	Set AxKlant.DlvTerm = ..GeefDlvTerm(KlantData)
 	Set AxKlant.SalesCalendarId = ..GeefSalesCalendarId(KlantData)
-	Set AxKlant.InclTax = "0"
-	Set AxKlant.CashDisc = ..Formatter.FormatCashDiscount(KlantData.GeefKortingContantPercentage(),KlantData.GeefKortingContantTermijn())
 	Set AxKlant.ADUCreditStatus = ..ConvertKredietlimiet(KlantData.GeefKredietlimiet())
 	Set AxKlant.ADUCreditInsuredAmount = KlantData.GeefKredietlimiet()
+	Set AxKlant.ADUImported ="1"
+	#dim PDlvMode As %String
+	#dim PEnableCalc As %String
+	#dim PFreeAmount As %Decimal
+	Do ..PortVerzendWijze(KlantData.GeefLeveringVoorwaarde(), .PDlvMode, .PEnableCalc, .PFreeAmount)
+	Set AxKlant.ADUPostageDlvModeId = PDlvMode
+	Set AxKlant.ADUPostageEnableCalc = PEnableCalc
+	Set AxKlant.ADUPostageFreeAmount = PFreeAmount
+	Set AxKlant.PaymTermId = ..Formatter.ConvertPaymTermId(KlantData.GeefBetalingwijze(), KlantData.GeefBetalingTermijn())
+	Set AxKlant.WebSalesOrderDisplay = "1"
+	//Set AxLeverancier.CashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
+	//Set:$$$HasLength(Leverancier.GeefBankRekeningNr()) AxLeverancier.BankAccount = "1"
+	//#dim EersteGoedkeurder As %String = ..EasyFormDataService.GeefEersteGoedkeurder(Leverancier.GeefCode())
+	//Set AxLeverancier.MainContactWorkerPersonnelNumber = $$$If($$$HasLength(EersteGoedkeurder),$get(..Werknemers(EersteGoedkeurder)),"VH0000001")
+	//Set AxLeverancier.TaxGroup = ..ConvertTaxGroup(Partij)
 	
-	
 	Quit AxKlant
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertPhone">
+<FormalSpec><![CDATA[Partij:DOM.PARTIJ.Partij,&AxKlant:AXdixf.Klant.Klant]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set PhoneNames = ##class(%ListOfDataTypes).%New()
+	Set PhoneNrs = ##class(%ListOfDataTypes).%New()
+	
+	If $$$HasLength($$$Trim(Partij.GeefTelefoon1())) {
+		Do PhoneNames.Insert("Telefoon 1")
+		Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon1()))
+	}
+	
+	If $$$HasLength(Partij.GeefTelefoon2()) {
+		Do PhoneNames.Insert("Telefoon 2")
+		Do PhoneNrs.Insert($$$Trim(Partij.GeefTelefoon2()))
+	}
+	
+	Set AxKlant.PhoneName = ##class(TECH.ListUtils).ListToPieces(PhoneNames,",")
+	Set AxKlant.Phone = ##class(TECH.ListUtils).ListToPieces(PhoneNrs,",")
+]]></Implementation>
+</Method>
+
 <Method name="LandCodeUitBTWNummer">
 <FormalSpec>BTWNummer:%String</FormalSpec>
 <Private>1</Private>
@@ -214,6 +289,46 @@
 	Quit "Kredietlimiet"
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertPaymentMode">
+<FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:Partij.GeefID()="L||5005" "BLUM-SEPA"
+	Quit:Partij.GeefMunt()="EUR" "SEPA"
+	Quit "SWIFT"
+]]></Implementation>
+</Method>
+
+<Method name="PortVerzendWijze">
+<FormalSpec>LevVw:%String,*AXPortVerzendwijze:%String,*AXPortInstelling:%String,*AXPortLimiet:%Decimal</FormalSpec>
+<Implementation><![CDATA[
+              If '$D(^KBA(153,LevVw_" ")) Set LevVw="65"
+              
+              Set Limiet=+$G(^KBA(153,LevVw_" ","B",0))
+              Set Instelling=+$G(^KBA(153,LevVw_" ","P",0))
+              
+              
+              If Instelling=0
+              {
+                            Set AXPortVerzendwijze="ZndPort"
+                            Set AXPortInstelling="Neen"
+                            Set AXPortLimiet=""
+              }
+              ElseIf Instelling=1
+              {
+                            Set AXPortVerzendwijze="StdPort"
+                            Set AXPortInstelling="Ja"
+                            Set AXPortLimiet=""
+              }
+              Else ;Instelling = 2, 3 of 4
+              {
+                            Set AXPortVerzendwijze="StdPort"
+                            Set AXPortInstelling="Onder limiet"
+                            Set AXPortLimiet=Limiet
+              }
+]]></Implementation>
+</Method>
 </Class>