Index: BL/PPS/TBX/OptiBox.cls.xml =================================================================== diff -u -r32188 -r33046 --- BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 32188) +++ BL/PPS/TBX/OptiBox.cls.xml (.../OptiBox.cls.xml) (revision 33046) @@ -971,7 +971,7 @@ If ((CorpusProfiel)||(Reling&&'BinLade))&&(VpkLO'="B") Do ; Losse onderdelen doosje toevoegen . Set Params("LOQTY")=1 ; Toevoegen - . If (LD=550) && ($data(^zStandaardHuls(PRNr))) Do ;Voor lade diepte gelijk aan 550 moet er een standaard huls gemaakt worden + . If (LD=550) Do ;Voor lade diepte gelijk aan 550 moet er een standaard huls gemaakt worden . . Set Params("LOBREEDTE") = 117 . . Set Params("LOHOOGTE") = 80 . . Set Params("LODIEPTE") = 550 Index: vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml =================================================================== diff -u -r32196 -r33046 --- vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml (.../Test.cls.xml) (revision 32196) +++ vhUnitTest/BL/PPS/TBX/OptiBox/GetV1Params/Test.cls.xml (.../Test.cls.xml) (revision 33046) @@ -16,8 +16,6 @@ #dim Params As %List - set ^zStandaardHuls(PRNr)="" - Do ##class(BL.PPS.TBX.OptiBox).%New().GetV1Params(PRNr,1,.Params,,1) Do $$$AssertEquals(Params("BKQTY"),-1) #define BreedteDoosVoordatOnderdelenDoosMeegerekend 437 @@ -30,8 +28,6 @@ Do $$$AssertEquals(Params("LODIEPTE"),550) Do $$$AssertEquals(Params("LOHOOGTE"),80) Do $$$AssertEquals(Params("LOQTY"),1) - - Kill ^zStandaardHuls(PRNr) ]]> @@ -41,8 +37,6 @@ #dim LadeBreedte As TECH.Integer = 743 #dim LadeDiepte As TECH.Integer = 550 - set ^zStandaardHuls(PRNr)="" - #dim Params As %List Do ##class(BL.PPS.TBX.OptiBox).%New().GetV1Params(PRNr,1,.Params,,1) Do $$$AssertEquals(Params("BKQTY"),-1) @@ -57,8 +51,6 @@ Do $$$AssertEquals(Params("LODIEPTE"),550) Do $$$AssertEquals(Params("LOHOOGTE"),80) Do $$$AssertEquals(Params("LOQTY"),1) - - Kill ^zStandaardHuls(PRNr) ]]>