TECH.RegisteredObject APPS.VKP.Maatwerk.LadeRegistratieService 1 APPS.VKP.Maatwerk.impl.ConfiguratorService 1 ECONimpl.PM.Maatwerk.AppsConverter 1 APPS.algemeen.BarcodeService 1 DOM.VKP.OrderAPI 1 APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar 1 LadeRegistratieService:APPS.VKP.Maatwerk.LadeRegistratieService="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",AppsNaarEconConverter:ECONimpl.PM.Maatwerk.AppsConverter="",BarcodeService:APPS.algemeen.BarcodeService="",OrderAPI:DOM.VKP.OrderAPI="",InbouwBreedteBerekenaar:APPS.PM.Maatwerk.Lade.impl.InbouwBreedteBerekenaar="" 1 1 %Status 1 QRcodeNaarKenmerkenRequest:WS.Vhisie4.QRcodeNaarKenmerkenRequest WS.Vhisie4.QRcodeNaarKenmerkenResponse EconKenmerken:ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken 1 QRdata:%String 1 %String EconKenmerken:%ArrayOfDataTypes 1 EconKenmerken:%ArrayOfDataTypes,InterneBreedte:%String 1 IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,EconKenmerken:%ArrayOfDataTypes,OpgeroepenMetAdminProductnummer:%Boolean 1 Registratie:APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie 1 WS.Vhisie4.QRcodeNaarKenmerkenResponse.LadeRegistratieData 0 { #dim PersonalityID As %String = $Piece($List(OorsprongKettingLijst, 1), ",", 1) #dim KlantID As TECH.String = $Piece($List(OorsprongKettingLijst, $ListLength(OorsprongKettingLijst)), ",", 2) #dim EindklantID As TECH.String = $Piece($List(OorsprongKettingLijst, 1), ",", 2) If ($ListLength(OorsprongKettingLijst) > 2) { Set PersonalityID = $Piece($List(OorsprongKettingLijst, $ListLength(OorsprongKettingLijst) - 1), ",", 1) Set EindklantID = $Piece($List(OorsprongKettingLijst, $ListLength(OorsprongKettingLijst) - 1), ",", 2) } Set KlantID = $Replace(KlantID, """", "") Set EindklantID = $Replace(EindklantID, """", "") Set LadeRegistratieData.MultipersonalityID = PersonalityID Set LadeRegistratieData.KlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID) #dim HandelPersonalityRepository = ##class(DOM.common.impl.HandelPersonalityRepository).%New() #dim HandelPersonality As DOM.common.Personality = HandelPersonalityRepository.GeefViaID(PersonalityID) If (##class(TECH.StringUtils).Contains(EindklantID, HandelPersonality.GeefPrefix())) { Set EindklantID = $Piece(EindklantID, HandelPersonality.GeefPrefix(), 2) } Set EindklantID = ##class(TECH.StringUtils).Trim(EindklantID) Set LadeRegistratieData.EindklantID = EindklantID } } Quit LadeRegistratieData ]]>