Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r66671 -r66672 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 66671) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 66672) @@ -1291,8 +1291,19 @@ set MattenUitvoeringInfo.BewerkingBreedte = Dim set MattenUitvoeringInfo.BewerkingDiepte = LD-27 - set MattenUitvoeringInfo.MateriaalId = ..TBXMatToEnuMatConverter.GeefMateriaal($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur"))) - set MattenUitvoeringInfo.KleurId = ..TBXMatToEnuMatConverter.GeefKleur($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur"))) + + #dim MateriaalId As %String = ..TBXMatToEnuMatConverter.GeefMateriaal($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur"))) + set MattenUitvoeringInfo.MateriaalId = MateriaalId + If MateriaalId = ##class(DOM.PM.enu.MATMateriaal).Antislip() { + Set MattenUitvoeringInfo.Materiaal = "AGO" + } Else{ + Set MattenUitvoeringInfo.Materiaal = ##class(DOM.PM.enu.MATMateriaal).LogicalToDisplay(MateriaalId) + } + + #dim KleurId = ..TBXMatToEnuMatConverter.GeefKleur($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur"))) + set MattenUitvoeringInfo.KleurId = KleurId + set MattenUitvoeringInfo.Kleur = ##class(DOM.PM.enu.MATKleur).LogicalToDisplay(KleurId) + quit MattenUitvoeringInfo ]]>