TECH.Mockable AXimpl.AxToAdminUtils 1 DOM.PARTIJ.PartijAPI 1 DOM.VKP.VerkoopAPI 1 APPS.KlantBeheer.KlantLevenCyclusService 1 DOM.common.Locatie.impl.LandRepository 1 AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils 1 vhLib.Logger 1 PartijApi:DOM.PARTIJ.PartijAPI,VerkoopApi:DOM.VKP.VerkoopAPI,KlantLevenCyclusService:APPS.KlantBeheer.KlantLevenCyclusService,LandRepository:DOM.common.Locatie.impl.LandRepository,LeverAdresUtils:AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils,Logger:vhLib.Logger 1 1 %Status 1 Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,KlantId:%String 1 Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 mss een template in de data ipv in de code #dim TypeTemplateKlant as DOM.CRM.enu.TypeTemplateKlant = ##class(DOM.CRM.enu.TypeTemplateKlant).Onderneming() ; Consument/Medewerker Set dtoKlant.KlantNummer = + Cust.CustAccount Set dtoKlant.Aanspreking = ..GeefAanspreking(Cust) Set dtoKlant.KlantNaam = ..GeefKlantNaam(Cust) Set dtoKlant.Toenaam = ..GeefKlantToenaam(Cust) Set dtoKlant.Taal = ..GeefTaal(Cust) 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 ?? = Cust.PriceException ; Set dtoKlant.Prijsklase = ??? ; Set dtoKlant.Opmerking1 = ??? ; Set dtoKlant.FrequentieAanbrengerCommissie = ??? Set dtoKlant.Adres = ..LeverAdresUtils.MaakPrimairAdres(Cust) #dim PartijID As DOM.common.PartijID = ..KlantLevenCyclusService.MaakKlant(dtoKlant,TypeTemplateKlant) #Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID) Do Klant.ZetVerzendingWijze(dtoKlant.Adres.GeefVerzendingWijze()) Do Klant.Save() Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust) ]]> Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 %String Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 %String Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 %String DlvMode:%String,CustAccount:%String,InsertOfUpdate:%String 1 %String Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 %String Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 %String Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 %String Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,Type:%String,Description:%String,Role:%String 1 %String ElecRoles:%ListOfDataTypes,Role:%String %Boolean Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1 %String Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust 1