Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml =================================================================== diff -u -r67425 -r67523 --- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 67425) +++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 67523) @@ -117,6 +117,36 @@ Set DomKenmerken = AppsNaarDomConvertor.GeefIngegevenKenmerken(AppsKenmerken) } + If ((##class(TECH.StringUtils).Contains(DomKenmerken.Antislipmat, "ZW.AF", "WI.AF", "AN.AF", "ZW.AZ", "AN.AZ")) && $$$Not(..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(DomKenmerken)) && $$$Not(##class(TECH.ListUtils).Contains(TBXKenmerken.NietMeeleveren, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Antislipmat()))) { + #dim OngekoppeldeMat As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).%New() + + If DomKenmerken.Antislipmat = "ZW.AF" { + Set OngekoppeldeMat.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberZwart() + Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber() + } ElseIf DomKenmerken.Antislipmat = "WI.AF" { + Set OngekoppeldeMat.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit() + Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber() + } ElseIf DomKenmerken.Antislipmat = "AN.AF" { + Set OngekoppeldeMat.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberAntraciet() + Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber() + } ElseIf DomKenmerken.Antislipmat = "ZW.AZ" { + Set OngekoppeldeMat.Kleur = ##class(DOM.PM.enu.MATKleur).FlockZwart() + Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock() + } ElseIf DomKenmerken.Antislipmat = "AN.AZ" { + Set OngekoppeldeMat.MatKleur = ##class(DOM.PM.enu.MATKleur).FlockAntraciet() + Set OngekoppeldeMat.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Flock() + } + + Set OngekoppeldeMat.Type = ##class(DOM.PM.enu.MatType).Basis() + + Do DomKenmerken.GekoppeldeIngegevenKenmerken.SetAt(OngekoppeldeMat,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()) + + If (DomKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) { + Do DomKenmerken.GekoppeldeIngegevenKenmerken.SetAt(OngekoppeldeMat,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY()) + Do DomKenmerken.GekoppeldeIngegevenKenmerken.SetAt(OngekoppeldeMat,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM()) + } + } + If ..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(DomKenmerken){ #dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..IngegevenKenmerkenAPI.GeefGekoppeldeKenmerken(DomKenmerken,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()) Set MatKenmerken = ..VulAanMatKenmerken(MatKenmerken)