Index: OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml =================================================================== diff -u -r69791 -r69802 --- OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml (.../LPNEANCheckService.cls.xml) (revision 69791) +++ OBJTimpl/WMSOrder/LPNEANCheckService.cls.xml (.../LPNEANCheckService.cls.xml) (revision 69802) @@ -83,9 +83,14 @@ Set Status="" Set SqlStatement="select count(*) AANTAL" - _ " from [vanhoecke].[dbo].[DCEREPORT_CONTAINERS] lpn" - _ " where lpn.lpn = ? " + _ " from [vanhoecke].[dbo].[OBJT_CONTAINERSTORAGEITEMQTY] csitq" + _ " join [vanhoecke].[dbo].[OBJT_WAREHOUSELOCATION] location on location.OID = csitq.WAREHOUSELOCATIONOID" + _ " join OBJT_WAREHOUSE wh on wh.OID = location.WAREHOUSEOID" + _ " where csitq.NAME = ? " + _ " and wh.NAME in ('KLZ','AFZ','Kardex')" + + try { Do rs.Prepare(SqlStatement,,..SqlConnection) Do rs.Execute(LPN) @@ -97,6 +102,9 @@ { Set Aantal=$G(rs.Data("AANTAL")) } + + Do ##class(Tools.Wlip).%New(207).String("LPN ? |" _ LPN_"| " _ $$$Not(Aantal = 0)) + Quit $$$Not(Aantal = 0) ]]>