Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml =================================================================== diff -u -r40443 -r40444 --- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml (.../WinkelkarControleur.cls.xml) (revision 40443) +++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml (.../WinkelkarControleur.cls.xml) (revision 40444) @@ -62,18 +62,26 @@ #Dim HeeftMinimumAantal As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType, MinimumAantal) If $$$Not(HeeftMinimumAantal) { - #Dim MinimumAantalVanVerpakkingType As %String = Vertaler.GeefVertaling("MinimumAantalVanVerpakkingType") - - Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::Aantal::", MinimumAantal) - Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::VerpakkingType::", VerpakkingType) - - #Dim Melding As %String = WinkelkarNietBesteld _ " " _ MinimumAantalVanVerpakkingType - + #Dim Melding As %String = ..MaakMeldingMinimumAantalVanVerpakkingType(Vertaler, MinimumAantal, VerpakkingType, WinkelkarNietBesteld) Do ..ControleerInput(Winkelkar, HeeftMinimumAantal, Melding) } ]]> + +Vertaler:DOM.common.Transl.Vertaler,MinimumAantal:%Integer,VerpakkingType:TECH.String,WinkelkarNietBesteld:%String +1 +%String + + + Winkelkar:DOM.EC.Winkelkar.Winkelkar 1