Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r58743 -r59123
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 58743)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 59123)
@@ -740,9 +740,9 @@
 	If $$$Not($IsObject(DocumentReferenties)) {
 		Set DocumentReferenties = ..DocumentReferentiesRepository.Maak()
 	}
-	Set DocumentReferenties.KlantOrderNummer = OrderHeader.ConfirmBody
+	Set DocumentReferenties.KlantOrderNummer = ..CleanUpText(OrderHeader.ConfirmBody)
 	Set DocumentReferenties.OrderReferentie = ..CleanUpText(OrderHeader.PurchOrderFormNum)
-	Set DocumentReferenties.CommissieReferentie = OrderHeader.CustomerRef
+	Set DocumentReferenties.CommissieReferentie = ..CleanUpText(OrderHeader.CustomerRef)
 	Do ..DocumentReferentiesRepository.Bewaar(DocumentReferenties)
 
 	Do Order.ZetDocumentReferenties(DocumentReferenties)
Index: zTryout/PVR/Scrapbook.cls.xml
===================================================================
diff -u -r59118 -r59123
--- zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 59118)
+++ zTryout/PVR/Scrapbook.cls.xml	(.../Scrapbook.cls.xml)	(revision 59123)
@@ -11,6 +11,9 @@
 <Private>1</Private>
 </Property>
 
+<Property name="lst">
+</Property>
+
 <Method name="DoeIets">
 <Description>
 Do ##class(zTryout.PVR.Scrapbook).%New().DoeIets()</Description>
@@ -106,14 +109,23 @@
 <Method name="Iterate">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	SET myList = $LISTBUILD("Red","Blue","Green","Yellow")   	
-   	/*SET $LIST(myList,2) = "testappend"
-   	write !,$LIST(myList,1)
-   	write !,$LIST(myList,2)
-   	write !,$LIST(myList,3)
-   	write !,$LIST(myList,4)
-   	write !,$LIST(myList,5)
-   	write !,$LIST(myList,6)*/
+	/*
+	
+	SET lst = $LISTBUILD("Red","Blue","Green","Yellow")   	
+   	
+	Set PostalAddressIterator = ##class(TECH.ListIterator).%New(myList)
+	While PostalAddressIterator.HasNext() {
+		Write "In"
+		#dim Address = PostalAddressIterator.Next()
+		Write Address
+		Set RoleIterator = ##class(TECH.ListIterator).%New(Address.Role)
+		While RoleIterator.HasNext() {
+			#dim Role As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole = RoleIterator.Next()
+			If ((Role.Name = "Business") && $$$Not(Address.CountryRegionId = "")) {				
+				Set CountryRegionId = ..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefCode()
+			} 
+		}
+}	*/
 ]]></Implementation>
 </Method>
 
Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r55647 -r59123
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 55647)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 59123)
@@ -84,12 +84,12 @@
 	#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantId)
 	#dim NaamToenaamEnAanspreking As %String = ..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name)
 	
