Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r73386 -r74771 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 73386) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 74771) @@ -467,6 +467,7 @@ Set Opmerking="" Set PRNr=$P(Basis,"\",1) Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC")) ; Designcode + Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; InterneBreedte Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode Set KL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KL")) ; Kleurlade @@ -475,7 +476,8 @@ Set ZWH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ZW")) ; Zijwandhoogte Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug Set KL=KL_$CASE(DC,"S":"","B":"","I":"-A"_$S((ZWH)="L":"2",1:""),"MA":"-A",:"-"_DC) - + + If (IB < 275) Quit "" If DK=25 Set DK="I" Else If DK=80 Set DK="80" Else Set DK="" Index: APPS/Halux/PPS/Activiteit/impl/LBX/LadeZijkanten.cls.xml =================================================================== diff -u -r58347 -r74771 --- APPS/Halux/PPS/Activiteit/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 58347) +++ APPS/Halux/PPS/Activiteit/impl/LBX/LadeZijkanten.cls.xml (.../LadeZijkanten.cls.xml) (revision 74771) @@ -56,9 +56,10 @@ If OpnemenAlsWerklijstItem { #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Item.GeefIngegevenKenmerken() #dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI() + Set AlgemeneInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New() Set OpnemenAlsWerklijstItem = $$$Not(IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken)) Set:OpnemenAlsWerklijstItem OpnemenAlsWerklijstItem = $$$Not(IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) - Set:OpnemenAlsWerklijstItem OpnemenAlsWerklijstItem = $$$Not(IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken)) + Set:OpnemenAlsWerklijstItem OpnemenAlsWerklijstItem = $$$Not(AlgemeneInfoOptiesGenerator.IsSmalleLade(IngegevenKenmerken)) } Quit OpnemenAlsWerklijstItem Index: APPS/Halux/PPS/Activiteit/impl/MVX/PickingLadeZijkanten.cls.xml =================================================================== diff -u -r62444 -r74771 --- APPS/Halux/PPS/Activiteit/impl/MVX/PickingLadeZijkanten.cls.xml (.../PickingLadeZijkanten.cls.xml) (revision 62444) +++ APPS/Halux/PPS/Activiteit/impl/MVX/PickingLadeZijkanten.cls.xml (.../PickingLadeZijkanten.cls.xml) (revision 74771) @@ -56,9 +56,10 @@ If OpnemenAlsWerklijstItem { #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Item.GeefIngegevenKenmerken() #dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI() + Set AlgemeneInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New() Set OpnemenAlsWerklijstItem = $$$Not(IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken)) Set:OpnemenAlsWerklijstItem OpnemenAlsWerklijstItem = $$$Not(IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) - Set:OpnemenAlsWerklijstItem OpnemenAlsWerklijstItem = $$$Not(IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken)) + Set:OpnemenAlsWerklijstItem OpnemenAlsWerklijstItem = $$$Not(AlgemeneInfoOptiesGenerator.IsSmalleLade(IngegevenKenmerken)) } Quit OpnemenAlsWerklijstItem