Index: BL/PPS/TBX/OptiBox.cls.xml =================================================================== diff -u -r69603 -r70273 --- BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 69603) +++ BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 70273) @@ -910,7 +910,7 @@ Set LC=$E(LC) Set DefOne=$P($P(DefList,LC_";",2),"\",1) If IsAntaroKBinnenlade { - Set $P(DefOne, ";", 2) = $P(DefOne, ";", 2) + 5 + Set $P(DefOne, ";", 2) = $P(DefOne, ";", 2) + 18 } Quit DefOne ]]> @@ -955,7 +955,7 @@ Set Params("ZIJHOOGTE")=+$P(BoxDef,";",2) ; UITZONDERING : Losse onderdelen doosje is voor M en B gelijk aan dat van de D laden van 500 diep daarom moet de hoogte van de doos aangepast worden - If ((RH="M")||((RH="B")&&'BinLade))&&(LD=500) Set Params("ZIJHOOGTE")=95 ;PV 21/12/09 + If ((RH="M")||((RH="B")&&'BinLade))&&(LD=500) Set Params("ZIJHOOGTE")=105 ;PV 21/12/09 Set Params("RUGHOOGTE")=Params("ZIJHOOGTE") Set:$P(BoxDef,";",1)=$$$HogeRug Params("RUGHOOGTE")=+$P(BoxDef,";",3)