Index: vhDeploy/CSC/Deploy20111019x1606.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111019x1606.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111019x1606.cls.xml	(revision 2421)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111019x1606">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Set ^RES("HATBXLEAN","PI","PRINTKAST","D","G")="21`Glassnijlijst"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2104 -r2421
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2104)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2421)
@@ -46,6 +46,11 @@
 <MultiDimensional>1</MultiDimensional>
 </Property>
 
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
 <Parameter name="BodemsPerKar">
 <Description>
 Maximum bodems per kar</Description>
@@ -83,10 +88,10 @@
 	Set ..Line = ""
 	If (BatchID'="")
 	{
-		Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID)
-		If ($IsObject(Batch))
+		Set ..Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID)
+		If ($IsObject(..Batch))
 		{
-			Set ..Line = Batch.GeefLijn()
+			Set ..Line = ..Batch.GeefLijn()
 		}
 	}
 	Set ..ProdGrp=$G(ProdGrp,"+")
@@ -107,6 +112,7 @@
 	Set:Opties["X" QtySpoelbak=..Spoelbakken()
 	Do:Opties["P" ..Pers()
 	Do:Opties["A" ..PrintPickToLight()
+	Do:Opties["G" ..GlasSnijLijst()
 	
 	// Controleer voor errors op de frees indien etiketten voor tipons, sifons of spoelbakken zijn afgedrukt
 	If ((Opties["U") || (Opties["W"))
@@ -135,6 +141,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GlasSnijLijst">
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	Set DocGlasSnijlijst = ##class(BL.PPS.TBX.DocGlasSnijlijst).%New(..Batch)
+	Set Document = DocGlasSnijlijst.GeefDocument()
+	Do Document.PrintDocument("HALUX", ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm"))
+]]></Implementation>
+</Method>
+
 <Method name="PrintPickToLight">
 <Implementation><![CDATA[
 	Set P2L = ##class(APPS.P2L.P2LRuggen).%New()