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
+
+