;SD.CONSCOMM.Aanbrenger

PreFetch
	set sEr=-1 
	new CanQuit set CanQuit=0
	for { quit:CanQuit  set X=$$SELECT^KLANT6(,,"Aanbr : ") quit:'X  
		if X'=Aanbrenger,$$IsValid(X) {
			do PUT^vhScherm("AANBRENGER",X)
			do PUT^vhScherm("COMMISSIE",CommissiePercentage) 
			set CanQuit=1
			set %SC=1 
		}
	}
	quit
	
IsValid(Aanbrenger)
	new IsValid set IsValid = $$IsValidLand()
	quit IsValid
	
IsValidLand()
	new PartijID set PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(Aanbrenger)
	new Partij set Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(PartijID)
	new Landcode set Landcode = Partij.GeefAdres().GeefLand().GeefID()
	
	set IsValid = ( Landcode = ##class(DOM.common.enu.Land).Belgie() ) || ( Landcode = ##class(DOM.common.enu.Land).Nederland() )
	
	if 'IsValid do Boodschap^vhTXTPOP("Aanbrenger moet Belgisch of Nederlands zijn")
	
	quit IsValid