TECH.Mockable APPS.PM.Maatwerk.impl.TAX.ZijkantLogoService 1 DOM.common.impl.PersonalityRepository 1 DOM.VKP.impl.KlantDataRepository 1 ZijkantLogoService:APPS.PM.Maatwerk.impl.TAX.ZijkantLogoService,KlantDataRepository:DOM.VKP.impl.KlantDataRepository 1 1 %Status 1 %Boolean 0 { #dim KlantID As %String = Opties.GetValuesForKey("KlantID").GetAt(1) } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("KlantID niet opgegeven")) } If Opties.GetValuesForKey("PersonalityID").Count() > 0 { #dim PersonalityID As %String = Opties.GetValuesForKey("PersonalityID").GetAt(1) } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("PersonalityID niet opgegeven")) } If ..IsTaxLade(Product) { #dim TaxLade As APPS.EDI.common.dto.v001.LadeTAX = Product If ..IsGeldigZijkantLogoID(TaxLade.ZijkantLogoID) { If (..IsVanHoeckePersonality(PersonalityID) && ..PersonalityRepository.BestaatViaKlantNummer(KlantID)) { Set PersonalityID = ..PersonalityRepository.GeefViaKlantNummer(KlantID).GeefID() Set IsValid = ..ZijkantLogoService.BestaatLogoVoorPersonalityID(PersonalityID, TaxLade.ZijkantLogoID) } ElseIf (PersonalityID = ##class(DOM.common.enu.Personality).SFS()) { #dim KlantIterator As TECH.Iterator = ..KlantDataRepository.ZoekSFSHandelIdViaHandelKlantId(##class(DOM.common.SFSPersonality).Instance().GeefPrefix()_KlantID) If (KlantIterator.HasNext()) { #dim SFSHandelsKlantId As %String = $Piece($Piece(KlantIterator.Next().Naam,"(",2),"/",1) If $$$HasLength(SFSHandelsKlantId) { Set IsValid = ..ZijkantLogoService.BestaatLogoVoorKlantID(SFSHandelsKlantId, TaxLade.ZijkantLogoID) } Else { Set IsValid = ..ZijkantLogoService.BestaatLogoVoorKlantID(KlantID, TaxLade.ZijkantLogoID) } } } Else { Set IsValid = ..ZijkantLogoService.BestaatLogoVoorKlantID(KlantID, TaxLade.ZijkantLogoID) } } If $$$Not(IsValid) { Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New() Do Exception.AddCombination($classname(Product),"PersonalityID",PersonalityID) Do Exception.AddCombination($classname(Product),"KlantID",KlantID) Do Exception.AddCombination($classname(Product),"ZijkantLogoID",TaxLade.ZijkantLogoID) Do Exceptions.Insert(Exception) } } Quit IsValid ]]> PersonalityId:%String 1 %Boolean ZijkantLogoID:%String 1 %Boolean Product:APPS.EDI.common.dto.v001.Lade 1 %Boolean