dto

De constructie in deze klasse is volgens mij een beetje scheefgetrokken :
Bovenstaande lijnen horen thuis in private method VulAanMatKenmerken()
Het is niet aangewezen vanuit een private method opnieuw de Accept($this) op te roepen.
En de "Set ..IngegevenKenmerken = MatKenmerken" maakt deze visitor helemaal tricky.
Best effe samen overleggen, om te verbeteren.

N.B.: De logica lijkt momenteel wel te werken, dus t is geen showstopper, mag gedeployed worden. Maar niet forever laten staan.

"RH" is RugMetHouders --> zowel in de enum ECON en DOM.
Dus lijn 169 is identiek aan lijn 165. Voor mij kan deze laatste daarom weg (denk ik)

Bij BodemEnRug zou ik lijn 167 aanpassen naar :

        If (Kenmerken.ProductieWijze = "RB") Set ProductieWijze = ..Enum.ProductieWijze.BodemEnRug 

idem RFB ( ? )

Commentaar mag weg, of desnoods aan te passen naar :
Mengvorm (design) valt ook onder Variant "TBX_Antaro", want het zit volledig in hetzelfde model. Voor het onderscheid met mengvorm wordt enkel LadeDesign en DesignCode gebruikt.

FYI :
In eCon staat DATA.Kenmerken.Variant = "TBX", dit is eigenlijk de definitief juiste versie!
In Caché wordt "TBX" vertaald/geconverteerd naar "TBX_Antaro" omdat we nog steeds de oude waarde/benaming volgen. Dat zorgt dus helaas voor verwarring :-P

De oude Rolnamen blijven bestaan, en de nieuwe worden erbij gevoegd. Zou je een Replace() overwegen? Dat voelt bij mij alvast iets "cleaner" aan.
Zo ja, geef ik als tip : maak gebruik van deze Util :

    Do ##class(TECH.ListUtils).ReplaceValuesInListOfDataTypes(NietMeeleveren,VervangArray)    

Dan zeker nakijken in .NET dat je toch nergens gebruik maakt van de oude benaming hé.

Er is een mismatch bij de MinTolerantie :

• in de lijn hierboven wordt ze opgevraagd via de LegacyKenmerken
• in de private methods hieronder gebruiken we de GUIKenmerken --> ..GeefInterneBreedte() en ..GeefMinTolerantieTBX()

Ik denk dat we dit best effe samen moeten bekijken.

iets voorzichtiger maar vooral iets duidelijker (je enige doel is om aan te passen wanneer de derde letter een "S" is, right?) :

        $$$If($E(TbxKenmerken.BodemKleur,3)="S", $Extract(TbxKenmerken.BodemKleur,0,2), TbxKenmerken.BodemKleur)