TECH.RegisteredObject APPS.PM.Maatwerk.impl.TAX.ZijkantLogoService 1 ZijkantLogoService:APPS.PM.Maatwerk.impl.TAX.ZijkantLogoService 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) { Set IsValid = ..ZijkantLogoService.BestaatLogoVoorKlant(PersonalityID, 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 ]]> ZijkantLogoID:%String 1 %Boolean Product:APPS.EDI.common.dto.v001.Lade 1 %Boolean