Index: DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml =================================================================== diff -u -r64369 -r64398 --- DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 64369) +++ DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler.cls.xml (.../KorttekstBepaler.cls.xml) (revision 64398) @@ -131,7 +131,7 @@ } ElseIf (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox) { Set VerpakkingCode = "X" } If (IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1) { - Set VerpakkingCode = "" + Set VerpakkingCode = " " } Quit VerpakkingCode Index: vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml =================================================================== diff -u -r64370 -r64398 --- vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml (.../Test.cls.xml) (revision 64370) +++ vhUnitTest/DOM/PM/Maatwerk/MVX/impl/KorttekstBepaler/Test.cls.xml (.../Test.cls.xml) (revision 64398) @@ -277,6 +277,7 @@ Set EindPositie = $$$If((EindPositie = 0), BeginPositie, EindPositie) + Do $$$AssertEquals($Length(Korttekst), 25) Do $$$AssertEquals($Extract(Korttekst, BeginPositie, EindPositie), ControleKorttekst) ]]> Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml =================================================================== diff -u -r64368 -r64398 --- DOM/PM/impl/MVXLangtekstCreator.cls.xml (.../MVXLangtekstCreator.cls.xml) (revision 64368) +++ DOM/PM/impl/MVXLangtekstCreator.cls.xml (.../MVXLangtekstCreator.cls.xml) (revision 64398) @@ -195,7 +195,7 @@ If (..IngegevenKenmerken.ZijwandType = ..Enum.ZijwandType.Boxcover) { If (..IsInschuifElementZijkantNietMeegeleverd()) { - Set ZijwandInfo = ZijwandInfo _ ..Vertaler.GeefVertaling(..GeefZijkantVertaalSleutelEigenInschuifElement()) + Set ZijwandInfo = ZijwandInfo _ ..Vertaler.GeefVertaling("Reling_EigenInschuifElement") } Else { Set ZijwandInfo = ZijwandInfo _..Vertaler.GeefVertaling("BoxCover") _ " " _ ..Vertaler.GeefVertaling("MVXFreeMetGlasDiamant") } @@ -205,7 +205,7 @@ Set ZijwandInfo = ZijwandInfo _..Vertaler.GeefVertaling("Reling") } ElseIf (..IngegevenKenmerken.ZijwandType = ..Enum.ZijwandType.RelingEnInschuifElement) { If (..IsRelingZijkantNietMeegeleverd()) { - Set ZijwandInfo = ZijwandInfo _ ..Vertaler.GeefVertaling(..GeefZijkantVertaalSleutelEigenInschuifElement()) + Set ZijwandInfo = ZijwandInfo _ ..Vertaler.GeefVertaling("Reling_EigenInschuifElement") } Else { Set ZijwandInfo = ZijwandInfo _..Vertaler.GeefVertaling("Reling") } @@ -216,13 +216,6 @@ ]]> - -1 -%String - - - 1 %String @@ -233,19 +226,19 @@ Set VoorwandVertaalSleutel = "Voorstuk_Gesloten" } ElseIf (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.Reling) { If ( ..IsInschuifElementVoorNietMeegeleverd()) { - Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutelEigenRelingVooraan() + Set VoorwandVertaalSleutel = "Voorstuk_EigenReling" } Else { Set VoorwandVertaalSleutel = "Voorstuk_metReling" } } ElseIf (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.GlasHoog) { If ( ..IsInschuifElementVoorNietMeegeleverd()) { - Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutelEigenInschuifElement() + Set VoorwandVertaalSleutel = "Voorstuk_EigenInschuifElement" } Else { Set VoorwandVertaalSleutel = "Voorstuk_metHoogInschuifElement" } } ElseIf (..IngegevenKenmerken.VoorwandType = ..Enum.VoorwandType.GlasLaag) { If ( ..IsInschuifElementVoorNietMeegeleverd()) { - Set VoorwandVertaalSleutel = ..GeefVoorwandVertaalSleutelEigenInschuifElement() + Set VoorwandVertaalSleutel = "Voorstuk_EigenInschuifElement" } Else { Set VoorwandVertaalSleutel = "Voorstuk_metLaagInschuifElement" } @@ -255,29 +248,13 @@ ]]> - -1 -%String - - - - -1 -%String - - - 1 %String