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