Index: BL/Legacy/EWPAL.cls.xml
===================================================================
diff -u -r73513 -r73687
--- BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 73513)
+++ BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 73687)
@@ -167,15 +167,15 @@
 	#dim ConsolidatieNummer as %String = ""
 
 	#Dim SqlString as %String = "select " _  $$$CRLF
-	Set SqlString = SqlString _ "trim(inv.product) as PRNR," _  $$$CRLF
+	Set SqlString = SqlString _ "rtrim(inv.product) as PRNR," _  $$$CRLF
 	Set SqlString = SqlString _ "inv.qty_pcs as AANTAL," _  $$$CRLF
 	Set SqlString = SqlString _ "(select SUM(inv2.qty_pcs) from inventory inv2 where inv2.product = inv.product) as TOTFYSSTOCK," _  $$$CRLF
-	Set SqlString = SqlString _ "trim(loc.loc_id) as PALETID," _  $$$CRLF
+	Set SqlString = SqlString _ "rtrim(loc.loc_id) as PALETID," _  $$$CRLF
 	Set SqlString = SqlString _ "REPLACE(STR(loc.loc_m, 3) + STR(loc.loc_g, 3)+STR(loc.loc_x, 3) +STR(loc.loc_y, 3)+STR(loc.loc_z, 3)  , SPACE(1), '0')  as STOCKAGEPLAATS," _  $$$CRLF
 	Set SqlString = SqlString _ "0 as GEWICHT," _  $$$CRLF
 	Set SqlString = SqlString _ "' ' as SAMPLETYPE," _  $$$CRLF
 	Set SqlString = SqlString _ "replace(replace(convert(char(19),loc.insert_time,112),'-',''),'.','') as DATUM," _  $$$CRLF
-	Set SqlString = SqlString _ "trim(inv.section) as SECTIE" _  $$$CRLF
+	Set SqlString = SqlString _ "rtrim(inv.section) as SECTIE" _  $$$CRLF
 	Set SqlString = SqlString _ "FROM inventory inv " _  $$$CRLF
 	Set SqlString = SqlString _ "join locations loc on loc.loc_id = inv.loc_id " _  $$$CRLF
 	Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL",SqlString)
@@ -197,16 +197,15 @@
 		 	    #dim rsInventory as %ResultSet = rsIterator.Next()
 		 	    Kill C
 		 	    Set C("PRNR") = rsInventory.GetDataByName("PRNR")
-		 	    Set C("AANTAL") = rsInventory.GetDataByName("AANTAL")
-		 	    Set C("TOTFYSSTOCK") = rsInventory.GetDataByName("TOTFYSSTOCK")
+		 	    Set C("AANTAL") = + rsInventory.GetDataByName("AANTAL")
+		 	    Set C("TOTFYSSTOCK") = + rsInventory.GetDataByName("TOTFYSSTOCK")
 		 	    Set C("PALETID") = rsInventory.GetDataByName("PALETID")
 		 	    Set C("GEWICHT") = rsInventory.GetDataByName("GEWICHT")
 		 	    Set C("SAMPLETYPE") = rsInventory.GetDataByName("SAMPLETYPE")
 		 	    Set C("STOCKAGEPLAATS") = rsInventory.GetDataByName("STOCKAGEPLAATS")
 		 	    Set C("DATUM") = rsInventory.GetDataByName("DATUM")
 		 	    Set C("SECTIE") = rsInventory.GetDataByName("SECTIE")
 		 	    Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL CONTROL^EWPAL",$$ArrayToText^vhLib("C",.C))
-
 		 	    Do CONTROL^EWPAL(.C)	;S02 record equivalent 	    
 	 	    }
 	 	    Do ##class(vhLib.Logger).%New().Info("EWMS Stockcontrole SQL","oproep ENDCTRL")