Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml =================================================================== diff -u -r2322 -r51792 --- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml (.../UglyPickingService.cls.xml) (revision 2322) +++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml (.../UglyPickingService.cls.xml) (revision 51792) @@ -832,6 +832,9 @@ If (ResultSet.Next()) { + If '($Data(ResultSet.Data("IsInGebruik"))) { + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Error IsBonInGebruik() - Mogelijk data corrupt. Probeer eerst: ##class(APPS.MAG.UGLYPicking.impl.Sessie).%PurgeIndices() + .%BuildIndices() .")) + } Set IsInGebruik = ResultSet.Data("IsInGebruik") } Else