Index: zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml
===================================================================
diff -u -r1597 -r1737
--- zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml	(.../FrezingOverzicht.cls.xml)	(revision 1597)
+++ zTryout/WV/PM/KAD/FrezingOverzicht.cls.xml	(.../FrezingOverzicht.cls.xml)	(revision 1737)
@@ -219,62 +219,81 @@
 <Implementation><![CDATA[
 	Set FreesDetailsLijst=##class(%ListOfDataTypes).%New()
 	
-	/*  BESLAG INFO  */
-	Set DataType="BSL"
-	Set BeslagIterator = ##class(TECH.ListIterator).%New(Kaderdeur.Beslag)
-	While (BeslagIterator.HasNext())
-	{
-		Set Beslag = BeslagIterator.Next()
-		Set BeslagID=Beslag.Beslag.ItemID
-		Set VmlID=..GeefBeslagVmlID(Beslag.Beslag)
-		Set BeslagAantal=Beslag.Positie.Count()
-		
+	// Switch ON/OFF  to include/exclude info 
+	Set blnKadMainInfo=0
+	Set blnBeslagInfo=1
+	Set blnFrezingInfo=1
+	
+	/*  KAD MAIN INFO  */
+	If (blnKadMainInfo) {
+		Set DataType="KAD"
 		Set lbFreesDetails=""
-		Set lbFreesDetails=lbFreesDetails_$LB(DataType, BeslagID, BeslagAantal, VmlID)
+		Set lbFreesDetails=lbFreesDetails_$LB(DataType, "", "", "")
 		Set lbFreesDetails=lbFreesDetails_$LB("", "", "", "", "")
-
+		
 		Do FreesDetailsLijst.Insert(lbFreesDetails)
 	}
 	
+	/*  BESLAG INFO  */
+	If (blnBeslagInfo) {
+		Set DataType="BSL"
+		Set BeslagIterator = ##class(TECH.ListIterator).%New(Kaderdeur.Beslag)
+		While (BeslagIterator.HasNext())
+		{
+			Set Beslag = BeslagIterator.Next()
+			Set BeslagID=Beslag.Beslag.ItemID
+			Set VmlID=..GeefBeslagVmlID(Beslag.Beslag)
+			Set BeslagAantal=Beslag.Positie.Count()
+			
+			Set lbFreesDetails=""
+			Set lbFreesDetails=lbFreesDetails_$LB(DataType, BeslagID, BeslagAantal, VmlID)
+			Set lbFreesDetails=lbFreesDetails_$LB("", "", "", "", "")
+			
+			Do FreesDetailsLijst.Insert(lbFreesDetails)
+		}
+	}
+	
 	/*  FREZINGEN  INFO  */
-	Set DataType="FRZ"
-	Set ProfielLijst=##class(Fabr.Frees.ProfielLijst).%New()
-	Do ProfielLijst.AddKaderDeur(Kaderdeur,1,"","")
-	Set ProfielenIterator=##class(TECH.ListIterator).%New(ProfielLijst.Profielen)
-	While (ProfielenIterator.HasNext())
-	{
-		Set ProfielLijstElement=ProfielenIterator.Next()
-		Set Profiel=ProfielLijstElement.Profiel
-		  ;d WLIP^vhDBG(97,Profiel.FrezingenOverzichtCalc())
-
-		Set ProfPlaats=Profiel.ProfPlaats
-		Set ProfZijkant=Profiel.ProfZijkant
-
-		Kill arSomVanFrezingen
-		Do ..SommeerFreesDetails(Profiel, .arSomVanFrezingen)
-		
-		Set ToolNaam=""
-		For {
-			Set ToolNaam=$O(arSomVanFrezingen(ToolNaam))
-			Quit:(ToolNaam="")
+	If (blnFrezingInfo) {
+		Set DataType="FRZ"
+		Set ProfielLijst=##class(Fabr.Frees.ProfielLijst).%New()
+		Do ProfielLijst.AddKaderDeur(Kaderdeur,1,"","")
+		Set ProfielenIterator=##class(TECH.ListIterator).%New(ProfielLijst.Profielen)
+		While (ProfielenIterator.HasNext())
+		{
+			Set ProfielLijstElement=ProfielenIterator.Next()
+			Set Profiel=ProfielLijstElement.Profiel
+			  ;d WLIP^vhDBG(97,Profiel.FrezingenOverzichtCalc())
 			
-			Set CNCProg=""
+			Set ProfPlaats=Profiel.ProfPlaats
+			Set ProfZijkant=Profiel.ProfZijkant
+			
+			Kill arSomVanFrezingen
+			Do ..SommeerFreesDetails(Profiel, .arSomVanFrezingen)
+			
+			Set ToolNaam=""
 			For {
-				Set CNCProg=$O(arSomVanFrezingen(ToolNaam,CNCProg))
-				Quit:(CNCProg="")
+				Set ToolNaam=$O(arSomVanFrezingen(ToolNaam))
+				Quit:(ToolNaam="")
 				
-				Set AantalFrezing=arSomVanFrezingen(ToolNaam,CNCProg) * $S(ToelevAantal>0:ToelevAantal, 1:1)
-				;Set ToolOms=$G(arSomVanFrezingen(ToolNaam))
-				
-				Set lbFreesDetails=""
-				Set lbFreesDetails=lbFreesDetails_$LB(DataType, "", "", "")
-				Set lbFreesDetails=lbFreesDetails_$LB(ProfPlaats, ProfZijkant, ToolNaam, CNCProg, AantalFrezing)
-				
-				Do FreesDetailsLijst.Insert(lbFreesDetails)
+				Set CNCProg=""
+				For {
+					Set CNCProg=$O(arSomVanFrezingen(ToolNaam,CNCProg))
+					Quit:(CNCProg="")
+					
+					Set AantalFrezing=arSomVanFrezingen(ToolNaam,CNCProg) * $S(ToelevAantal>0:ToelevAantal, 1:1)
+					;Set ToolOms=$G(arSomVanFrezingen(ToolNaam))
+					
+					Set lbFreesDetails=""
+					Set lbFreesDetails=lbFreesDetails_$LB(DataType, "", "", "")
+					Set lbFreesDetails=lbFreesDetails_$LB(ProfPlaats, ProfZijkant, ToolNaam, CNCProg, AantalFrezing)
+					
+					Do FreesDetailsLijst.Insert(lbFreesDetails)
+				}
 			}
 		}
 	}
-		
+	
 	Quit FreesDetailsLijst
 ]]></Implementation>
 </Method>