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,LadeVariant: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 TECH.String = MinimumAantalVoorVerpakkingType)) #dim HeeftMinimumAantalVoorTax As %Boolean = ((AantalVanTAORVerpakkingType = 0) || (AantalVanTAORVerpakkingType >= MinimumAantalVoorVerpakkingType)) #dim HeeftMinimumAantalVoorTbx As %Boolean = ((AantalVanTBXVerpakkingType = 0) || (AantalVanTBXVerpakkingType >= MinimumAantalVoorVerpakkingType)) If ($$$Not(HeeftMinimumAantalVoorLbx)) { Set EerstvolgendeLadeVariant = "LEGRABOX" } ElseIf ($$$Not(HeeftMinimumAantalVoorTax)) { Set EerstvolgendeLadeVariant = "TA'OR BOX" } ElseIf ($$$Not(HeeftMinimumAantalVoorTbx)) { Set EerstvolgendeLadeVariant = "TANDEMBOX" } Quit EerstvolgendeLadeVariant ]]> InputOK:%Boolean,BerichtIndienNietOK:%String="" 1