Index: DOM/PM/enu/TAORProductieWijze.cls.xml =================================================================== diff -u -r29838 -r29915 --- DOM/PM/enu/TAORProductieWijze.cls.xml (.../TAORProductieWijze.cls.xml) (revision 29838) +++ DOM/PM/enu/TAORProductieWijze.cls.xml (.../TAORProductieWijze.cls.xml) (revision 29915) @@ -8,11 +8,11 @@ TECH.Enumeration -;;B;F;R;Z +;;B;F;R;ZL,ZR -;Volledig;Bodem;Front;Rug;Zijkant +;Volledig;Bodem;Front;Rug;ZijkantLinks;ZijkantRechts @@ -43,12 +43,19 @@ ]]> - + 1 DOM.PM.enu.TAORProductieWijze - + + +1 +DOM.PM.enu.TAORProductieWijze + + Index: DOM/PM/enu/TAORProductieWijze/Verwerker.cls.xml =================================================================== diff -u -r29838 -r29915 --- DOM/PM/enu/TAORProductieWijze/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 29838) +++ DOM/PM/enu/TAORProductieWijze/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 29915) @@ -20,8 +20,10 @@ Do ..VerwerkRug() } ElseIf TAORProductieWijze = "" { Do ..VerwerkVolledig() - } ElseIf TAORProductieWijze = "Z" { - Do ..VerwerkZijkant() + } ElseIf TAORProductieWijze = "ZL" { + Do ..VerwerkZijkantLinks() + } ElseIf TAORProductieWijze = "ZR" { + Do ..VerwerkZijkantRechts() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TAORProductieWijze,"DOM.PM.enu.TAORProductieWijze") Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -53,11 +55,17 @@ - + 1 1 + + +1 +1 + + Index: DOM/PM/enu/TAORProductieWijze/AutoComplete.cls.xml =================================================================== diff -u -r29838 -r29915 --- DOM/PM/enu/TAORProductieWijze/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 29838) +++ DOM/PM/enu/TAORProductieWijze/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 29915) @@ -36,12 +36,19 @@ 1 - + DOM.PM.enu.TAORProductieWijze -"Z" +"ZL" 1 1 + + +DOM.PM.enu.TAORProductieWijze +"ZR" +1 +1 +