Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml =================================================================== diff -u -r67258 -r67775 --- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 67258) +++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 67775) @@ -32,6 +32,10 @@ Set DotNetKenmerken.FrontBevestiging = TbxKenmerken.FrontBevestiging Set DotNetKenmerken.FrontOndersteuningAantal= $Select(TbxKenmerken.FrontOndersteuningAantal = "":0, 1:TbxKenmerken.FrontOndersteuningAantal) Set DotNetKenmerken.FrontOndersteuningType = TbxKenmerken.FrontOndersteuningType + If (TbxKenmerken.FrontOndersteuningType = "FrontSteun") { + Set DotNetKenmerken.FrontOndersteuningAantal = 0 + } + Set DotNetKenmerken.GeleiderTechnologie = ..GeefGeleiderTechnologie() Set DotNetKenmerken.GreepEnMeenemer = ..GeefGreepEnMeenemer() Set DotNetKenmerken.HeeftOpvullijstLinks = TbxKenmerken.HeeftOpvullijstLinks @@ -220,13 +224,13 @@ If (UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()) { Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2) Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3) - Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,4), "SY3") + Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", "M", "240", $ListGet(UitsparingData,4), "SY3") } Else { Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2) Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3) Set UitsparingDataObject.RugDeelM = $ListGet(UitsparingData,4) - Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,5), "SY3") - Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", $ListGet(UitsparingData,6), "SY3") + Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", "M", "240", $ListGet(UitsparingData,5), "SY3") + Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", "M", "240", $ListGet(UitsparingData,6), "SY3") } } ElseIf ..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() { Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() @@ -263,12 +267,12 @@ If (..TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) { Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() - Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", ..TbxKenmerken.UitsparingBreedte1, "SY3") + Set UitsparingDataObject.UitsparingZ1 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", "M", "240", ..TbxKenmerken.UitsparingBreedte1, "SY3") If (..HeeftDubbeleUitsparing()) { Set UitsparingDataObject.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() Set UitsparingDataObject.RugDeelM = ..GeefRugM() - Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", ..TbxKenmerken.RugHoogte, "240", ..TbxKenmerken.UitsparingBreedte2, "SY3") + Set UitsparingDataObject.UitsparingZ2 = LadeUitsparingHelper.GeefUitsparingCode("TBX", "Recht", "M", "240", ..TbxKenmerken.UitsparingBreedte2, "SY3") } } }