TECH.RegisteredObject DOM.VKP.VerkoopAPI 1 DOM.PARTIJ.PartijAPI 1 DOM.PARTIJ.Partij 1 DOM.VKP.VanHoeckeKlant 1 AXBizTalk.Crm.Customer.Customer 1 AX.common.impl.Formatter 1 PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI %Status Command:AXBizTalk.Crm.Customer.Request AXBizTalk.Crm.Customer.MessageParts 1 """," ") } ElseIf $$$HasLength(..Partij.GeefTelefoon2()){ Set ..Customer.Telefoon = $Translate(..Partij.GeefTelefoon2(),",?;.:/=-_&|'(!)~{}[]^`%$=<>"""," ") } Set ..Customer.Fax = $Translate(..Partij.GeefTelefax(),",?;.:/=-_&|'(!)~{}[]^`%$=<>"""," ") Set ..Customer.VerkortNummer = ..Partij.GeefVerkortNummer() Set ..Customer.Email = $Translate(..Partij.GeefEmail(),"$#~","") Set ..Customer.Taal = ..Formatter.FormatLanguageId(..Partij.GeefTaal()) Set ..Customer.BTWnummer = ..Formatter.FormatVATNumVoorDIXF(..Klant.GeefBTWNr()) Set ..Customer.Opmerking6 = $$$Replace(..Klant.GeefOpmerking6(),";","-") Set ..Customer.Opmerking7 = $$$Replace(..Klant.GeefOpmerking7(),";","-") Set ..Customer.Opmerking8 = $$$Replace(..Klant.GeefOpmerking8(),";","-") Set ..Customer.Opmerking9 = $$$Replace(..Klant.GeefOpmerking9(),";","-") Set ..Customer.Website = $$$Replace(..Partij.GeefWebstek(),";",".") set:(..Partij.GeefAdres().GeefLandNr()=##class(DOM.common.enu.Land).Nederland()) ..Customer.KVKnummer = ##class(TECH.StringUtils).AlignRight($Extract(##class(TECH.StringUtils).StripAllExceptNumeric(..Partij.GeefHandelRegisterNr()),1,8),"0",8) ]]> 1 1 Kwaliteit:%String 1 %String 1 1 1