Index: APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml =================================================================== diff -u -r39679 -r39712 --- APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml (.../WinkelkarControleur.cls.xml) (revision 39679) +++ APPS/EC/Winkelkar/impl/WinkelkarControleur.cls.xml (.../WinkelkarControleur.cls.xml) (revision 39712) @@ -56,18 +56,18 @@ Do ..ControleerInput(Winkelkar,..MagKlantVerpakkingTypeBestellen(Winkelkar, VerpakkingType), WinkelkarNietBesteld _ " " _ VerpakkingTypeNietToegelaten) - #Dim MinimumAantalVoorProbox As %Integer = ..KlantInstellingenService.GeefMinimaleBestelhoeveelheid(Winkelkar.GeefKlantID(), VerpakkingType) - #Dim HeeftMinimumAantalIndienProbox As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType,MinimumAantalVoorProbox) + #Dim MinimumAantal As %Integer = ..KlantInstellingenService.GeefMinimaleBestelhoeveelheid(Winkelkar.GeefKlantID(), VerpakkingType) + #Dim HeeftMinimumAantal As %Boolean = ..HeeftMinimumAantalVoorVerpakkingType(VerpakkingType,MinimumAantal) - If $$$Not(HeeftMinimumAantalIndienProbox) { + If $$$Not(HeeftMinimumAantal) { #Dim MinimumAantalVanVerpakkingType As %String = Vertaler.GeefVertaling("MinimumAantalVanVerpakkingType") - Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::Aantal::", MinimumAantalVoorProbox) + Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::Aantal::", MinimumAantal) Set MinimumAantalVanVerpakkingType = ##class(TECH.StringUtils).Replace(MinimumAantalVanVerpakkingType, "::VerpakkingType::", VerpakkingType) #Dim Melding As %String = WinkelkarNietBesteld _ " " _ MinimumAantalVanVerpakkingType - Do ..ControleerInput(Winkelkar, HeeftMinimumAantalIndienProbox, Melding) + Do ..ControleerInput(Winkelkar, HeeftMinimumAantal, Melding) } } ]]>