Index: vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml =================================================================== diff -u -r71571 -r71591 --- vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71571) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml (.../Test.cls.xml) (revision 71591) @@ -56,7 +56,7 @@ Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-RugBreedte", 1) Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-RugHoogteInMm", 78.5) Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-PlaatmateriaalKleuren", "WI") - Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-StalenRugBreedte", "") + Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-StalenRugBreedte", "null") Do HalffabItemBoomMock.Verifieer() Do ProductMock.Verifieer() Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml =================================================================== diff -u -r71523 -r71591 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 71523) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator.cls.xml (.../OptieGenerator.cls.xml) (revision 71591) @@ -20,6 +20,11 @@ Set OptieVoorAdminProductNummer.Omschrijving = Omschrijving Set OptieVoorAdminProductNummer.Naam = Naam + + If (Waarde = "") { + Set Waarde = "null" + } + Set OptieVoorAdminProductNummer.Waarde = Waarde Quit OptieVoorAdminProductNummer