Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml =================================================================== diff -u -r63886 -r64641 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml (.../ClassnameFromJsonNaarDomConverter.cls.xml) (revision 63886) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml (.../ClassnameFromJsonNaarDomConverter.cls.xml) (revision 64641) @@ -38,14 +38,19 @@ #dim PackageVoorHalffab As %String = "" #dim KlasseNaamVanDotNetHalffab As %String = HalffabDtoParsedFromJson.Klassenaam + If KlasseNaamVanDotNetHalffab = "Halffab" { Set CacheClassname = ..ExtractClassnameFromJson(HalffabDtoParsedFromJson.KlasseNaamInfo) Set PackageVoorHalffab = ..PackageVoorDomLaag_".HF" + } ElseIf (##class(TECH.StringUtils).StartsWith(KlasseNaamVanDotNetHalffab, "MAT_HalffabMat")) { + Set CacheClassname = ##class(TECH.StringUtils).Replace(KlasseNaamVanDotNetHalffab, "MAT_", "") + Set PackageVoorHalffab = "DOM.PM.Maatwerk.Calc.HF.impl.MAT" + } ElseIf (##class(TECH.StringUtils).StartsWith(KlasseNaamVanDotNetHalffab, "MVX_Halffab")) { + Set CacheClassname = ##class(TECH.StringUtils).Replace(KlasseNaamVanDotNetHalffab, "MVX_", "") + Set PackageVoorHalffab = "DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab" + } Else { + Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implementatie voor '"_KlasseNaamVanDotNetHalffab_"'") } - Else { - Set CacheClassname = ##class(TECH.StringUtils).Replace(KlasseNaamVanDotNetHalffab, "MVX_", "") ; voorlopig fixed code voor MVX - Set PackageVoorHalffab = "DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab" ; voorlopig fixed code voor MVX - } Quit ..GeefVolledigeKlasseNaam(PackageVoorHalffab, CacheClassname) ]]> Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml =================================================================== diff -u -r63436 -r64641 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml (.../HalffabrikatenFromJsonNaarDomConverter.cls.xml) (revision 63436) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml (.../HalffabrikatenFromJsonNaarDomConverter.cls.xml) (revision 64641) @@ -143,8 +143,8 @@ Else { Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implementatie voor halffabitem klasse '"_Classname_"'") //InbegrepenHalffab is nog niet geimplementeerd } - - If (..IsRolOpTeNemenInHalffabItemsLookup(HF.Rol)) && ($IsObject(HalffabItem)) { + + If ((..IsRolOpTeNemenInHalffabItemsLookup(HF.Rol)) && ($IsObject(HalffabItem))) { Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem) } @@ -164,9 +164,23 @@ RolNaam:%String 1 %Boolean - + + +RolNaam:%String +1 +%Boolean + +