Index: BL/PPS/TBX/OptiBox.cls.xml =================================================================== diff -u -r34525 -r34533 --- BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 34525) +++ BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 34533) @@ -980,7 +980,7 @@ . . 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 + . Else If (LD=500) 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 @@ -1009,14 +1009,8 @@ . . Set Params("BREEDTE")=Params("BREEDTE")+Params("LOHOOGTE")+(3*$$$KartonDikte) Set:..VoorgesnedenHuls(PRNr) 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 - } - } + + if $$$Not(Params("LOQTY")=-1) set:(LosseOnderdelenDoos.IsStandaardHuls ) Params("LOQTY")=-1 ]]>