Index: APPS/Halux/common/enu/Werkpost.cls.xml
===================================================================
diff -u -r31873 -r34187
--- APPS/Halux/common/enu/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 31873)
+++ APPS/Halux/common/enu/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 34187)
@@ -6,11 +6,11 @@
TECH.Enumeration
-,Z1,Z3,P1,P2,LP1,LP2,KMHA,KMOL
+,Z1,Z3,P1,P2,LP1,LP2,LP3,KMHA,KMOL
-,Zaag1,Zaag3,Pers1,Pers2,LegraPers1,LegraPers2,KartonHalux,KartonOrgalux
+,Zaag1,Zaag3,Pers1,Pers2,LegraPers1,LegraPers2,LegraPers3,KartonHalux,KartonOrgalux
@@ -53,6 +53,14 @@
]]>
+
+1
+expression
+APPS.Halux.common.enu.Werkpost
+
+
+
1
expression
Index: WS/Halux/PPS/TBXPersServer.cls.xml
===================================================================
diff -u -r31560 -r34187
--- WS/Halux/PPS/TBXPersServer.cls.xml (.../TBXPersServer.cls.xml) (revision 31560)
+++ WS/Halux/PPS/TBXPersServer.cls.xml (.../TBXPersServer.cls.xml) (revision 34187)
@@ -233,7 +233,7 @@
Set sc=..ControleSession(SessionKey,Werkpost)
If $$$ISERR(sc) $$$ThrowErrorStatus($$$errGeneralError,"Controle session",sc)
- If ((Werkpost = ##class(APPS.Halux.common.enu.Werkpost).LegraPers1()) || (Werkpost = ##class(APPS.Halux.common.enu.Werkpost).LegraPers2())) {
+ If ($$$StartsWith(Werkpost,"LP")) {
Set ..iWerkpost=##class(APPS.Halux.PPS.LBXPers.impl.Werkpost).%New(Werkpost)
} Else {
Set ..iWerkpost=##class(APPS.Halux.PPS.TBXPers.impl.Werkpost).%New(Werkpost)
Index: APPS/Halux/common/enu/Werkpost/Verwerker.cls.xml
===================================================================
diff -u -r31169 -r34187
--- APPS/Halux/common/enu/Werkpost/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 31169)
+++ APPS/Halux/common/enu/Werkpost/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 34187)
@@ -20,6 +20,8 @@
Do ..VerwerkLegraPers1()
} ElseIf Werkpost = "LP2" {
Do ..VerwerkLegraPers2()
+ } ElseIf Werkpost = "LP3" {
+ Do ..VerwerkLegraPers3()
} ElseIf Werkpost = "P1" {
Do ..VerwerkPers1()
} ElseIf Werkpost = "P2" {
@@ -59,6 +61,12 @@
+
+1
+1
+
+
+
1
1
Index: APPS/Halux/common/enu/Locatie/AutoComplete.cls.xml
===================================================================
diff -u -r31873 -r34187
--- APPS/Halux/common/enu/Locatie/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 31873)
+++ APPS/Halux/common/enu/Locatie/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 34187)
@@ -10,63 +10,70 @@
%SerialObject
-APPS.Halux.common.enu.Locatie
+%String
"BU"
1
1
-APPS.Halux.common.enu.Locatie
+%String
"KMHA"
1
1
-APPS.Halux.common.enu.Locatie
+%String
"KMOL"
1
1
-APPS.Halux.common.enu.Locatie
+%String
"LP1"
1
1
-APPS.Halux.common.enu.Locatie
+%String
"LP2"
1
1
+
+%String
+"LP3"
+1
+1
+
+
-APPS.Halux.common.enu.Locatie
+%String
"P1"
1
1
-APPS.Halux.common.enu.Locatie
+%String
"P2"
1
1
-APPS.Halux.common.enu.Locatie
+%String
"Z1"
1
1
-APPS.Halux.common.enu.Locatie
+%String
"Z3"
1
1
Index: APPS/Halux/PPS/LBXPers/impl/Werkpost.cls.xml
===================================================================
diff -u -r29059 -r34187
--- APPS/Halux/PPS/LBXPers/impl/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 29059)
+++ APPS/Halux/PPS/LBXPers/impl/Werkpost.cls.xml (.../Werkpost.cls.xml) (revision 34187)
@@ -63,6 +63,7 @@
Set ..ActiviteitLijnID = $Case(Werkpost,
##class(APPS.Halux.common.enu.Werkpost).LegraPers1() : 1,
##class(APPS.Halux.common.enu.Werkpost).LegraPers2() : 2,
+ ##class(APPS.Halux.common.enu.Werkpost).LegraPers3() : 4,
: 0
)
Index: APPS/Halux/common/enu/Werkpost/AutoComplete.cls.xml
===================================================================
diff -u -r31169 -r34187
--- APPS/Halux/common/enu/Werkpost/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 31169)
+++ APPS/Halux/common/enu/Werkpost/AutoComplete.cls.xml (.../AutoComplete.cls.xml) (revision 34187)
@@ -10,56 +10,63 @@
%SerialObject
-APPS.Halux.common.enu.Werkpost
+%String
"KMHA"
1
1
-APPS.Halux.common.enu.Werkpost
+%String
"KMOL"
1
1
-APPS.Halux.common.enu.Werkpost
+%String
"LP1"
1
1
-APPS.Halux.common.enu.Werkpost
+%String
"LP2"
1
1
+
+%String
+"LP3"
+1
+1
+
+
-APPS.Halux.common.enu.Werkpost
+%String
"P1"
1
1
-APPS.Halux.common.enu.Werkpost
+%String
"P2"
1
1
-APPS.Halux.common.enu.Werkpost
+%String
"Z1"
1
1
-APPS.Halux.common.enu.Werkpost
+%String
"Z3"
1
1
Index: APPS/Halux/common/enu/Locatie.cls.xml
===================================================================
diff -u -r31873 -r34187
--- APPS/Halux/common/enu/Locatie.cls.xml (.../Locatie.cls.xml) (revision 31873)
+++ APPS/Halux/common/enu/Locatie.cls.xml (.../Locatie.cls.xml) (revision 34187)
@@ -6,11 +6,11 @@
TECH.Enumeration
-,Z1,Z3,P1,P2,LP1,LP2,KMHA,KMOL,BU
+,Z1,Z3,P1,P2,LP1,LP2,LP3,KMHA,KMOL,BU
-,Zaag1,Zaag3,Pers1,Pers2,LegraPers1,LegraPers2,KartonHalux,KartonOrgalux,Bureau
+,Zaag1,Zaag3,Pers1,Pers2,LegraPers1,LegraPers2,LegraPers3,KartonHalux,KartonOrgalux,Bureau
@@ -53,6 +53,14 @@
]]>
+
+1
+expression
+APPS.Halux.common.enu.Locatie
+
+
+
1
expression
Index: APPS/Halux/common/enu/Locatie/Verwerker.cls.xml
===================================================================
diff -u -r31873 -r34187
--- APPS/Halux/common/enu/Locatie/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 31873)
+++ APPS/Halux/common/enu/Locatie/Verwerker.cls.xml (.../Verwerker.cls.xml) (revision 34187)
@@ -22,6 +22,8 @@
Do ..VerwerkLegraPers1()
} ElseIf Locatie = "LP2" {
Do ..VerwerkLegraPers2()
+ } ElseIf Locatie = "LP3" {
+ Do ..VerwerkLegraPers3()
} ElseIf Locatie = "P1" {
Do ..VerwerkPers1()
} ElseIf Locatie = "P2" {
@@ -67,6 +69,12 @@
+
+1
+1
+
+
+
1
1