Index: BL/PPS/TBX/OptiBox.cls.xml =================================================================== diff -u -r34515 -r34525 --- BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 34515) +++ BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 34525) @@ -980,6 +980,12 @@ . . Set Params("LOHOOGTE") = LosseOnderdelenDoos.Hoogte . . Set Params("LODIEPTE") = LosseOnderdelenDoos.Diepte . . Set Params("LOCP") = LosseOnderdelenDoos.BreedteCorpusProfiel + . Else If ( (LD=500) && $data(^zStandaardHuls) ) Do ;Voor lade diepte gelijk aan 500 moet er een standaard huls gemaakt worden + . . 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 . Else Do . . If LC="N" Do ; lage rug . . . Set Params("LOBREEDTE")=87 ; binnenmaten @@ -1003,7 +1009,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 + } + } ]]>