Index: MagazijnPrintLocatieEtiket.csp
===================================================================
diff -u -r89 -r90
--- MagazijnPrintLocatieEtiket.csp	(.../MagazijnPrintLocatieEtiket.csp)	(revision 89)
+++ MagazijnPrintLocatieEtiket.csp	(.../MagazijnPrintLocatieEtiket.csp)	(revision 90)
@@ -1,19 +1,10 @@
-<CSP:CLASS description="CSP page for viewing the FOP Queue items via SQL" includes="vhLib.Macro,vhLib.cspError">
+<CSP:CLASS description="" includes="vhLib.Macro,vhLib.cspError">
 <HTML>
 <HEAD>
 
-<!-- Put your page Title here -->
 <TITLE>Print Locatie-etiket</TITLE>
 
- <STYLE type="text/css">
-   body {
-		padding:0px;
-		margin:0px;   
- 	}
-   td.lijn{
-		background-color: grey;   
-   }
- </STYLE>
+<link rel="stylesheet" type="text/css" href="/css/Magazijn.css">
 
 <SCRIPT language="Cache" runat="server">
 	Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur")
@@ -22,13 +13,7 @@
 
 
 <script method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
- If ('$Data(%session.Data("Foutmelding"))) {
- 	Set %session.Data("Foutmelding") = "" 
- }
- If ('$Data(%session.Data("Resultaat"))) {
- 	Set %session.Data("Resultaat") = ""
- } 
- Quit 1 
+	Quit ##class(BL.Magazijn.CSP).%New().OnPreHTTP()
 </script>
 
 
@@ -57,16 +42,12 @@
 	Quit AantalLocaties
 </script>
 
-<script language="Cache" method="PrintLocatieEtiketten" arguments="StartLocatie:%String,EindLocatie:%String,BovensteVerticaal:%Boolean" returntype="">
-	Try {
-		#dim LabelPrintService As APPS.MAG.LabelPrintService = ##class(APPS.MAG.LabelPrintService).%New()
-		Do LabelPrintService.PrintLocatieEtiketten(StartLocatie,EindLocatie,BovensteVerticaal)
-		Set %session.Data("Resultaat") = "De etiketten werden afgeprint."
-	}Catch E{
-		Set Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(vhLib.Logger).%New("Magazijn Print Locatie Etiket").ErrorMail("PrintLocatieEtiketten mislukt",Exception.ToString())
-		Set %session.Data("Foutmelding") = Exception.GeefOmschrijving()	
-	}
+<script language="Cache" method="PrintEtiketten" arguments="StartLocatie:%String,EindLocatie:%String,BovensteVerticaal:%Boolean" returntype="">
+	Set InputParameters = ##class(BL.Magazijn.dto.InputParametersLocatieEtiket).%New()
+	Set InputParameters.StartLocatie = StartLocatie
+	Set InputParameters.EindLocatie = EindLocatie
+	Set InputParameters.BovensteVerticaal = BovensteVerticaal
+	Do ##class(BL.Magazijn.MagazijnLocatieEtiketPrinter).%New().VoerUit(InputParameters)
 </script>
 
 <script type="text/javascript">
@@ -104,7 +85,7 @@
 				bevestigd = confirm(msg,msgTitle);
 			}
 			if (bevestigd) {
-				var ret = #server(..PrintLocatieEtiketten(StartLocatie,EindLocatie,BovensteVerticaal))#; 
+				var ret = #server(..PrintEtiketten(StartLocatie,EindLocatie,BovensteVerticaal))#; 
 				document.form.StartLocatie.value = ""
 				document.form.EindLocatie.value	= ""
 			}else{
@@ -177,20 +158,6 @@
 
 
 <SCRIPT method="CustomEHandlerInit" language="Cache" arguments="lbErrTypes" returntype="">
-	#Include ErrorVHCNTs
-	#Include vhLib.Macro
-
-	Set EmailTo = ##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")
-	Do ##class(csp.errorvh).DefaultEHandlerInit(.lbErrTypes)
-	
-	If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()["PROD"){
-		Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("Email","ErrPage")
-	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB(EmailTo),"CSP - Error - "_$ZDT($H,4),"�DFL_HTML�",,1)
-	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.errorvh","OnPageMinimum")
-	}Else{
-		Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("ErrPage")
-	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("%CSP.Error","OnPage")
-	}
-	
+	Do ##class(BL.Magazijn.MagazijnErrorHandler).%New().ErrorHandle(.lbErrTypes)
 	Quit
 </SCRIPT>
