TECH.Mockable TECH.ObjectUtils.impl.ObjectConverter 1 APPS.EC.ConfiguratorService 1 DOM.common.PersonalityKlantBepaler 1 ECONimpl.PM.Maatwerk.LadeUitsparingHelper 1 DOM.common.enu.Personality 1 1 1 %Status 1 Product:APPS.EDI.common.dto.Product,Opties:TECH.KeyValue.List APPS.PM.Maatwerk.dto.IngegevenKenmerken 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 { Set ..PersonalityID = Opties.GetValuesForKey("PersonalityID").GetAt(1) } Else { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("PersonalityID niet opgegeven")) } #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConverteerNaarIngegevenKenmerken(Product) Do ..VervolledigIngegevenKenmerken(IngegevenKenmerken,KlantID) Quit IngegevenKenmerken ]]> Product:APPS.EDI.common.dto.v001.Lade 1 APPS.PM.Maatwerk.dto.IngegevenKenmerken TECH.ObjectUtils.ObjectConvertData 1 1 TECH.ObjectUtils.ObjectConvertData TECH.ObjectUtils.ObjectConvertData 1 1 TECH.ObjectUtils.ObjectConvertData UitsparingBreedte:%Numeric,UitsparingDiepte:%Numeric="",Variant:DOM.PM.enu.LadeVariant 1 DOM.PM.enu.UitsparingCode 0)) "" If (Variant = ##class(DOM.PM.enu.LadeVariant).LBXPure()) { Set:(UitsparingBreedte = 150) UitsparingDiepte = 250 ; Tijdelijke fix om de SY2-sifonkappen voor LBX nog te ondersteunen; eigenlijk alleen maar in UT's, want in 't echt maken we die niet meer :-P } Quit ..LadeUitsparingHelper.GeefUitsparingCode(Variant, "Recht", "", UitsparingDiepte, UitsparingBreedte) ]]> Exception:APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Product:APPS.EDI.common.dto.Product 1 PropertyTo:%String 1 %String Lade:APPS.EDI.common.dto.v001.Lade 1 APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk Lade:APPS.EDI.common.dto.v001.Lade 1 APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk 1 1 TECH.ObjectUtils.ObjectConvertData 1 TECH.ObjectUtils.ObjectConvertData 0 : Input, 1:"""")") ; APPS.PM.enu.LBXAantalDwarsverdelingen Do ConvertData.Add("MeenemerSet","MeenemerSet") Do ..VoegToeUitsparingDataAanConvertData(ConvertData) Quit ConvertData ]]> 1 TECH.ObjectUtils.ObjectConvertData ConvertData:TECH.ObjectUtils.ObjectConvertData 1