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