Index: vhConsistency/Checks/Res/ControleerVolgNummers.cls.xml
===================================================================
diff -u -r29059 -r31919
--- vhConsistency/Checks/Res/ControleerVolgNummers.cls.xml	(.../ControleerVolgNummers.cls.xml)	(revision 29059)
+++ vhConsistency/Checks/Res/ControleerVolgNummers.cls.xml	(.../ControleerVolgNummers.cls.xml)	(revision 31919)
@@ -18,7 +18,7 @@
 		#dim SubType As %String = $O(^RES(Type,"PI",""))
 		While SubType '= ""{
 			Try{
-				Do PiControleur.ControleerVolgNummers(Type,SubType)
+				Do:(..MoetVolgNummersControleren(Type,SubType)) PiControleur.ControleerVolgNummers(Type,SubType)
 			}Catch{
 				#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 				If Exceptie.%ClassName(1)="TECH.Exceptions.GeneralErrorException"{
@@ -36,6 +36,16 @@
 	Quit Status
 ]]></Implementation>
 </Method>
+
+<Method name="MoetVolgNummersControleren">
+<FormalSpec>Type:%String,SubType:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(Type="LABELPRINTER")&&(SubType="ZAAG_ETIKET")&&($L($G(^RES(Type,"PI",SubType,"D")),"`")=1) $$$False
+	Quit $$$True
+]]></Implementation>
+</Method>
 </Class>