Tbx.cls.xml

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)

Kaartje aangemaakt: VRB614

Eigenlijk ontbreekt een volledige TestCase voor TBX.
Eentje die afgeleid is van vhUnitTest.APPS.EC.Winkelkar.WinkelkarControleur.Nederlands.TestBase (analoog aan LBX en TAX)

Voor LBX en TAX waren de controles reeds aanwezig voor "Unishop", en konden dus naadloos overgenomen worden voor Vhisie4.
Voor TBX moesten die normaal gezien uitgebreid worden wanneer TBX aan Vhisie4 werd toegevoegd (lees: bij de uitbreiding met TbxLegacy kenmerken)

Zie jij het zitten om deze alsnog toe te voegen?

Deze method blijft (voor mij) HOPELOOS ONBEGRIJPBAAR !!! (JBL - 2013)
Maar ik wil je toch bedanken om hem net iets leesbaarder te schrijven.