Index: HADOPV.mac.rou
===================================================================
diff -u -r1134 -r2711
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 1134)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 2711)
@@ -259,6 +259,7 @@
  ..Set:Vul="" Vul="  "
  ..Set Hoogte=$P(sFL("G"),D,8)
  ..Set Breedte=$P(sFL("G"),D,9)
+ ..If ('$Data(^RES("HAD","PI","PROFIEL","D",Prof))) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen data voor "_$Name(^RES("HAD","PI","PROFIEL","D",Prof))))
  ..Set MinVrGl=$P(^RES("HAD","PI","PROFIEL","D",Prof),"`",3)*2
  ..Set VulOms=$S(MinVrGl!(Vul="  "):$P($G(^RES("HAD","PI","VULLING","D",Vul)),"`",2),1:"**FOUT**")
  ..Set KT=Vul_$J(Hoogte-MinVrGl,4,0)_"x"_$J(Breedte-MinVrGl,4,0)_$S($L(VulOms):"-"_VulOms,1:"")