Index: WS/Prod/OptiBox/OptiServer.cls.xml
===================================================================
diff -u -r30803 -r30809
--- WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 30803)
+++ WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 30809)
@@ -714,6 +714,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WijzigWerkpostIndienLOSCOMP">
+<Description>
+Deze wijziging van Werkpost is tijdelijk, omdat de "Alles Verzenden" (a.k.a. AllFromBatch) in vHintra niet enabled is voor werkpost LOSCOMP 
+(sept 2015) </Description>
+<FormalSpec><![CDATA[&Werkpost:%String,BatchID:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BatchService As APPS.Halux.common.BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
+	If BatchService.BestaatBatch(BatchID) {
+		#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep = BatchService.GeefBatch(BatchID).GeefProductieGroep()
+		If (Werkpost="LO") && (##class(TECH.StringUtils).Equals(ProductieGroep,"TAX-LC","TAX-BOG")) {
+			Set Werkpost = "LOSCOMP"
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GetWPQueueViaBatchID">
 <Description><![CDATA[
 Werkpost BatchIDs verkrijgen
@@ -737,6 +754,8 @@
 	Set varDataSet=$$$NULLOREF
 
 	$$$ReInstateSession(SessionKey)
+
+	Do ..WijzigWerkpostIndienLOSCOMP(.Werkpost,BatchID)
 	
 	$$$CheckAccess($$$rsPPSTBXOptiBox,$$$prRead)
 	#dim Categorie as APPS.Halux.common.enu.Categorie=..GeefCategorieFromBatch(BatchID)
@@ -774,6 +793,8 @@
 
 	Set Logger = ##class(vhLib.Logger).%New("HALUX.KARTON")
 	Do Logger.Debug("ProcessNextBatchItems", "Werkpost: " _ Werkpost _ " BatchID: " _ BatchID _ " ProcessCnt: " _ ProcessCnt)
+	Do ..WijzigWerkpostIndienLOSCOMP(.Werkpost,BatchID)
+	Do Logger.Debug("ProcessNextBatchItems", "Werkpost: " _ Werkpost _ " BatchID: " _ BatchID _ " ProcessCnt: " _ ProcessCnt)
 
 	#dim WPClassName as %String
 	#dim pxStatus as BL.Sys.Proxy.pxStatus
@@ -818,6 +839,8 @@
 	
 	Set Logger = ##class(vhLib.Logger).%New("HALUX.KARTON")
 	Do Logger.Debug("ReProcessItem", "Werkpost: " _ Werkpost _ " BatchID: " _ BatchID _ " QueueID: " _ QueueID)
+	Do ..WijzigWerkpostIndienLOSCOMP(.Werkpost,BatchID)
+	Do Logger.Debug("ReProcessItem", "Werkpost: " _ Werkpost _ " BatchID: " _ BatchID _ " QueueID: " _ QueueID)
 
 	#dim WPClassName as %String
 	#dim pxStatus as BL.Sys.Proxy.pxStatus
@@ -906,6 +929,8 @@
 
 	Set Logger = ##class(vhLib.Logger).%New("HALUX.KARTON")
 	Do Logger.Debug("AllFromBatch", "Werkpost: " _ Werkpost _ " BatchID: " _ BatchID _ " ExcludeList: " _ ExcludeList)
+	Do ..WijzigWerkpostIndienLOSCOMP(.Werkpost,BatchID)
+	Do Logger.Debug("AllFromBatch", "Werkpost: " _ Werkpost _ " BatchID: " _ BatchID _ " ExcludeList: " _ ExcludeList)
 
 	#dim WPClassName as %String
 	#dim pxStatus as BL.Sys.Proxy.pxStatus