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
+
+