1 APPS.EC.Winkelkar.WinkelkarControleur,TECH.RegisteredObject APPS.common.KlantInstellingenService 1 APPS.EC.Winkelkar.impl.VerpakkingControleurWinkelkarVisitor DOM.EC.Winkelkar.Winkelkar 1 DOM.common.Transl.Vertaler 1 KlantInstellingenService:APPS.common.KlantInstellingenService 1 1 %Status 1 WinkelkarID:%String Winkelkar:DOM.EC.Winkelkar.Winkelkar VerpakkingType:TECH.String,WinkelkarNietBesteld:%String 1 MinimumAantal:%Integer,VerpakkingType:TECH.String,WinkelkarNietBesteld:%String 1 %String 1 1 TECH.Iterator 1 %Boolean VerpakkingTypeTeBestellen:%String 1 %Boolean 0) { Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantLBXVerpakkingTypeBestellen(..Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen) } If (MagKlantVerpakkingTypeBestellen && (AantalVanTAORVerpakkingType > 0)) { Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTAORVerpakkingTypeBestellen(..Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen) } If (MagKlantVerpakkingTypeBestellen && (AantalVanTBXVerpakkingType > 0)) { Set MagKlantVerpakkingTypeBestellen = ..KlantInstellingenService.MagKlantTBXVerpakkingTypeBestellen(..Winkelkar.GeefKlantID(),VerpakkingTypeTeBestellen) } Quit MagKlantVerpakkingTypeBestellen ]]> VerpakkingTypeMetBeperking:%String,MinimumAantalVoorVerpakkingType:%Integer 1 %Boolean = MinimumAantalVoorVerpakkingType)) #dim HeeftMinimumAantalVoorTax As %Boolean = ((AantalVanTAORVerpakkingType = 0) || (AantalVanTAORVerpakkingType >= MinimumAantalVoorVerpakkingType)) #dim HeeftMinimumAantalVoorTbx As %Boolean = ((AantalVanTBXVerpakkingType = 0) || (AantalVanTBXVerpakkingType >= MinimumAantalVoorVerpakkingType)) Quit HeeftMinimumAantalVoorLbx && HeeftMinimumAantalVoorTax && HeeftMinimumAantalVoorTbx ]]> InputOK:%Boolean,BerichtIndienNietOK:%String="" 1