Index: vhDeploy/JCL/D20111028CHUIPPSTBXLeanBatch.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/D20111028CHUIPPSTBXLeanBatch.cls.xml	(revision 0)
+++ vhDeploy/JCL/D20111028CHUIPPSTBXLeanBatch.cls.xml	(revision 2554)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.D20111028CHUIPPSTBXLeanBatch">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>ConfigItems - CHUIPPSTBXLeanBatch</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set DEVOmgeving = (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()["DEV")
+ 	do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("CHUI.PPS.TBX.LeanBatch_ToonExtraInfoScherm",DEVOmgeving)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2518 -r2554
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2518)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2554)
@@ -797,7 +797,6 @@
 	. Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr)
 	. Do ..blLeanBatch.PrintProPlus(BatchNr,$TR(Opties,";",""),.Text,.SkippedText,$G(StartNr),$G(EndNr))
 	Else  If ProdGrpBatch="A" Do ; Kast
-	. ;b "s+"
 	. Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINTKAST",..ChkOpties())
 	. Quit:zb="CANC"
 	. Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr)
@@ -810,7 +809,7 @@
 	Do:$L(Text)>2 WARN^vhTXTPOP($E(Text,2,999),"Overzicht")
 	Do:$L($G(SkippedText)) WARN^vhTXTPOP($$REPLACE^vhRtn1(SkippedText,">CR<","~"),"Producten die niet werden toegevoegd")
 	
-	if ##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()="DEV" {
+	if ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("CHUI.PPS.TBX.LeanBatch_ToonExtraInfoScherm") {
 		Do DISPLAY^vhScherm("HATBXLEAN",,,,"BATCHNR")
 		Do ..Fetch(.Selected)
 		Do ..ToonHeader()