Index: APPS/PM/Maatwerk/dto/DotNet/HalffabItemParsedFromJson.cls.xml =================================================================== diff -u -r66349 -r67467 --- APPS/PM/Maatwerk/dto/DotNet/HalffabItemParsedFromJson.cls.xml (.../HalffabItemParsedFromJson.cls.xml) (revision 66349) +++ APPS/PM/Maatwerk/dto/DotNet/HalffabItemParsedFromJson.cls.xml (.../HalffabItemParsedFromJson.cls.xml) (revision 67467) @@ -121,6 +121,10 @@ APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson + +%String + + Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml =================================================================== diff -u -r67334 -r67467 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml (.../HalffabrikatenFromJsonNaarDomConverter.cls.xml) (revision 67334) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml (.../HalffabrikatenFromJsonNaarDomConverter.cls.xml) (revision 67467) @@ -160,6 +160,16 @@ #dim HalffabInbegrepen As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson) Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New("", HF.Rol, HalffabInbegrepen) + If ($$$Not(HalffabItemParsedFromJson.RolNaamParent = "Links")) { + #dim ParentHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(HalffabItemParsedFromJson.RolNaamParent) + + If (HalffabInbegrepen.%Extends("DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem")) { + Set HalffabItem.HalffabItem = ParentHalffabItem + } Else { + Set HalffabItem.HalffabItem = ParentHalffabItem.HalffabItems.GetAt(1) + } + } + Set HalffabItem.Aantal = +(HalffabItemParsedFromJson.Aantal) Set HalffabItem.Gewicht = +(HalffabItemParsedFromJson.Gewicht) Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)