Index: BL/PPS/TBX/OptiBox.cls.xml =================================================================== diff -u -r33530 -r34511 --- BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 33530) +++ BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 34511) @@ -980,7 +980,12 @@ . . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte . . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte . . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel - . Else Do + . If ( (LD=500) && $Data(^zStandaardHuls(PRNr)) ) Do + . . Set LosseOnderdelenDoos = ##class(APPS.Halux.PPS.Verpakking.utils.StandaardHulsDefinities).LadeDiepte500() + . . Set Params("LOBREEDTE") = 117 + . . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte + . . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte + . . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel . . If LC="N" Do ; lage rug . . . Set Params("LOBREEDTE")=87 ; binnenmaten . . . Set:Params("LOBREEDTE")>$$$LoBreedteMax Params("LOBREEDTE")=$$$LoBreedteMax ; max. voor onderdelen bij bv. voorraadbinnenladen @@ -1003,7 +1008,14 @@ . . Set Params("BREEDTE")=Params("BREEDTE")+Params("LOHOOGTE")+(3*$$$KartonDikte) Set:..VoorgesnedenHuls(PRNr) Params("LOQTY")=-1 - if $$$Not(Params("LOQTY")=-1) set:LosseOnderdelenDoos.IsStandaardHuls Params("LOQTY")=-1 + + if $$$Not(Params("LOQTY")=-1) { + if ( (LD=500) && $Data(^zStandaardHuls(PRNr)) ) { + set Params("LOQTY")=-1 + } elseif (LD=550) && (LosseOnderdelenDoos.IsStandaardHuls ) { + set Params("LOQTY")=-1 + } + } ]]>