Index: APPS/Halux/common/enu/Werkpost/AutoComplete.cls.xml =================================================================== diff -u -r47673 -r61758 --- APPS/Halux/common/enu/Werkpost/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 47673) +++ APPS/Halux/common/enu/Werkpost/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 61758) @@ -78,6 +78,13 @@ 1 1 + + +%String +"Z4" +1 +1 + Index: APPS/Halux/common/enu/Werkpost/Verwerker.cls.xml =================================================================== diff -u -r41901 -r61758 --- APPS/Halux/common/enu/Werkpost/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 41901) +++ APPS/Halux/common/enu/Werkpost/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 61758) @@ -32,6 +32,8 @@ Do ..VerwerkZaag2() } ElseIf Werkpost = "Z3" { Do ..VerwerkZaag3() + } ElseIf Werkpost = "Z4" { + Do ..VerwerkZaag4() } Else { Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Werkpost,"APPS.Halux.common.enu.Werkpost",$classname()) Do ##class(TECH.ExceptionHandler).Throw(Exceptie) @@ -98,6 +100,12 @@ 1 + + +1 +1 + + Index: APPS/Halux/common/enu/Werkpost.cls.xml =================================================================== diff -u -r41901 -r61758 --- APPS/Halux/common/enu/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 41901) +++ APPS/Halux/common/enu/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 61758) @@ -6,11 +6,11 @@ TECH.Enumeration -,Z1,Z2,Z3,P1,P2,LP1,LP2,LP3,KMHA,KMOL +,Z1,Z2,Z3,Z4,P1,P2,LP1,LP2,LP3,KMHA,KMOL -,Zaag1,Zaag2,Zaag3,Pers1,Pers2,LegraPers1,LegraPers2,LegraPers3,KartonHalux,KartonOrgalux +,Zaag1,Zaag2,Zaag3,Zaag4,Pers1,Pers2,LegraPers1,LegraPers2,LegraPers3,KartonHalux,KartonOrgalux @@ -92,6 +92,14 @@ + + +1 +expression +APPS.Halux.common.enu.Werkpost + +