-	Do KlantPartij.ZetNaam($Piece(NaamToenaamEnAanspreking,"||",1))
-	Do KlantPartij.ZetToenaam($Piece(NaamToenaamEnAanspreking,"||",2))
-	Do KlantPartij.ZetAanspreking($Piece(NaamToenaamEnAanspreking,"||",3))
-	Do KlantPartij.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
-	Do KlantPartij.ZetBTWNr(..GeefBTWNummer(Cust))
-	Do KlantPartij.ZetTelefoon1(..GeefTelefoon1(Cust))
+	Do KlantPartij.ZetNaam(..VerwijderNietPrintbareKaraktersDoorSpatie($Piece(NaamToenaamEnAanspreking,"||",1)))
+	Do KlantPartij.ZetToenaam(..VerwijderNietPrintbareKaraktersDoorSpatie($Piece(NaamToenaamEnAanspreking,"||",2)))
+	Do KlantPartij.ZetAanspreking(..VerwijderNietPrintbareKaraktersDoorSpatie($Piece(NaamToenaamEnAanspreking,"||",3)))
+	Do KlantPartij.ZetTaal(..VerwijderNietPrintbareKaraktersDoorSpatie(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId)))
+	Do KlantPartij.ZetBTWNr(..VerwijderNietPrintbareKaraktersDoorSpatie(..GeefBTWNummer(Cust)))
+	Do KlantPartij.ZetTelefoon1(..VerwijderNietPrintbareKaraktersDoorSpatie(..GeefTelefoon1(Cust)))
 	#dim IsAxHoofdadresMeegegeven As %Boolean = $$$True
 	#dim PrimairAdres As DOM.VKP.LeverAdres = ..LeverAdresUtils.MaakPrimairAdres(Cust,.IsAxHoofdadresMeegegeven)
 	If IsAxHoofdadresMeegegeven {
@@ -113,16 +113,16 @@
 	#dim TypeTemplateKlant as DOM.CRM.enu.TypeTemplateKlant = ##class(DOM.CRM.enu.TypeTemplateKlant).Onderneming() ; Consument/Medewerker
 	#dim NaamToenaamEnAanspreking As %String = ..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name)
 		
-	Set dtoKlant.KlantNummer = + Cust.CustAccount
-	Set dtoKlant.KlantNaam = $Piece(NaamToenaamEnAanspreking,"||",1)
-	Set dtoKlant.Toenaam = $Piece(NaamToenaamEnAanspreking,"||",2)
-	Set dtoKlant.Aanspreking = $Piece(NaamToenaamEnAanspreking,"||",3)
-	Set dtoKlant.Taal = ..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId)
-	Set dtoKlant.Telefoon1 = ..GeefTelefoon1(Cust)
-	Set dtoKlant.Fax = ..GeefFax(Cust) ; wordt blijkbaar niet in service gebruikt !!!!!
-	Set dtoKlant.BTWNummer = ..GeefBTWNummer(Cust)
-	Set dtoKlant.Email = ..GeefEmailAddress(Cust)
-	Set dtoKlant.Muntcode ="EUR"
+	Set dtoKlant.KlantNummer = ..VerwijderNietPrintbareKaraktersDoorSpatie(+ Cust.CustAccount)
+	Set dtoKlant.KlantNaam = ..VerwijderNietPrintbareKaraktersDoorSpatie($Piece(NaamToenaamEnAanspreking,"||",1))
+	Set dtoKlant.Toenaam = ..VerwijderNietPrintbareKaraktersDoorSpatie($Piece(NaamToenaamEnAanspreking,"||",2))
+	Set dtoKlant.Aanspreking = ..VerwijderNietPrintbareKaraktersDoorSpatie($Piece(NaamToenaamEnAanspreking,"||",3))
+	Set dtoKlant.Taal = ..VerwijderNietPrintbareKaraktersDoorSpatie(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
+	Set dtoKlant.Telefoon1 = ..VerwijderNietPrintbareKaraktersDoorSpatie(..GeefTelefoon1(Cust))
+	Set dtoKlant.Fax = ..VerwijderNietPrintbareKaraktersDoorSpatie(..GeefFax(Cust)) ; wordt blijkbaar niet in service gebruikt !!!!!
+	Set dtoKlant.BTWNummer = ..VerwijderNietPrintbareKaraktersDoorSpatie(..GeefBTWNummer(Cust))
+	Set dtoKlant.Email = ..VerwijderNietPrintbareKaraktersDoorSpatie(..GeefEmailAddress(Cust))
+	Set dtoKlant.Muntcode =..VerwijderNietPrintbareKaraktersDoorSpatie("EUR")
 	;Set ?? = Cust.PriceException
 	; Set dtoKlant.Prijsklase = ???
 	; Set dtoKlant.Opmerking1 = ???
@@ -266,6 +266,16 @@
 <Implementation><![CDATA[	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderNietPrintbareKaraktersDoorSpatie">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Tekst = ##class(TECH.StringUtils).VerwijderNietPrintbareKaraktersDoorSpatie(Tekst)
+	Quit Tekst
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml
===================================================================
diff -u -r55648 -r59123
--- AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 55648)
+++ AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 59123)
@@ -42,23 +42,23 @@
 <FormalSpec>Adres:DOM.VKP.LeverAdres,Address:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress,Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,BestaandLeverAdres:DOM.VKP.LeverAdres,IsPrimairAdres:%Boolean</FormalSpec>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	Do Adres.ZetNaam($Extract(Address.Description,1,27))
+	Do Adres.ZetNaam(..VerwijderNietPrintbareKaraktersDoorSpatie($Extract(Address.Description,1,27)))
 	Do Adres.ZetAanspreking("")
-	Do Adres.ZetStraat($Translate(Address.Street,$Char(10)," "))
-	Do Adres.ZetGemeente(Address.City)
+	Do Adres.ZetStraat(..VerwijderNietPrintbareKaraktersDoorSpatie(Address.Street))
+	Do Adres.ZetGemeente(..VerwijderNietPrintbareKaraktersDoorSpatie(Address.City))
 	Do Adres.ZetLandNr(..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID())
 	Do Adres.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
 	Do Adres.ZetType("")
 	Do ..ZetPostcodeVolgensLandcode(Adres, Address.CountryRegionId, Address.ZipCode)
 	If $$$Not(IsPrimairAdres) {
-		Do Adres.ZetNaam($Extract(Address.Description,1,25))
-		Do Adres.ZetOpmerking1($Extract($Translate(Address.Nota1External,$Char(10)," "),1,40))
-		Do Adres.ZetOpmerking2($Extract($Translate(Address.Nota2External,$Char(10)," "),1,40))
+		Do Adres.ZetNaam(..VerwijderNietPrintbareKaraktersDoorSpatie($Extract(Address.Description,1,25)))
+		Do Adres.ZetOpmerking1($Extract(..VerwijderNietPrintbareKaraktersDoorSpatie(Address.Nota1External),1,40))
+		Do Adres.ZetOpmerking2($Extract(..VerwijderNietPrintbareKaraktersDoorSpatie(Address.Nota2External),1,40))
 		Do Adres.ZetType(..AxToAdminUtils.ConvertLeverAdresType(Address.Role))
 		Do Adres.ZetAxLeveradresId(Address.LocationId)
-		Do Adres.ZetVolmacht($Extract($Piece($Translate(Address.TransporterAuth,$Char(10)," "),"$$##",1),1,35))
+		Do Adres.ZetVolmacht($Extract($Piece(..VerwijderNietPrintbareKaraktersDoorSpatie(Address.TransporterAuth),"$$##",1),1,35))
 		Do Adres.ZetVerzendingWijze($$$If(Address.DlvModeId="",..GeefDlvModeIsLeeg(Cust.CustAccount, Address.LocationId),..MaakVerzendingWijze(Address.DlvModeId, Cust.CustAccount, Address.LocationId, Adres.GeefLandNr())))
-		Do Adres.ZetKlantAdresNr(BestaandLeverAdres.GeefKlantAdresNr())
+		Do Adres.ZetKlantAdresNr(..VerwijderNietPrintbareKaraktersDoorSpatie(BestaandLeverAdres.GeefKlantAdresNr()))
 		Do Adres.ZetUniekId(BestaandLeverAdres.GeefUniekId())
 		Do ..ZetTelefoon(Adres, Address, Cust, BestaandLeverAdres)
 	}
@@ -138,6 +138,16 @@
 	Quit Adres
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderNietPrintbareKaraktersDoorSpatie">
+<FormalSpec>Tekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Tekst = ##class(TECH.StringUtils).VerwijderNietPrintbareKaraktersDoorSpatie(Tekst)
+	Quit Tekst
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r49753 -r59123
--- vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 49753)
+++ vhTest/Fake/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 59123)
@@ -18,6 +18,13 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderNietPrintbareKaraktersDoorSpatie">
+<FormalSpec>Tekst:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>