#dim KlantObjectDataM As DOM.VKP.Klant = ""

IsBussinessTypeNietWijzigbaar()
	new IsWijzigbaar set IsWijzigbaar = 1
	if KlantObjectDataM.GeefBusinessType() = ##class(DOM.VKP.enu.BusinessType).B2B() {
		set IsWijzigbaar = ( KlantObjectDataM.GeefPrijsAffichering() '= ##class(DOM.VKP.enu.PrijsAffichering).BrutoPrijzen() )
		if 'IsWijzigbaar set RedenNietWijzigbaar = "Business type B2C niet combineerbaar met afdruk prijs bruto"
	}
	
	Quit 'IsWijzigbaar
	 
IsPrijsAfficheringNietWijzigbaar()
	new IsWijzigbaar set IsWijzigbaar = 1
	
	if KlantObjectDataM.GeefPrijsAffichering() = ##class(DOM.VKP.enu.PrijsAffichering).NettoPrijzen() {
		set IsWijzigbaar = ( KlantObjectDataM.GeefBusinessType() = ##class(DOM.VKP.enu.BusinessType).B2B() )
		if 'IsWijzigbaar set RedenNietWijzigbaar = "Afdruk prijs bruto niet combineerbaar met business type B2C"
	}
		
	quit 'IsWijzigbaar