Index: BL/Legacy/EWPAL.cls.xml =================================================================== diff -u -r73477 -r73513 --- BL/Legacy/EWPAL.cls.xml (.../EWPAL.cls.xml) (revision 73477) +++ BL/Legacy/EWPAL.cls.xml (.../EWPAL.cls.xml) (revision 73513) @@ -167,15 +167,15 @@ #dim ConsolidatieNummer as %String = "" #Dim SqlString as %String = "select " _ $$$CRLF - Set SqlString = SqlString _ "inv.product as PRNR," _ $$$CRLF + Set SqlString = SqlString _ "trim(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 _ "loc.loc_id as PALETID," _ $$$CRLF + Set SqlString = SqlString _ "trim(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 _ "inv.section as SECTIE" _ $$$CRLF + Set SqlString = SqlString _ "trim(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) @@ -191,7 +191,7 @@ Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(rs.Prepare(SqlString,,SqlConnection)) Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(rs.Execute()) Set rsIterator = ##class(TECH.ResultSetIterator).%New(rs) - if rsIterator.HasNext { + if rsIterator.HasNext() { Do ..ResetS02CntNonProcedureBlock() While rsIterator.HasNext(){ #dim rsInventory as %ResultSet = rsIterator.Next()